圆的属性

szliaolj · 发表于 2006-12-3 15:30:00

请部圆的属性是
"AcadCircle"还是"AcdbCircle"

fjfhgdwfn · 发表于 2006-12-4 11:50:00

&ltRE class=Code>Sub Example_AddCircle()
' This example creates a circle in model space.

Dim circleObj As AcadCircle
Dim centerPoint(0 To 2) As Double
Dim radius As Double

' Define the circle
centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
radius = 5#

' Create the Circle object in model space
Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
ZoomAll

End Sub