Quit all drawings without saving

 

CAD Forum - How to quit all open drawings without saving?

;Quit all drawings without saving (CAD Studio - www.cadforum.cz)
(vl-load-com)
(defun C:QuitAll ( / dwg)
 (vlax-for dwg (vla-get-Documents (vlax-get-acad-object))
  (if (= (vla-get-active dwg) :vlax-false)(vla-close dwg :vlax-false))
 )
 (command "._close" "_y")
)