PAPA8399 发表于 2006-6-16 16:25:00

<P>可以得到多义线的坐标么，</P>
<P>坐标属性是什么。。。。？</P>
<P>&nbsp;</P>

xinghesnak 发表于 2006-6-17 08:21:00

<P><BR>Function XData()</P>
<P>Dim lineObj As AcadLine<BR>Dim startPt(0 To 2) As Double, endPt(0 To 2) As Double<BR>startPt(0) = 1#: startPt(1) = 1#: startPt(2) = 0#<BR>endPt(0) = 5#: endPt(1) = 5#: endPt(2) = 0#<BR>Set lineObj = ThisDrawing.ModelSpace.AddLine(startPt, endPt)<BR>ZoomAll</P>
<P>Dim xt, xd<BR>Dim datatype(1) As Integer, data(1)<BR>datatype(0) = 1001: data(0) = "myapp"<BR>datatype(1) = 1000: data(1) = "&Acirc;&Yacute;&Euml;&iquest;"<BR>lineObj.SetXdata datatype, data<BR>lineObj.getXData "myapp", xt, xd<BR>MsgBox xd(1)</P>
<P>End Function</P>

bluefires 发表于 2006-6-17 22:05:00

我在单位试验成功了，就是用 obj.setxdata方法，然后再getxdata，你看看帮助文档就可以了，不难。
页: 1 [2]
查看完整版本: 请问如何给多义线增加属性