我要把其他信息加载进pline线中怎么加？

dwjb

我要把其他信息加载进pline线中怎么加？

比如，点击pl线，在他的对象特性里会出现他的其他属性，可以任意加入很多项，

Student

对Acad自己的pline来说，恐怕做不到这一点。

可自定义实体实现。

 

dwjb

谢谢，能说具体点吗？

mycad

setxdata函数可以解决此问题,

usercoolbo

能说说用法吗？

laoxie_198

Dim datatype(0 To 7) As Integer
Dim data(0 To 7) As Variant
datatype(0) = 1001: data(0) = "pl线的信息
datatype(1) = 1000: data(1) = dwname
datatype(2) = 1003: data(2) = "0"
datatype(3) = 1040: data(3) = 1.232
datatype(4) = 1041: data(4) = id + 1
datatype(5) = 1070: data(5) = 5656
datatype(6) = 1071: data(6) = 32332
datatype(7) = 1042: data(7) = 10
obj.SetXData datatype, data
ThisDrawing.Application.Update

findjoy

dd

dwjb

，你这个VBA我试试

zxj_76

在特征栏不能显示，必须写一个程序设置或读取这些属性是可以做到的。

chtd

与数据库连接也可以作为一种方法。