轻松退出图形文件

nnutting · 发表于 2022-7-6 08:40:31

不确定这是否是lisp的脚本。。。所以请推荐。

当试图退出单个图形文件时，我希望在键入“退出”时发生以下情况
-最大化显示
-层返回到“0”
-保存图形
-关闭绘图

如果这是一个脚本。。。如何永久加载脚本并确保每次启动CAD时都加载脚本？

mdbdesign · 发表于 2022-7-6 08:51:44

...和按钮宏。让我们做个实验。。。
（现在轮到你了）

Tharwat · 发表于 2022-7-6 09:07:59

试试这个。。。。

copy


(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)
)

BlackBox · 发表于 2022-7-6 09:15:56

这是免费赠品：

copy


(defun c:FOO  ()
 (vl-load-com)
 (setvar 'clayer "0")
 (foreach x  '(("._zoom" "extents")
               ("._qsave")
               ("._close"))
   (vl-catch-all-apply 'vl-cmdf x)))