点击文本，在点击块（例如阀门），文本赋值给块属性值？
画PID 图中，中AUTO p&id软件这个软件跟autocad很像，而且也有VBA开发
我插入阀门的时候，想同时能把这个管线号（例如2“-2001-BABZ-HE02）赋值给这个阀门的属性值.
求方法,
最好有代码，谢谢！！！
如果点击文本，再点击刚刚插入的阀门块，就可以把文本内容赋值给阀门块属性值也可以。
本帖最后由 野狼谷/〈M〉 于 2011-12-10 00:09 编辑
请参考这个实例，跟你的需要差不多：
一条已经画好的管线,管径为ＤＮ１００,使插入的管配件也具有ＤＮ１００的特性。假设管配件是阀门,为已经做好的图块。我们可以在插入的过程中不需要关心管径是多少,直接插入阀门信息,从而提高绘图效率。
应用扩展实体数据库的程序为:
（ｄｅｆｕｎｃ：ｉｎｖａｌ（／ｓｓｐｅｄｅｄａｎａｍｅｔｙｐｐ１ｐ２ａｎｇ）
ｓｅｔｑｓｓ（ｅｎｔｓｅｌ）p（ｃａｒ（ｃｄｒｓｓ））ed（ｃａｒｓｓ）eda（ｅｎｔｇｅｔｅｄ）
ｎａｍｅ（ｅｘｎａｍｅｅｄ）;提取扩展实体数据的名称
ｔｙｐ（ｅｘｓｕｂｅｄｎａｍｅ）;提取扩展实体数据信息,即管径信息
ｐ１（ｃｄｒ（ａｓｓｏｃ１０ｅｄａ）;管线的起点坐标
ｐ２（ｃｄｒ（ａｓｓｏｃ１１ｅｄａ）;管线的终点坐标
ａｎｇ（ａｎｇｌｅｐ１ｐ２）;管线角度）
（ｃｏｍｍａｎｄ″ｂｒｅａｋ″ｐ″Ｆ″（ｐｏｌａｒｐａｎｇＢＬ）（ｐｏｌａｒｐ（+ｐｉａｎｇ）ＢＬ）;断开线的距离 ″ｉｎｓｅｒｔ″″阀门″ｐ（*２ＢＬ）″″ａｎｇ）;插入阀门（ｅｘａｄｄｎａｍｅｔｙｐ）;对插入的阀门加入扩展实体数据,即管径。 ）
这一小程序在加载以后,如同ＡｕｔｏＣＡＤ函数一样,只要在命令状态下运行ｉｎｖａｌ,系统提示选择实体时,在插入阀门的位置上点取管线,就会自动把管线先断开,再插入阀门,并且所插入的阀门具有ＤＮ１００的特牲。
注：不是我编的，不好意思占用人家名誉
最好能有个按钮，可以加入CAD面板，就不用每次都找宏了 有偿就好。。。。 苦力活，费时间 geabus 发表于 2011-12-5 12:13 static/image/common/back.gif
苦力活，费时间
我做好了，可以框选赋值
页:
[1]