我要把其他信息加载进pline线中怎么加?
<P>我要把其他信息加载进pline线中怎么加?</P><P>比如,点击pl线,在他的对象特性里会出现他的其他属性,可以任意加入很多项,</P><BR> <P>对Acad自己的pline来说,恐怕做不到这一点。</P>
<P>可自定义实体实现。</P>
<P> </P> <P>谢谢,能说具体点吗?</P> setxdata函数可以解决此问题, 能说说用法吗? <p><font size="2"></font></p><p><font size="2"></font></p><p><font size="2">Dim datatype(0 To 7) As Integer<br/>Dim data(0 To 7) As Variant<br/>datatype(0) = 1001: data(0) = "pl线的信息<br/>datatype(1) = 1000: data(1) = dwname<br/>datatype(2) = 1003: data(2) = "0"<br/>datatype(3) = 1040: data(3) = 1.232<br/>datatype(4) = 1041: data(4) = id + 1<br/>datatype(5) = 1070: data(5) = 5656<br/>datatype(6) = 1071: data(6) = 32332<br/>datatype(7) = 1042: data(7) = 10<br/>obj.SetXData datatype, data<br/>ThisDrawing.Application.Update</font><br/></p>
re
dd ,你这个VBA我试试 在特征栏不能显示,必须写一个程序设置或读取这些属性是可以做到的。 与数据库连接也可以作为一种方法。
页:
[1]