Amélioration

[Megeon]

Hello les gars je suis pas particulièrement bon en lisp du coup je me tourne vers vous

 

Il y a quelque temps j'avais fait lors de mon apprentissage du langage un petit programme

 

(defun c:PZ()
 (command "_-purge" "TO" "" "n"
      "_zoom" "et"
      "_qsave"
      "_close")
 (princ)
)

 

Mais voila il ne fait ça que sur un seul fichier.

Est il possible de le faire sur plusieurs fichier d'un coup ?

 

D'avance merci !

[(gile)]

Salut,

 

AutoLISP s'exécute dans le contexte du document.

Ça veut dire que les fichiers LISP doivent être chargés dans chaque document et qu'une routine LISP lancée dans un document ne peut continuer son exécution dans un autre.

 

Il existe bien certains mécanismes en "Visual LISP" pour accéder à des documents fermés ou ouverts mais qui sont moins abordables pour un débutant, entre autre parce qu'il n'autorisent pas utilisation de (command ...).

 

Regarde plutôt du côté des scripts et de SuperAutoScript.

[La Lozère]

Hello,

Pour ça, il te faudra passer par SuperAutoScript

Mon lienhttp://www.caderix.com/telechargement_autocad.html#

 

http://cadxp.com/topic/34268-nouveau-superautoscript-25/

[Megeon]

mais qui sont moins abordables pour un débutant

 

C'est bien me surestimer que me considérer comme débutant

 

dans tout les cas je prend notes et je regarde du coté de SuperAutoScript

[DenisHen]

Salut.

 

Je me souviens d'un truc très récent trouvé ici.

 

Avec une petite modification, ça devrait faire ce que tu veux :

;; **********************************************************************************
;;; Sauve et Quitte tous les dessins ouverts (d'après CAD Studio - www.cadforum.cz)  
;;; *********************************************************************************
(defun C:SaveQuitAll (/ dwg)
 (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")
) ;_ Fin de defun

[(gile)]

Salut.

 

Je me souviens d'un truc très récent trouvé ici.

 

Avec une petite modification, ça devrait faire ce que tu veux :

;; **********************************************************************************
;;; Sauve et Quitte tous les dessins ouverts (d'après CAD Studio - www.cadforum.cz)  
;;; *********************************************************************************
(defun C:SaveQuitAll (/ dwg)
 (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")
) ;_ Fin de defun

 

Oui, il n'y a plus qu'à ajouter le zoom et la purge en vlisp, une paille...

[DenisHen]

Salut (gile).

Oui, il n'y a plus qu'à ajouter le zoom et la purge en vlisp, une paille...

Une paille qui est tellement loin de ma portée que je ne tendrais même pas le bras pour l'atteindre... ;)

 

Ce code est, pour moi, encore de la science fiction... A part les lignes "command"... :huh:

[Megeon]

Ce code est, pour moi, encore de la science fiction... A part les lignes "command"... :huh:

 

tu n'es pas seul :(rires forts):