香田里浪人 发表于 2013-7-19 06:43:36

求教点击显示改为动态显示

给某个图形对象添加或提取非图形数据，代码如下：
(defun C:jiaru ()
(setq en (car (entsel "\n选择要加入说明的图形: "))
en (vlax-ename->vla-object en)
a (getstring "\n添加内容: ")
)
(vlax-ldata-put en "UKey1" a)
(vlax-ldata-put en "UKey2" '(alert (strcat "说明: " a)))
)
(defun C:tiqu ()
(setq en (car (entsel "\n选择要提取说明的图形: "))
en (vlax-ename->vla-object en)
)
(setq a (vlax-ldata-get en "UKey1"))
(eval (vlax-ldata-get en "UKey2"))
)
如何修改才能将现有点击显示变成动态显示（鼠标移到就显示，鼠标离开就消失）恳请高手帮忙修改。谢谢！

zyhandw 发表于 2013-7-19 10:47:49

参考下高飞鸟的帖试试：http://bbs.mjtd.com/thread-90447-5-1.html

香田里浪人 发表于 2013-7-19 11:47:13

zyhandw 发表于 2013-7-19 10:47 static/image/common/back.gif
参考下高飞鸟的帖试试：http://bbs.mjtd.com/thread-90447-5-1.html

谢谢您，限于本人水平低，是菜鸟的菜鸟。确实不懂得。如方便，麻烦您帮忙改一下。谢谢！

zyhandw 发表于 2013-7-19 14:20:08

我也是菜鸟，要不你试试这个:http://bbs.mjtd.com/forum.php?mod=viewthread&tid=96466

香田里浪人 发表于 2013-7-21 15:21:51

没人帮我修改
页: [1]
查看完整版本: 求教点击显示改为动态显示