创建一个圆并将其设置为红色,然后使用 Update 方法更新该圆,并使其在 AutoCAD 中可见。
Sub 画红色圆()
Dim circleObj As AcadCircle
Dim center(0 To 2) As Double
Dim radius As Double
center(0) = 1: center(1) = 1: center(2) = 0
radius = 1
' 创建圆并将其设置为红色
Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius)
circleObj.color = acRed
' 更新圆
circleObj.Update
End Sub