如何判断DWG文件是否保存

sibelle_hu

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

cseryaobaoku

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

lucas_3333

1. (defun c:tt2 (/ filname)
   
2.   (if (= (getvar "dwgtitled") 0)
   
3.     (progn 　　　　
   
4.            (alert "请先保存图形!")
   
5.            (if (setq filname (getfiled "另存为" "E:/" "dwg" 44))
   
6.              (progn
   
7.                (command "saveas" 2004 filname "y")
   
8.                (alert "保存后执行这里")
   
9.              )
   
10.            )
    
11.     )
    
12.     (alert "保存后执行这里")
    
13.   )
    
14.   (princ)
    
15. )

(defun c:tt2 (/ filname)<br />   (if (= (getvar "dwgtitled") 0)<br />     (progn 　　　　<br />            (alert "请先保存图形!")<br />            (if (setq filname (getfiled "另存为" "E:/" "dwg" 44))<br />              (progn<br />                (command "saveas" 2004 filname "y")<br />                (alert "保存后执行这里")<br />              )<br />            )<br />     )<br />     (alert "保存后执行这里")<br />   )<br />   (princ)<br /> )