;; SaveALL command for AutoCAD 2000
;; 
;; Saves all currently open drawings that have
;; been modified since opened or last saved.
;; 
;; Warning: Use entirely at your own risk.


(vl-load-com)

(defun C:SAVEALL ()
   (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)
         )
      )
   )
   (princ)
)