CadXP: Lisp qui ne fonctionne plus sous 2020 - CadXP

Aller au contenu

Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

Lisp qui ne fonctionne plus sous 2020

#1 L'utilisateur est hors-ligne   Fruity 

  • ceinture noire 1er dan
  • Groupe : Membres
  • Messages : 614
  • Inscrit(e) : 02-mai 06

Posté 11 janvier 2021 - 11:22

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)
)

0

#2 L'utilisateur est hors-ligne   Maxime063 

  • Advanced Member
  • PipPipPip
  • Groupe : Membres
  • Messages : 33
  • Inscrit(e) : 03-juin 20

Posté 11 janvier 2021 - 18:02

Salut,

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

Partager ce sujet :


Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

1 utilisateur(s) en train de lire ce sujet
0 membre(s), 1 invité(s), 0 utilisateur(s) anonyme(s)