AddCircle method example

Sub AddCircleExample()
' This example creates a circle with a radius of 4 and
' adds it to the drawing using the AddCircle method.
    Dim ctrPt(0 To 2) As Double
    ctrPt(0) = 1: ctrPt(1) = 2: ctrPt(2) = 0
    Dim myCircle As AcadCircle
    Set myCircle = ThisDrawing.ModelSpace.AddCircle(ctrPt, 4)
    myCircle.Update
    ThisDrawing.Application.ZoomExtents
    MsgBox "Circle created w/ center point at 1,2.", vbInformation, "AddCircle Example"
End Sub