Fruity Posté(e) le 11 janvier 2021 Posté(e) le 11 janvier 2021 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) ) https://www.facebook.com/aedenhivanovahttp://ca-vous-enerve.blogspot.com/
Maxime063 Posté(e) le 11 janvier 2021 Posté(e) le 11 janvier 2021 Salut, Ce sont les 2 commandes qui ne fonctionnent pas ou simplement quitter sans enregistrer ?
DenisHen Posté(e) le 25 août 2022 Posté(e) le 25 août 2022 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 Windows 11 / AutoCAD 2024 Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net). Davantage d'avantages, avantagent davantage (Bobby Lapointe). La connaissance s'accroît quand on la partage (Socrate). Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)
Messages recommandés
Créer un compte ou se connecter pour commenter
Vous devez être membre afin de pouvoir déposer un commentaire
Créer un compte
Créez un compte sur notre communauté. C’est facile !
Créer un nouveau compteSe connecter
Vous avez déjà un compte ? Connectez-vous ici.
Connectez-vous maintenant