Como desenhar um círculo no AutoCAD usando AutoCAD VBA e a a função AddCircle() do objeto ModelSpace

' Procedimento que permite desenhar um círculo dados o ponto
' central e o raio
Sub DesenharCirculo()
  ' vamos declarar o objeto Circle
  Dim circulo As AcadCircle
  ' o ponto central
  Dim pontoCentral(0 To 2) As Double
  ' o raio
  Dim raio As Double

  ' vamos definir o ponto central do círculo. Uma boa idéia
  ' seria pedir para o usuário informar o ponto. Em outras dicas
  ' do site essa idéia é explorada
  pontoCentral(0) = 150: pontoCentral(1) = 200: pontoCentral(2) = 0
  ' vamos definir o valor do raio
  raio = 50

  ' e agora desenhamos o círculo
  Set circulo = ThisDrawing.ModelSpace.AddCircle(pontoCentral, raio)
  ' e damos uma Zoom All na área de desenho
  ZoomAll
End Sub