Moin,
vielen Dank schonmal für die Hilfe nur leider hat mich das immer noch nicht so richtig weitergebracht bzw. weiß ich nicht wie man genau über den Instanznamen geht
. Ich versuchs hier nochmal an meinem aktuellen Code zu zeigen, der jedoch nicht genau das macht was er soll.
Ausgangslage:
Hauptprodukt
-Produkt_1(Produkt_1.1)
--Part_1(Part_1.1)
---Part_1
--Part_2(Part_2.1)
---Part_2
-Produkt_2(Produkt_2.1)
--Part_1(Part_1.1)
---Part_1
--Part_2(Part_2.1)
---Part_2
Part_1 und Part_2 sind jeweils gleich und wurden jeweils einmal in die Produkte Produkt_1 und Produkt_2 eingesetzt.
Dim was1(0)
Dim produkte()
Dim parts()
Sub CATMain()
'Allgemein
Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set selection1 = CATIA.ActiveDocument.Selection
selection1.Clear
'Produkt abfragen
was1(0) = "Product"
auswahl = selection1.SelectElement2(was1, "Bitte Produkt auswählen", True)
Set produktAuswahl = selection1.Item(1).Value
'Produkte abfragen
selection1.Clear
selection1.Add produktAuswahl
selection1.Search "CATProductSearch.Part,sel"
produktAnzahl = selection1.Count
For i = 1 To produktAnzahl
ReDim Preserve produkte(i + 1)
Set produkte(i) = selection1.Item(i).Value
Next
''Parts abspeichern Versuch 1
'selection1.Clear
'selection1.Add produktAuswahl
'selection1.Search "CATPrtSearch.PartFeature,sel"
'partAnzahl = selection1.Count
'For i = 1 To partAnzahl
' ReDim Preserve parts(i + 1)
' Set parts(i) = selection1.Item(i).Value
'Next
'Parts abspeichern Versuch 2
partAnzahl = 0
For i = 1 To produktAnzahl
selection1.Clear
selection1.Add produkte(i)
selection1.Search "CATPrtSearch.PartFeature,sel"
For j = 1 To selection1.Count
partAnzahl = partAnzahl + 1
ReDim Preserve parts(partAnzahl + 1)
Set parts(partAnzahl) = selection1.Item(j).Value
Next
Next
'...anderer Code
'Abgespeicherte Parts markieren
selection1.Clear
For i = 1 To partAnzahl
selection1.Add parts(i)
Next
'...anderer Code
End Sub
Mit dem Code werden die Parts abgespeichert, leider jedoch teilweise die aus dem anderen Produkt, sodass am Ende die Parts in Produkt_1 markiert sind, obwohl der Benutzer Produkt_2 ausgewählt hat. Ich bin ja auch schon soweit, dass man irgendwie über den kompletten Pfad gehen muss, weil da ja dann drinsteht ...Produkt_1... oder ...Produkt_2... ich weiß nur leider nicht wie ich das umsetzen soll.
Grüße und wieder vielen Dank im Voraus
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP