禁用命令执行的lisp版本 - 精华帖集合
www.dimcax.com
禁用命令执行的lisp版本
来了兴致,写一个简单的程序,只有几行
;;;2008/10/28 于 师兄
(vl-load-com);_vla支持
(setq app(vlax-get-acad-object)
doc(vla-get-activedocument app))
;;回调函数
(defun abc(a b)
(princ (nth 4 b));_即将执行的命令名
(vla-sendcommand doc (chr 3))
)
;;反应器
(setq vlrobj(vlr-docmanager-reactor nil '((:vlr-documentlockmodewillchange . abc))))