Dessiner dans un Drawing par macro

Bonjour,

Je souhaiterais connaître des méthodes pour dessiner directement dans un Drawing des formes géométriques. Le but est de n'utiliser aucun 3D mais de créer des formes à peu près rectangulaires et y placer ensuite des repères afin de faire une nomenclature. Tout ça à partir d'un excel.

Merci !

Bonjour,

Il faut récupérer l'objet Factory2D de la vue dans laquelle tu veux dessiner. Cet objet CATIA te permet ensuite de dessiner un peu tout.

ex:

Code:


Sub toto()

'Récupère le CATdrawing actif dans CATIA
Dim MyDrawing As DrawingDocument
Set MyDrawing = CATIA.ActiveDocument

'Ajoute une vue dans le premier calque du catdrawing
Dim MyView As DrawingView
Set MyView = MyDrawing.Sheets.Item(1).Views.Add("Test." & MyDrawing.Sheets.Item(1).Views.Count)

'Active la vue (sinon la génération ne fonctionne pas)
MyView.Activate

'Récupère l'object Factory2D
Dim F2D As Factory2D
Set F2D = MyView.Factory2D

'Ajoute une ligne dans le draw
Dim MyLine As Line2D
Set MyLine = F2D.CreateLine(10, 10, 50, 50)

'Ajoute un cercle
'<!> Attention aux valeurs en Radians 2*Pi(Rad) = 360° = 8 * Math.Atn(1)
Dim MyCircle As Circle2D
Set MyCircle = F2D.CreateCircle(10, 10, 25, 0, 8 * Math.Atn(1))

End Sub


merci beaucoup ! je m'en suis sorti !