Étape 1: Vidéo et Codes VBA
Télécharger le code complet à
' www.computeraidedautomation.com
Private Sub CommandButton1_Click()
Me.Hide "masquer l’éditeur lors de l’exécution de la macro
Dim R As Variant
Dim X As Variant
Dim Y As Variant
Dim Centre (0 à 2) As Double
Dim objEnt As AcadCircle
On Error Resume Next ' contournement exécutez Erreurs
Avec ThisDrawing.Utility
R = TextBox1.Text
X = TextBox2.Text
Y = TextBox3.Text
Center(0) = X: Center(1) = y: Center(2) = 0
Se termine par
"tracer le cercle
Si ThisDrawing.ActiveSpace = acModelSpace Then
Set objEnt = ThisDrawing.ModelSpace.AddCircle (Center, R)
D’autre
Set objEnt = ThisDrawing.PaperSpace.AddCircle (Center, R)
End If
objEnt.Update
End Sub