(command "close") requestion confirmation immediately after QSAVE...
Hi guys,
Ive got this routine which performs a QSAVE, a SAVE & then CLOSEs a drawing (code below). But I am having an issue (in 1 drawing only) where the final CLOSE call is asking for confirmation "Really want to discard all changes to drawing? ".
This routine has work great for as long as I've had it (over a year), but in this 1 drawing, it stumbles.
I have the EXPERT system variable set to 5.
(DEFUN C:qq (/ newname)
(setvar "CMDECHO" 0)
(SETQ EXPERTO (GETVAR "EXPERT
Something has modified the database. Possibly the _.ZOOM _E
For a simple solution, maybe :
(defun c:qq ()
(cond ((zerop (getvar "DWGTITLED"))
(setvar "CMDECHO" 1)
(command "_.QSAVE")
(while (> (getvar "CMDACTIVE") 0)
(command pause))
(setvar "CMDECHO" 0))
((> (getvar "DBMOD") 0)
(command "_.QSAVE" "_Yes"))
(T
(command "_.QSAVE")))
(prin1))
HTH -David