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

圆的属性

<P>请部圆的属性是</P>
<P>"AcadCircle"还是"AcdbCircle"</P>

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

<PRE 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 发表于 2006-12-5 09:21:00

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

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

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

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

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