---

Hallo! Wer kann mir helfen? Ich habe sehr häufig große Baugruppen in Step-Dateien umzuwandeln. Damit auch die richtigen Daten als Step ausgeschrieben werden, müssen vorher alle Hauptkörper der einzelnen Komponenten aktiv gesetzt werden. Daher suche ich ein Makro oder ähnliches, mit dem ich alle Hauptkörper einer Baugruppe  aktiv schalten kann. Ich hoffe, ich habe mich verständlich ausgedrückt und jemand kann mir helfen!
Vielen Dank im Voraus!

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

---

Hallo,

folgendes Script tuts dafür:

Sub CATMain()

Set documents1 = CATIA.Documents

for i = 1 to documents1.count
on error resume next
set partdocument1 = documents1.item(i)
Set part1 = partDocument1.Part

Set bodies1 = part1.Bodies

Set body1 = bodies1.Item("PartBody")

part1.InWorkObject = body1

next
End Sub

Wenn du mit deutscher Oberfläche arbeitest gibst du "Hauptkörper" statt "PartBody" an.

------------------
Grüße aus dem Rheinland

Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

"Phase 2 in CATIA V5"  - www.tobeplus.de

        tberger@tobeplus.de 

[Diese Nachricht wurde von tberger am 21. Sep. 2009 editiert.]

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

---

Hallo,

oder sprachunabhängig:

Code:

---

Sub CATMain()

Set documents1 = CATIA.Documents

for i = 1 to documents1.count
on error resume next
set partdocument1 = documents1.item(i)
Set part1 = partDocument1.Part

Set body1 = part1.MainBody

part1.InWorkObject = body1

next
End Sub

---

Gruß,
Zoltan

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

---

Sub CATMain()

Set documents1 = CATIA.Documents

for i = 1 to documents1.count
on error resume next
set partdocument1 = documents1.item(i)
Set part1 = partDocument1.Part
part1.InWorkObject = part1.MainBody

next
End Sub

EDIT:
Jetzt ist mir Zoltan zuvorgekommen ...

------------------
Grüße aus dem Rheinland

Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

"Phase 2 in CATIA V5"  - www.tobeplus.de

        tberger@tobeplus.de 

[Diese Nachricht wurde von tberger am 21. Sep. 2009 editiert.]

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

---

Hallo!
Vielen Dank für die schnellen Antworten!! Habe alles schon eingearbeitet; Klappt super!
Grüße M.Oltmanns

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