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

szliaolj 发表于 2006-12-5 09:21:00

那我在一个资料内看到这样一段
set acadobj=setobj.item(i)
if acadobj.objectname = "acdbcircle" then
cenpnt =acadobj.center
.........
这里的"acdbcircle" 那是什么?

iq0050 发表于 2006-12-5 09:45:00

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

szliaolj 发表于 2006-12-6 14:04:00

哦,知道了,谢了
页: [1]
查看完整版本: 圆的属性