[LISP函数]：允许命令跳转的LISP代码

masterlong

执行一个命令以后如果点右键
CAD默认的操作是重复上一命令
以下代码通过调用批处理命令可以实现命令的跳转

示例程序
(defun c:mmm()
(command "zoom" "e")
(setq @i_scr (open "c:\\@i_scr.scr" "w"))
(write-line "copy" @i_scr)
(close @i_scr)
(command "script" "c:\\@i_scr.scr")
(princ)
)
建立一个临时批处理文件存储要跳转执行的程序名或命令名
在程序的结尾处调用这个批处理
这样在执行完mmm命令以后再右键时
就不是重复mmm命令而是执行copy命令

这个办法的主要用途
1.在图库管理软件中,需要多次插入同一图块时可用(无需进入图库界面直接插入上次选中图块)
2.在程序调用管理盒中,需要多次调用某个程序时可用(无需进入程序调用界面直接执行上次调用命令)
3.其它复杂的功能需求,等等.因为批处理文件本身就可以做很多事,看怎么定义了



<下个东西还要10个币,倒>