---

Hallo zusammen,

habe eine Produktstruktur und möchte einen Körper in irgendeinem Part selektieren.. Für weitere Operationen brauche ich den Namen des Parts, in welchem ich den Körper selektiert habe..

Die Suchfunktion und Google haben mich leider nicht weiter gebracht, wusste allerdings auch nicht genau wie ich mein Problem kurz und knapp formulieren sollte..

Danke schonmal!

Hier mal der bisherige Code:

Code:

---

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim productDocument1 As ProductDocument
Set productDocument1 = documents1.Item(CATIA.ActiveDocument.Name)
   
Dim product1 As Product
Set product1 = productDocument1.Product

Dim selection1
Set selection1 = productDocument1.Selection

selection1.Clear

Dim UserSel As String

Dim SelectionFilter(0)
SelectionFilter(0) = "Body"

UserSel = selection1.SelectElement2(SelectionFilter, "Bitte Körper wählen!", False)

If UserSel = "Cancel" Then
  GoTo ende
End If

End Sub

---

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

---

Servus
Sollte über das LeafProduct gehen:
MsgBox selection1.item2(1).LeafProduct.name
bzw
MsgBox selection1.item2(1).LeafProduct.ReferenceProduct.name

Gruß
Bernd

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

[Diese Nachricht wurde von bgrittmann am 11. Nov. 2011 editiert.]

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

---

Funktioniert, danke!

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