sibelle_hu 发表于 2015-1-27 17:26:06

如何判断DWG文件是否保存

如题，如何在一个程序前加一段代码，来判断当前DWG有没有保存，如果没有保存就提示并退出，如果保存过，就继续后面的程序，请大神帮帮忙，谢谢

cseryaobaoku 发表于 2015-1-27 18:58:17

(if (= (getvar "dwgtitled") 0)
    (alert "请先保存文件")
    ()
    )

lucas_3333 发表于 2015-1-27 21:04:58

(defun c:tt2 (/ filname)
(if (= (getvar "dwgtitled") 0)
    (progn 　　　　
           (alert "请先保存图形!")
           (if (setq filname (getfiled "另存为" "E:/" "dwg" 44))
             (progn
             (command "saveas" 2004 filname "y")
             (alert "保存后执行这里")
             )
           )
    )
    (alert "保存后执行这里")
)
(princ)
)
页: [1]
查看完整版本: 如何判断DWG文件是否保存