Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  innerhalb CATPart in CATProduct arbeiten

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  innerhalb CATPart in CATProduct arbeiten (1081 mal gelesen)
Martin K
Mitglied
Konstrukteur, CAD Administrator


Sehen Sie sich das Profil von Martin K an!   Senden Sie eine Private Message an Martin K  Schreiben Sie einen Gästebucheintrag für Martin K

Beiträge: 141
Registriert: 24.01.2002

AIX5.3
Windows 7 / Windows 10
CATIAV425
CATIA V5-6R2016 SP03
CATIA V5-6R2018 SP03
CATIA V5-6R2019 SP03

erstellt am: 29. Mrz. 2010 13:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo

Ich habe einige Makros die im CATPart ganz gut funktioniern.
Wenn ich aber innerhalb eines CATProducts im CATPart arbeiten möchte funktionieren die Makros leider nicht mehr, da das aktiveDocument immer das CATProduct ist.

Wie kann ich das CATPart indem ich das Makro verwenden möchte aktive setzten?

Danke

Gruß Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

DanielFr.
Moderator
Manager


Sehen Sie sich das Profil von DanielFr. an!   Senden Sie eine Private Message an DanielFr.  Schreiben Sie einen Gästebucheintrag für DanielFr.

Beiträge: 2506
Registriert: 10.08.2005

HP Compaq 8710w, Intel Core Duo T7700, 2,40 Ghz, 3GB RAM, Windows XP Professionel @32bit, Quadro FX 1600M, CATIA V5 R19 SP3

erstellt am: 29. Mrz. 2010 14:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Martin K 10 Unities + Antwort hilfreich

Hallo  ,

das geht nicht. Das aktive Dokument ist IMMER das Produkt egal ob nun das Part aktive ist oder nicht. Du musst dich über die Products-Collection zu deinem Part durchhangeln und dieses dann auf die entsprechende Variable legen.

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Martin K
Mitglied
Konstrukteur, CAD Administrator


Sehen Sie sich das Profil von Martin K an!   Senden Sie eine Private Message an Martin K  Schreiben Sie einen Gästebucheintrag für Martin K

Beiträge: 141
Registriert: 24.01.2002

erstellt am: 29. Mrz. 2010 14:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Daniel

Danke für die schnelle Antwort.
Ich habe in der zwischenzeit mit dem Makrorecorder probiert und folgendes script erzeugt:
---------------------------------------------------------------------------
Language="VBSCRIPT"
Sub CATMain()
Set documents1 = CATIA.Documents
Set partDocument1 = documents1.Item("TEST.CATPart")
Set part1 = partDocument1.Part
Set bodies1 = part1.Bodies
Set body1 = bodies1.Add()
part1.Update
End Sub
---------------------------------------------------------------------------

Jetzt möchte ich nur noch den fest eingetragenen Namen "TEST.CATPart" durch eine Selektion ersetzten.
CATPart innerhalb CATProduct selektieren.
Filenamen auslesen.
In documents1.Item("Variable") als Parameter einsetzten.

Gruß Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

DanielFr.
Moderator
Manager


Sehen Sie sich das Profil von DanielFr. an!   Senden Sie eine Private Message an DanielFr.  Schreiben Sie einen Gästebucheintrag für DanielFr.

Beiträge: 2506
Registriert: 10.08.2005

HP Compaq 8710w, Intel Core Duo T7700, 2,40 Ghz, 3GB RAM, Windows XP Professionel @32bit, Quadro FX 1600M, CATIA V5 R19 SP3

erstellt am: 29. Mrz. 2010 14:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Martin K 10 Unities + Antwort hilfreich

Hallo  ,

Code:

Sub CATMain()

'****Deklarationen****
    Dim intDocObj As Document
    Dim intWindowsObj As Windows
    Dim intObjTypeStr As String
    Dim intSelObj As Object 'Selection
    Dim intSelFilter(0)
    Dim intSelStateStr As String
    Dim intPartDocObj As Part
    Dim intBodiesObj As Bodies
    Dim intNewBodyObj As Body

'****Abfrage Dokumente****
    Set intWindowsObj = CATIA.Windows
    If intWindowsObj.Count = 0 Then
        MsgBox "Es ist kein Dokument geladen!" + Chr(10) + "Das Makro kann nicht ausgeführt werden und wird beendet!", vbCritical, "Keine Dokument geladen"
        Exit Sub
    End If
    Set intDocObj = CATIA.ActiveDocument
    intObjTypeStr = TypeName(intDocObj)
    If intObjTypeStr <> "ProductDocument" Then
        MsgBox "Das aktive Dokument ist kein ProductDocument!" + Chr(10) + "Das Makro kann nicht ausgeführt werden!", _
                vbCritical + vbOKOnly, "Falscher Dokumententyp"
        Exit Sub
    End If
    intObjTypeStr = ""

'****Selektion****
    Set intSelObj = intDocObj.Selection
    intSelObj.Clear

    intSelFilter(0) = "Part"
    MsgBox "Bitte selektieren Sie ein PartDocument" + Chr(10) + "Drücken Sie ESC zum Abbrechen", vbInformation, "Part selektieren"
   
    intSelStateStr = intSelObj.SelectElement2(intSelFilter, "Bitte Part selektieren / ESC zum Abbrechen", False)
    If intSelStateStr <> "Normal" Then
        MsgBox "Sie haben die Auswahl des PartDocuments abgebrochen" + Chr(10) + "Das Makro wird beendet", vbInformation, "Abbruch durch Anwender"
        Exit Sub
    Else
        Set intPartDocObj = intSelObj.Item(1).Value
    End If
   
'***Body hinzufügen***
    Set intBodiesObj = intPartDocObj.Bodies
    Set intNewBodyObj = intBodiesObj.Add
    intNewBodyObj.Name = "NEUER BODY"
   
'***PartUpdaten
    intPartDocObj.UpdateObject intNewBodyObj

End Sub


In dem von Anwender selektierten Part (ACHTUNG das ist im Strukturbaum auf der ZWEITEN EBENE (plus muss also aufgeklappt werden)) wird nun ein neuen Body angelegt.

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Martin K
Mitglied
Konstrukteur, CAD Administrator


Sehen Sie sich das Profil von Martin K an!   Senden Sie eine Private Message an Martin K  Schreiben Sie einen Gästebucheintrag für Martin K

Beiträge: 141
Registriert: 24.01.2002

erstellt am: 29. Mrz. 2010 15:27    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Vielen Dank Daniel
Genau das habe ich gesucht.

Gruß Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz