圆的属性

szliaolj

请部圆的属性是

"AcadCircle"还是"AcdbCircle"

fjfhgdwfn

<RE 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</PRE>

szliaolj

那我在一个资料内看到这样一段

set acadobj=setobj.item(i)

if acadobj.objectname = "acdbcircle" then

cenpnt =acadobj.center

.........

这里的"acdbcircle" 那是什么?

iq0050

定义变量用"ACAD",判断对象类型读取属性时用"ACDB"

szliaolj

哦,知道了,谢了