VBA CATIA focntion Get.... ne marche pas

[gourmand]

bonjour.

 

je recherche à connaitre les coordoné des deux poit au extrémité d'une ligne.

 

mais jais baut utilisé les fonction que je trouve sur les forums (surtout GetCoordinates), sa ne marche pas (erreur: la methode a echoué )

 

 

voici le code que j'ai tésté (la derniere version)

 

Dim ligneAMesure As HybridShapeLineNormal
           Set ligneAMesure = myHybridBodies.Item("Normales").HybridShapes.Item(1)
           Dim pointSurLigne As Reference
           Set ref_pointSurLigne = ligneAMesure.point
           
           Set objSPAWorkbench = partDocument1.GetWorkbench("SPAWorkbench")
           Dim Coordinates(8)
           Set TheMeasurable = objSPAWorkbench.GetMeasurable(ref_pointSurLigne)
           TheMeasurable.GetPointsOnAxis Coordinates

 

 

la ligne est une : HybridShapeLineNormal (normale a une face)

créé a partir d'une surface et d'un point de type : HybridShapePointOnCurve (sur une ligne)

 

 

merci d'avence

[gourmand]

j'ai résolu mon probleme, en creant une seconde référence sur l'objet :

Set ligneAMesure = ref_pointSurLigne.Item(1).Value
Set TheMeasurable = objSPAWorkbench.GetMeasurable(ligneAMesure)