​CAD VBA创建一个红色的圆

创建一个圆并将其设置为红色，然后使用 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