退出不存盘和退出存盘的两个代码

newer · 发表于 2016-11-23 10:54:49

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:CloseWithoutSave ()
  (if (< 0 (getvar 'dbmod))
    (command "._close" "_y")
    (command "._close")
  )
  (princ)
)

(defun c:CloseWithSave ()
  (command "._qsave" "._close")
  (princ)
)

ray7891 · 发表于 2016-11-23 12:22:15

感觉这个界面更好看呢。新人求编辑器

newer · 发表于 2016-11-23 12:29:34

ray7891 发表于 2016-11-23 12:22

把代码放入 [pre] [/pre] 中间

复制代码

cq_qg68 · 发表于 2016-11-23 13:55:14

谢谢斑竹的代码，对于这种情况：
关闭全部，对有修改的或新建的未保存的文件关闭时提示保存。
上面的代码可以实现不提示不保存关闭文档，但是对于第二种情况，我需要cad弹出是否保存的提示框，让用户选择后再对下一个文档执行关闭操作，如果这个文档也有修改，仍然要弹出对话框。

newer · 发表于 2016-11-23 15:25:17

cq_qg68 发表于 2016-11-23 13:55

你把系统变量 dbmod 设置成0，试试。

sicky111 · 发表于 2017-1-5 14:57:49

学习一下dbmod

xvjiex · 发表于 2021-11-28 00:44:32

感谢分享退出不存盘和退出存盘的两个代码

账号		自动登录	找回密码
密码			立即注册

[每日一码] 退出不存盘和退出存盘的两个代码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分