【转帖】双击删除（反应器） - 精华帖集合
 

双击删除（反应器） - 精华帖集合
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？