Moin Mutzi,
versuch mal folgenden Code:
-----------------------
Code
-----------------------
Set SPAWb = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Set oRef = CATIA.ActiveDocument.Part.CreateReferenceFromObject(My2DSpline)
Set oMeas = SPAWb.GetMeasurable(oRef)
Dim dLen As Double
dLen = oMeas.Length
-----------------------
Code Ende
-----------------------
Bei mir funktioniert das.
Gruß
Proofin
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP