Close with save - all drawings except current

This will close all currently open drawings, saving those that have been modified since their last save.

(vlax-for doc (vla-get-documents(vlax-get-acad-object))
  (if (= doc (vla-get-activedocument(vlax-get-acad-object)))
    nil
    (progn
      (if (or
        (= 0 (getvar "dbmod"))
        (= :vlax-false (vla-get-readonly doc))
        )
    (vl-catch-all-apply 'vla-close (list doc :vlax-false))
    (vl-catch-all-apply 'vla-close (list doc :vlax-true))
    )
      )
    )
  )