[求助]lisp工具箱的zz功能是怎么实现的。

机械工程师

lisp工具箱的zz功能是怎么实现的。

想做个类似于贱人工具箱的东东。假如我yy启动dcl界面，点击其中一个按钮启动一个lisp命令，结束后想zz能再次执行该命令，应该怎么编程？

参考：
http://www.xdcad.net/forum/showthre...threadid=182452

xshrimp

(vla-SendCommand(vla-get-ActiveDocument(vlax-get-acad-object))  "命令 " ))

azjmjsj

这个容易实现，用双命令即可

示例如下：
(defun c:zz ()
  (c:yy)
 )

(defun c:yy ()
  ......
  ......
)

机械工程师

不行的。

想做个类似于贱人工具箱的东东。假如我yy启动dcl界面，点击其中一个按钮启动一个lisp命令，结束后想zz能再次执行该lisp命令，应该怎么编程？

zz时我不想启动那个初始dcl界面，也就是yy启动的那个。而是想启动上次实际调用的lisp命令。

英雄无敌

你在执行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*))
)

机械工程师

有效，谢谢指点。

jiheng

学写lisp看来很不简单