CAD退出保存

zhouwanweihf

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

梦醒才知原是梦

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

adc

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

zhouwanweihf

adc 发表于 2012-5-3 12:56
(defun c:tt() (command "close" "n")  (princ))        ;关闭并保存

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

功夫佬

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

1993063

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

GNJLISP

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