Messen zwischen Products (PTC/PTC Creo Elements/Programmierung)

Hallo zusammen,
würde mich wirklich sehr freuen wenn mir jemand von Euch sagen wieso diese Art zu messen fehlschlägt?
Bekomme die Fehlermeldung: Method "Name" of object "measurable" failed
Es kann doch nicht so elend schwer sein per Script zwei Products zueinander zu vermessen

Anbei der Code dazu:
DANKE!!!

Sub MeasureTest()

' Messen zwischen zwei Products

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

' RootProd
Dim Product1 As Product
Set Product1 = productDocument1.Product

' ComponentLevel 1
Dim product2 As Product
Set product2 = Product1.Products.Item(1)

' ComponentA
Dim productMea1 As Product
Set productMea1 = product2.Products.Item(1)

'ComponentB
Dim productMea2 As Product
Set productMea2 = product2.Products.Item(2)

' Build Path to products to be measured
s_RootProdName = Product1.Name
s_LoadcaseProdName = product2.Name
s_RefProd1Name = productMea1.Name
s_RefProd2Name = productMea2.Name

Dim s_refName1 As String
s_refName1 = s_RootProdName & "/" & s_LoadcaseProdName & "/" & s_RefProd1Name & "/"

Dim s_refName2 As String
s_refName2 = s_RootProdName & "/" & s_LoadcaseProdName & "/" & s_RefProd2Name & "/"

' create references
Set Ref1 = product2.CreateReferenceFromName(s_refName1)
Set Ref2 = product2.CreateReferenceFromName(s_refName2)

Dim TheSPAWorkbench As Workbench
Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")

Dim TheMeasurable1 As Measurable
Set TheMeasurable1 = TheSPAWorkbench.GetMeasurable(Ref1)

Dim TheMeasurable2 As Measurable
Set TheMeasurable2 = TheSPAWorkbench.GetMeasurable(Ref2)

'Dim MinimumDistance As Double
MinimumDistance = TheMeasurable1.GetMinimumDistance(Ref2)

End Sub

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