利用VBA宏代碼調用AddCircle方法繪制圓，該函數需要兩個參數，一個用來定義圓心坐標的數組，一個定義圓半徑的實數?？梢詫⑵浯娣旁谧兞恐蝎@取利用該函數創建的圓。

利用AddCircle方法繪制圓的示例代碼如下。

Public Sub drawcircle()
    Dim circleobject As AcadCircle
    Dim center As Variant
    Dim radius As Double
    With ThisDrawing.Utility
        center = .GetPoint(, "Click the position for the center.")
        radius = .GetDistance(center, "Enter the radius.")
    End With
    Set circleobject = ThisDrawing.ModelSpace.AddCircle(center, radius)
    circleobject.color = acRed
    circleobject.Update
End Sub

代碼完。