点击文本，在点击块（例如阀门），文本赋值给块属性值？

xin-ge

画PID 图中，中AUTO p&id软件
这个软件跟AutoCAD很像，而且也有VBA开发


我插入阀门的时候，想同时能把这个管线号（例如2“-2001-BABZ-HE02）赋值给这个阀门的属性值.
求方法,
最好有代码，谢谢！！！


如果点击文本，再点击刚刚插入的阀门块，就可以把文本内容赋值给阀门块属性值也可以。

野狼谷/〈M〉

　请参考这个实例，跟你的需要差不多：
     一条已经画好的管线,管径为ＤＮ１００,使插入的管配件也具有ＤＮ１００的特性。假设管配件是阀门,为已经做好的图块。我们可以在插入的过程中不需要关心管径是多少,直接插入阀门信息,从而提高绘图效率。
　　应用扩展实体数据库的程序为:  
　　（ｄｅｆｕｎｃ：ｉｎｖａｌ（／ｓｓｐｅｄｅｄａｎａｍｅｔｙｐｐ１ｐ２ａｎｇ）  
　　ｓｅｔｑｓｓ（ｅｎｔｓｅｌ）p（ｃａｒ（ｃｄｒｓｓ））ed（ｃａｒｓｓ）eda（ｅｎｔｇｅｔｅｄ）  
　　ｎａｍｅ（ｅｘｎａｍｅｅｄ）;提取扩展实体数据的名称  
　　ｔｙｐ（ｅｘｓｕｂｅｄｎａｍｅ）;提取扩展实体数据信息,即管径信息  
　　ｐ１（ｃｄｒ（ａｓｓｏｃ１０ｅｄａ）;管线的起点坐标  
　　ｐ２（ｃｄｒ（ａｓｓｏｃ１１ｅｄａ）;管线的终点坐标  
　　ａｎｇ（ａｎｇｌｅｐ１ｐ２）;管线角度  ）  
　　（ｃｏｍｍａｎｄ″ｂｒｅａｋ″ｐ″Ｆ″（ｐｏｌａｒｐａｎｇＢＬ）（ｐｏｌａｒｐ（+ｐｉａｎｇ）ＢＬ）;断开线的距离 ″ｉｎｓｅｒｔ″″阀门″ｐ（*２ＢＬ）″″ａｎｇ）;插入阀门（ｅｘａｄｄｎａｍｅｔｙｐ）;对插入的阀门加入扩展实体数据,即管径。 ）  
　　这一小程序在加载以后,如同ＡｕｔｏＣＡＤ函数一样,只要在命令状态下运行ｉｎｖａｌ,系统提示选择实体时,在插入阀门的位置上点取管线,就会自动把管线先断开,再插入阀门,并且所插入的阀门具有ＤＮ１００的特牲。  

注：不是我编的，不好意思占用人家名誉

xin-ge

最好能有个按钮，可以加入CAD面板，就不用每次都找宏了

geabus

有偿就好。。。。

geabus

苦力活，费时间

xin-ge

geabus 发表于 2011-12-5 12:13
苦力活，费时间

我做好了，可以框选赋值