AutoVBA在一個(gè)For循環(huán)中調(diào)用AddArc方法，創(chuàng)建許多不同大小的同心弧，程序代碼如下。

Sub lotsofarcs()
    Dim newarobj As AcadArc
    Dim center As Variant
    Dim radius As Variant
    Dim startangle As Double, endangle As Double
    Dim counter As Integer
    With ThisDrawing.Utility
        center = .GetPoint(, vbCr & "Click on center point.")
    End With
    For counter = 1 To 5
        radius = counter / 2
        startangle = 0
        endangle = 180
        Set newarcobj = ThisDrawing.ModelSpace.AddArc(center, radius, startangle, endangle)
        newarcobj.Update
    Next
End Sub

代碼完。