This is the best I can contribute...
Code:
;;; QuikSaveExit.lsp
(DEFUN c:qse (/)
(VL-LOAD-COM)
(VLA-RUNMACRO (VLAX-GET-ACAD-OBJECT) "WriteSnapshot")
(VLAX-FOR doc (VLA-GET-DOCUMENTS (VLAX-GET-ACAD-OBJECT))
(IF (AND
(= :VLAX-FALSE (VLA-GET-SAVED doc) (VLA-GET-READONLY doc))
)
(PROGN (WRITE-LINE (STRCAT "\nSaving " (VLA-GET-NAME doc)))
(VLA-SAVE doc)
)
)
)
(COMMAND "_quit")
(PRINC)
)
Toolbar Button:
Code:
ID_SaveExit [_Button("Save and Exit", "saveexit.bmp", "saveexit")]^C^C(if(not c:qse)(load"quiksaveexit"));qse
and a nice pretty bmp attached.