[求助]lisp工具箱的zz功能是怎么实现的。
www.dimcax.com
[求助]lisp工具箱的zz功能是怎么实现的。
lisp工具箱的zz功能是怎么实现的。
想做个类似于贱人工具箱的东东。假如我yy启动dcl界面，点击其中一个按钮启动一个lisp命令，结束后想zz能再次执行该命令，应该怎么编程？
参考：
d
(vla-sendcommand(vla-get-activedocument(vlax-get-acad-object)) "命令 " ))
d
这个容易实现，用双命令即可
示例如下：
(defun c:zz ()
(c:yy)
)
(defun c:yy ()
......
......
)
西北凡人：
不行的。
想做个类似于贱人工具箱的东东。假如我yy启动dcl界面，点击其中一个按钮启动一个lisp命令，结束后想zz能再次执行该lisp命令，应该怎么编程？
zz时我不想启动那个初始dcl界面，也就是yy启动的那个。而是想启动上次实际调用的lisp命令。
d
你在执行lisp时，用一个全局变量保存该函数的名称
(defun c:cc1 ()
(setq *zz* "(c:cc1)")
(alert "ok")
)
(defun c:cc2 ()
(setq *zz* "(c:cc2)")
(alert "good")
)
(defun c:zz ()
(eval (read *zz*))
)
(alert"ok!")
d
有效，谢谢指点。