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

香田里浪人

给某个图形对象添加或提取非图形数据，代码如下：
(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

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

香田里浪人

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

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

zyhandw

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

香田里浪人

没人帮我修改