轻松退出图形文件
不确定这是否是lisp的脚本。。。所以请推荐。当试图退出单个图形文件时，我希望在键入“退出”时发生以下情况
-最大化显示
-层返回到“0”
-保存图形
-关闭绘图
如果这是一个脚本。。。如何永久加载脚本并确保每次启动CAD时都加载脚本？ ...和按钮宏。让我们做个实验。。。
（现在轮到你了） 试试这个。。。。
(defun c:MyExit nil
;; Tharwat 18. Nov. 2011 ;;
(command "_.zoom" "_extents")
(setvar 'clayer "0")
(if (eq (getvar 'dwgtitled) 1)
(progn
(command "_.save" "")
(command "_.close" "")
)
(alert
"Save your drawing first and come back after that !!!"
)
)
(princ)
)
这是免费赠品：
(defun c:FOO()
(vl-load-com)
(setvar 'clayer "0")
(foreach x'(("._zoom" "extents")
("._qsave")
("._close"))
(vl-catch-all-apply 'vl-cmdf x)))
非常好的编码方式，Renderman和我非常想念你，伙计。
如果文件尚未保存且没有标题，该怎么办？
谢谢塔瓦；是的，我已经有一段时间没能出去玩了。我会尽量多去看看。
^^我是克拉克·盖博。。。“弗兰克，亲爱的，我一点也不在乎。”
别担心。
干杯
页:
[1]