---

Hallo werte Kollegen,

bin ziemlich neu mit den Makos, daher steck ich gerade fest.
Ich möchte in einem Part(steht ganz oben im Strukturbaum) mit Hilfe eines Makros die Teilenummer auslesen und in den Namen des Hauptkörpers kopieren.

Also so ,als ob ich rechte Mausklick auf die Hauptbauteilbezeichnung gehe; in die Eigenschaften und mir über Copy die Teilenummer rauszieh und die dann in meinen Hauptköper einfüg.

Ich hoffe jemand hat eine Idee.

Vielen Dank im Vorraus.

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

---

Hab´s jetzt geschafft und den Hauptkörper in "Define in Work gesetzt. Vielleicht hilft es in Zukunft ja jemandem.

Language = "VBSCRIPT"

Sub CATMain()

Set PRTDOC=CATIA.ActiveDocument
Set PRT = PRTDOC.Part
Set BODIES = PRT.Bodies
Set PRTBODIE=PRT.MainBody

PNA = PRT.Name

'Übernahme Dokumentenname in Hauptkörpername

PRTBODIE.Name=PRT.Name

' PART In Work Object setzen

Set BODY = BODIES.Item(PNA)
PRT.InWorkObject = BODY

End Sub

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