---

Guten Morgen,

ich habe ein Makro aufgezeichnet, um im Part zusätzliche Properties (Testparameter/Testwert) zu definieren.

Language="VBSCRIPT"
Sub CATMain()
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim product1 As CATBaseDispatch
Set product1 = partDocument1.GetItem("PART4")
Dim parameters1 As Parameters
Set parameters1 = product1.UserRefProperties
Dim strParam1 As StrParam
Set strParam1 = parameters1.CreateString("Testparameter", "")
strParam1.ValuateFromString "Testwert"
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
End Sub

Das Problem ist, dass dieses Makro nur in diesem Part funktionert ("PART4"). Was muss bei "Set product1 = partDocument1.GetItem("PART4")" stehen, damit es in jedem beliebigen Part funktioniert?

Gruß Sven

------------------
Ein Spezialist ist jemand, der immer mehr von immer weniger versteht.

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

---

Servus
Versuch es mal so:
Set product1 = partDocument1.Product

Gruß
Bernd

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

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

---

Danke, das klappt. Hatte es schon mit partDocument1.Part versucht, aber kläglich gescheitert.
Schönes WE

------------------
Ein Spezialist ist jemand, der immer mehr von immer weniger versteht.

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