Achso,
wenn ich das anhand eines Parts mit dem Makro Rekorder mache kommt heraus:
Language="VBSCRIPT"
Sub CATMain()
Set partDocument1 = CATIA.ActiveDocument
Set product1 = partDocument1.GetItem("Österreich")
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
Set part1 = partDocument1.Part
Set parameters1 = part1.Parameters
Set strParam1 = parameters1.Item("Properties\PTC_WM_NUMBER")
strParam1.Value = "Oesterreich"
Set parameters2 = part1.Parameters
Set strParam2 = parameters2.Item("Properties\PTC_WM_NAME")
strParam2.Value = "Oesterreich"
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
Set product1 = product1.ReferenceProduct
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP