社区 › 源码共享 › CAD退出保存

zhouwanweihf 发表于 2012-3-8 00:17:26

CAD退出保存

求一程序，输入命令图形关闭并保存，并且为第一页状态下保存

梦醒才知原是梦 发表于 2012-5-3 08:49:44

这~~~~~~~~不懂。。。等高手~~~~·

adc 发表于 2012-5-3 12:56:41

(defun c:tt() (command "close" "n")(princ))      ;关闭并保存

zhouwanweihf 发表于 2012-5-3 23:52:08

adc 发表于 2012-5-3 12:56 static/image/common/back.gif
(defun c:tt() (command "close" "n")(princ))      ;关闭并保存

谢谢你的回复，但新建的文件没有经过保存就关闭了

功夫佬 发表于 2012-5-4 12:52:43

(defun c:tt() (command "close" "y")(princ))      ;关闭并保存
试试这个

1993063 发表于 2014-7-25 09:27:58

(Defun c:tt nil
((= 1 (Getvar 'DWGTITLED))
    (vl-cmdf "QSAVE")
    (vl-cmdf "close" "n")
)
(princ)
)

GNJLISP 发表于 2018-1-3 17:33:59

楼上老大们求一段快速关闭 不保存代码，谢谢

查看完整版本: CAD退出保存