---

Hallo möchte gern ein Makro erstellen mit dem ich alle Hauptkörper(Bodies) in der Produktstruktur in Bearbeitung setzen kann (define in Work).
Wie muss ich das Makro ändern das er dies automatisch in allen Parts den Hauptkörper aktive setzt:
Makro lautet:

Language="VBSCRIPT"

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
' hier den Namen von Fertigteil auf deinen Main ändern
Set body1 = bodies1.Item("Hauptkörper")

part1.InWorkObject = body1

next
End Sub

Hoffe auf eure Unterstützung bzw. vl. gibt es ja in dieser Richtung schon etwas

MFG Catiawest

------------------
Mit freundlichen Grüßen
Catiawest

NIHIL IMPOSSIBILE =)

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

---

Servus
Dieses Makro lässt sich erzeugen, indem du rekursiv (Forensuche) durch die Produktstruktur durch gehst, und bei jedem Part deinen Code ausführst.
Alternativ könnte dass noch durch eine Selektion gehen, zB (ungetestet):

Code:

---

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search "CATProductSearch.Part,all"

For X = 1 To selection1.Count2
    Dim part As part
    Set part = selection1.Item2(X).Value.ReferenceProduct.Parent.part
   
    part.InWorkObject = part.MainBody

Next

End Sub

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

[Diese Nachricht wurde von bgrittmann am 19. Mai. 2010 editiert.]

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

---

Danke für die schnelle Antwort bgrittmann,
Das war genau das was ich gesucht habe. Wie würdest du diese Selektion verwirklichen? Aber erstmals Danke, für deine gute Hilfe.

MFG Catiawest 

------------------
Mit freundlichen Grüßen
Catiawest

NIHIL IMPOSSIBILE =)

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