Macro CAO avec VBA

[lyda]

Bonojur à tous! :)

 

Je voudrais savoir les possibles instructiones pour faire une macro en CAO en VBA. Le but de cette macro c'est de créer des points sur une surface sélectionnée, aprés créer leur normales et finalment créer un affiche avec qui contient les coordonnées de ces points avec les coordonnées de leurs normales.

 

Un éleve et moi on a fait la dernière partie de la macro (l'extrait des coordonnées sur l'affiche) mais le problème c'est pour créer les points dedans la surface, parce que pour les créer on doit spécifier les coordonnées, et le but c'est de les créer avec la macro n'importe où dedans la surface. Quelles instructiones pouvez-vous nous conseiller?

 

Sub CATMain()

 

Dim partDocument1 As PartDocument

Set partDocument1 = CATIA.ActiveDocument

 

Dim part1 As Part

Set part1 = partDocument1.Part

 

Dim hybridShapeFactory1 As HybridShapeFactory

Set hybridShapeFactory1 = part1.HybridShapeFactory

 

Dim hybridShapePointCoord1 As HybridShapePointCoord

Set hybridShapePointCoord1 = hybridShapeFactory1. AddNewPointCoord(-24.073, -11.286, 20#)

Dim bodies1 As Bodies

Set bodies1 = part1.Bodies

 

Dim body1 As Body

Set body1 = bodies1.Item("Corps principal")

 

body1.InsertHybridShape hybridShapePointCoord1

 

part1.InWorkObject = hybridShapePointCoord1

 

part1.Update

 

Merci par l'avance.