[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 ?