Lisp qui ne fonctionne plus sous 2020

[Fruity]

Hello a tous!

 

J'ai 1 lisp (je ne sais plus qui l'a fait...) qui ne fonctionne plus sous autocad 2020. Il sert a fermer tous les fichiers ouverts en enregistrant ou pas.

Et je ne vois pas trop pourquoi...

Si jamais quelqu'un qui s'y connait passe dans le coin, ce serait sympa de m'aider :)

 

  ;-----------------------------------------------------------------
 ; TOUT QUITTER SANS ENREGISTRER
 ;-----------------------------------------------------------------


(vl-load-com)
(defun C:QuitAlln ( / 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")
)


 ;-----------------------------------------------------------------
 ; TOUT QUITTER ET ENREGISTRER
 ;-----------------------------------------------------------------


(defun C:QuitAlly ( / cur dwg)
 (vl-load-com)
 (vlax-for dwg (vla-get-documents (vlax-get-acad-object))
   (if (equal (vla-get-activedocument (vlax-get-acad-object)) dwg)
     (setq cur dwg)
     (progn
       (vl-catch-all-apply 'vla-saveas (list dwg (vla-get-fullname dwg)))
       (vla-close dwg :vlax-false)
     )
   )
 )
 (vl-catch-all-apply 'vla-saveas (list cur (vla-get-fullname cur)))
 (vl-cmdf "_.close")
 (princ)
)

[Maxime063]

Salut,

 

Ce sont les 2 commandes qui ne fonctionnent pas ou simplement quitter sans enregistrer ?

[DenisHen]

Salut.
Et ce code fonctionne ?

;; **********************************************************************************
;;; Sauve et Quitte tous les dessins ouverts (d'après CAD Studio - www.cadforum.cz)  
;;; *********************************************************************************
(defun C:SaveQuitAll (/ dwg)
  (vl-load-com)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark doc)
  (vlax-for dwg (vla-get-Documents (vlax-get-acad-object))
    (if (= (vla-get-active dwg) :vlax-false)
      (vla-close dwg :vlax-false)
    ) ;_ Fin de if
  ) ;_ Fin de vlax-for
  (command "._qsave")
  (command "._close")
  (vla-endundomark doc)
  (princ)
) ;_ Fin de defun
;; *************************************************************************
;;; Quitte tous les dessins ouverts (d'après CAD Studio - www.cadforum.cz)  
;;; ************************************************************************
(defun C:QuitAll (/ dwg)
  (vl-load-com)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark doc)
  (vlax-for dwg (vla-get-Documents (vlax-get-acad-object))
    (if (= (vla-get-active dwg) :vlax-false)
      (vla-close dwg :vlax-false)
    ) ;_ Fin de if
  ) ;_ Fin de vlax-for
  (command "_-purge" "TO" "" "n" "_zoom" "et" "_qsave" "_close" "_y")
  (vla-endundomark doc)
  (princ)
) ;_ Fin de defun