请问如何给多义线增加属性

PAPA8399

可以得到多义线的坐标么，

坐标属性是什么。。。。？

 

xinghesnak

Function XData()

Dim lineObj As AcadLine
Dim startPt(0 To 2) As Double, endPt(0 To 2) As Double
startPt(0) = 1#: startPt(1) = 1#: startPt(2) = 0#
endPt(0) = 5#: endPt(1) = 5#: endPt(2) = 0#
Set lineObj = ThisDrawing.ModelSpace.AddLine(startPt, endPt)
ZoomAll

Dim xt, xd
Dim datatype(1) As Integer, data(1)
datatype(0) = 1001: data(0) = "myapp"
datatype(1) = 1000: data(1) = "ÂÝË¿"
lineObj.SetXdata datatype, data
lineObj.getXData "myapp", xt, xd
MsgBox xd(1)

End Function

bluefires

我在单位试验成功了，就是用 obj.setxdata方法，然后再getxdata，你看看帮助文档就可以了，不难。