AutoVBA利用AddArc方法创建Arc对象

Public Sub drawarc()
Dim newarcobj As AcadArc
Dim center As Variant
Dim radius As Double
Dim startangle As Double, endangle As Double
With ThisDrawing.Utility
center = .GetPoint(, vbCr & "Click on center point.")
radius = .GetDistance(center, vbCr & "Enter the radius")
startangle = .GetAngle(center, vbCr & "Enter the start angle")
endangle = .GetAngle(center, vbCr & "Enter the end angle")
End With
Set newarcobj = ThisDrawing.ModelSpace.AddArc(center, radius, startangle, endangle)
newarcobj.Update
End Sub