利用VBA宏代碼調(diào)用AddCircle方法繪制圓，該函數(shù)需要兩個(gè)參數(shù)，一個(gè)用來(lái)定義圓心坐標(biāo)的數(shù)組，一個(gè)定義圓半徑的實(shí)數(shù)。可以將其存放在變量中獲取利用該函數(shù)創(chuàng)建的圓。

利用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

代碼完。