Comment créer un cercle en VBA

Sub AjoutCercle()

' Définir le Point de centre
Dim ptCen(0 To 2) As Double
ptCen(0) = 10: ptCen(1) = 10: ptCen(2) = 0#
' Création du cercle de rayon 5 dans l'espace objet

Dim MonCercle As AcadCircle

Set MonCercle =ThisDrawing.ModelSpace.AddCircle(ptCen, 5)

ThisDrawing.Application.ZoomAll

End Sub

Retour à la liste