Private Sub Command1_Click()
Dim circleobj As AcadCircle
Dim centerpoint(0 To 2) As Double
Dim radius As Double
centerpoint(0) = 20#: centerpoint(1) = 30#: centerpoint(2) = 0#
radius = 5#
显示黄色行
Set circleobj = acadapp.ActiveDocument.ModelSpace.AddCircle(centerpoint, radius)
ZoomAll
End Sub