如何定义带有自定义属性的多段线

一克拉沙

      最近开始使用鸿业市政管线软件进行设计，发现一个比较强大的功能，鸿业定义的管线具有管径和标高属性，而且将管线复制到其他图纸里，使用鸿业打开，可以识别该管线属性。
     对于这个问题感觉比较奇怪，在复制管线的时候并没有其他配置文件，为何复制到其他图纸里可以显示出该管线管径和标高等属性，难道该管线多段线带有自定义属性，百思不得其解啊，请高手帮忙解答啊。
     另外，可以自己实现带有属性的多段线吗？

感谢"h008 "提醒使用字典给多段线添加属性，查了一下资料，写了一个给多段线添加并获取属性的函数，比较简单，大家不要吐槽啊。看看还有没有什么其他更好的方法来实现。
代码如下：

2. ;;;设置管线属性
   
3. (defun c:setAttr ()
   
4.   (princ "\n >>>拾取曲线: ")
   
5.   (setq  ent (ssget '((0 . "*LINE,ARC,ELLIPSE"))) )  ;选择集
   
6.   (setq i 0)
   
7.   (repeat (sslength ent)
   
8.         (setq gxPipe(ssname ent i))
   
9.         (VLAX-LData-Put gxPipe "gc" "PVC")  ;gc:管材
   
10.         (VLAX-LData-Put gxPipe "gj" "110")  ;gj:管径
    
11.         (setq i (1+ i))
    
12.   )
    
13.   (princ)
    
14. )
    
15. 
    
16. ;;;获得管线属性
    
17. (defun c:getAttr ()
    
18.     (setq gxPipe (Car (EntSel "\n请选择检看属性线: ")))
    
19.     (setq  gxPipe (VLAX-Ename->VLA-Object gxPipe)
    
20.              attr1  (VLAX-LData-Get gxPipe "gc")
    
21.              attr2  (VLAX-LData-Get gxPipe "gj")
    
22.     )
    
23.    (princ (strcat "\n管材：" attr1 "\t管径：" attr2))
    
24.    (princ)
    
25. )
    
26. (princ)
    
27. (princ "\n添加属性:setAttr\t获得属性:getAttr\n")

;;;设置管线属性<br /> (defun c:setAttr ()<br />   (princ "\n >>>拾取曲线: ")<br />   (setq  ent (ssget '((0 . "*LINE,ARC,ELLIPSE"))) )  ;选择集 <br />   (setq i 0)<br />   (repeat (sslength ent)<br />         (setq gxPipe(ssname ent i))<br />         (VLAX-LData-Put gxPipe "gc" "PVC")  ;gc:管材<br />         (VLAX-LData-Put gxPipe "gj" "110")  ;gj:管径<br />         (setq i (1+ i))<br />   )<br />   (princ)<br /> )<br /> <br /> ;;;获得管线属性<br /> (defun c:getAttr ()<br />     (setq gxPipe (Car (EntSel "\n请选择检看属性线: ")))<br />     (setq  gxPipe (VLAX-Ename->VLA-Object gxPipe)<br />              attr1  (VLAX-LData-Get gxPipe "gc")<br />              attr2  (VLAX-LData-Get gxPipe "gj")<br />     )<br />    (princ (strcat "\n管材：" attr1 "\t管径：" attr2))<br />    (princ)<br /> )<br /> (princ)<br /> (princ "\n添加属性:setAttr\t获得属性:getAttr\n")

鸿业定义的管线属性如下：
  

h008

应该是用字典实现的吧

自贡黄明儒

我也想知道，提供一张测试图，是不是这样的呢?

一克拉沙

好像天正电气也有类似功能的，不知道怎么实现的。我试了一下用entget获得多段线图元信息，没发现什么特别的地方。

一克拉沙

h008 发表于 2014-3-18 14:11
应该是用字典实现的吧

字典？可以说具体点吗？用字典也需要其他电脑鸿业要定义同样类型管材的吧，拷贝的管线本身应该带有某些属性的。

h008

使用图元字典就数据就附在图元上了

刚刚试了下，应该就是图元字典了。把图元拷贝到别的文件一样会把字典带着

一克拉沙

h008 发表于 2014-3-19 11:32
使用图元字典就数据就附在图元上了

刚刚试了下，应该就是图元字典了。把图元拷贝到别的文件一样会把字典 ...

嗯，我也试了下可以的。谢谢提醒啊。
vlax-ldata-put()给指定图元添加字典内容，
vlax-ldata-get()获得图元字典内容。用这两个函数可以实现自定义属性的多线段。

vectra

确定不是扩展数据？

vormittag

这种发帖方式真恶劣。

一克拉沙

vectra 发表于 2014-3-20 08:35
确定不是扩展数据？

扩展数据应该也可以实现的吧，我还没试过。有空试试看。