双击删除(反应器) - 精华帖集合
www.dimcax.com
双击删除(反应器)
,
双击反应器练习 双击删除实体.lsp
;;;双击反应器 删除对象
(vl-load-com)
(defun c:dkdel (/ dk-delete)
(defun dk-delete (thereactor thepoint / ss2)
(if (setq ss2 (ssget (car thepoint)))
(vla-delete (vlax-ename->vla-object (ssname ss2 0)))
)
(princ)
)
(vlr-mouse-reactor
"delete object"
'((:vlr-begindoubleclick . dk-delete))
)
)
(c:dkdel)
版主真是强人,lisp研究的这么透彻!
书山有路勤为径,学海无涯苦作舟!
楼主
有人测试过这段代码吗?我试了一下,提示“no function definition: dk-delete”。
不能把dk-delete 定义为局部函数,应定义为全局函数才能正确执行。
在执行完dk-delete定义的动作后,cad缺省的双击命令也将被激活。
这是一个问题!!!
錯誤提示如下:
dkdel #<vlr-mouse-reactor>
good good study day-day up!
是不是在cui中直接改object的双击动作就可以了。
比如将^c^c_properties -》改为^c^c_erase?