只需一步,快速开始
lisp工具箱的zz功能是怎么实现的。
想做个类似于贱人工具箱的东东。假如我yy启动dcl界面,点击其中一个按钮启动一个lisp命令,结束后想zz能再次执行该命令,应该怎么编程?
参考:http://www.xdcad.net/forum/showthre...threadid=182452
使用道具 举报
这个容易实现,用双命令即可示例如下:(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*)))
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2024-10-1 03:07 , Processed in 0.181052 second(s), 27 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.