Autor
|
Thema: innerhalb CATPart in CATProduct arbeiten (1081 mal gelesen)
|
Martin K Mitglied Konstrukteur, CAD Administrator
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 / zitieren --> Unities abgeben:
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
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 / zitieren --> Unities abgeben: Nur für Martin K
|
Martin K Mitglied Konstrukteur, CAD Administrator
Beiträge: 141 Registriert: 24.01.2002
|
erstellt am: 29. Mrz. 2010 14:07 <-- editieren / zitieren --> Unities abgeben:
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
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 / zitieren --> Unities abgeben: Nur für Martin K
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
Beiträge: 141 Registriert: 24.01.2002
|
erstellt am: 29. Mrz. 2010 15:27 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|