Rédaction Macro Coordonnées vecteur dans CATIA

[Invité Dinho]

Bonjour,

je cherche à écrire une macro qui mesure les coordonnées vectorielles d'une droite modélisé dans une part, sur catia V5.

 

 

Le programme que j'ai rédigé est le suivant:

 

Sub SelectionAxe()

Dim ActiveProductDocument

Dim product3

Dim Product3Products

Dim Product2Dot1

Dim Product2

Dim ProductDocument2

Dim Product2Products

Dim Product1Dot1

Dim Product1

Dim ProductDocument1

Dim Product1Products

Dim Part1Dot1

Dim Part1

Dim PartDocument1

Dim MaSelection

Dim LigneMesurer

Dim Ligne1

Dim Selection2

Dim ActivePartDocument

Dim PartEcu

Dim Corps

Dim PartDocument1Selection

Dim ReferenceLigne1

Dim AxisSystem0

 

 

 

 

Set ActiveProductDocument = CATIA.ActiveDocument

Set product3 = ActiveProductDocument.Product

Set Product3Products = product3.Products

Set Product2Dot1 = Product3Products.Item("P27349B"): Set Product2 = Product2Dot1.ReferenceProduct ' Item (53=inertie equivalente mep) sera un paramètre d'entrée

Set ProductDocument2 = Product2.Parent

Set Product2Products = Product2.Products

Set Product1Dot1 = Product2Products.Item("NA10044_CALCUL_INERTIE_MEP"): Set Part1 = Product1Dot1.ReferenceProduct

 

Set PartDocument1 = Part1.Parent

Set PartEcu = PartDocument1.Part

Set PartDocument1Selection = PartDocument1.Selection

Set Corps = PartEcu.HybridBodies.Item("SET CONSTRUCTION ")

Set Ligne1 = Corps.HybridShapes.Item("Line.81")

Set ReferenceLigne1 = PartEcu.CreateReferenceFromGeometry(Ligne1)

 

AxisSystem0.XAxisDirection = ReferenceLigne1

 

 

End Sub

 

 

 

Et VBcat me sors comme message d'erreur " run-time error 424 object is required '

 

que faire? Merci d'avance.