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
Foren auf CAD.de (alle Foren)
| 
