在CAD模型空间里画一个圆

dl.lzc

Sub Example_AddCircle()
    ' 这是在模型空间画一个圆的例子.
  
    Dim circleObj As AcadCircle
    Dim centerPoint(0 To 2) As Double
    Dim radius As Double
   
    ' 定义圆
    centerPoint(0) = 0# 'X坐标
    centerPoint(1) = 0# 'Y坐标
    centerPoint(2) = 0# 'Z坐标
    radius = 5# '半径
   
    ' 在模型空间里画圆
    Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
    ZoomAll
   
End Sub

monkeylzx

这是什么意思？没看懂呢。