vba mesure entité

[XGX4]

bonjour,

 

Je souhaiterais savoir comment je peux créer une mesure de longueur dans CATIA.

 

J'arrive à l'afficher via une msgbox avec le code suivant:

Dim ref1 As Reference
Set ref1 = courbe
Set spabench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Set longueur = spabench.GetMeasurable(ref1)
result = longueur.Length
MsgBox "FIBRE = " & result & " mm"

 

mais comment faire pour que cette mesure soit un objet CATIA ?

 

Par avance, merci