zoom étendu et fermeture (+sauvegarde)

[philsogood]

hello

on me le demande svt mais (je dois bien l'avouer, je n'ai as assez de rigueur de ce coté ci pour le faire) de faire un zoom étendu sur mes présentations avant de les sauver et de les fermer

ainsi depuis l'explorateur windows on a un aperçu du plan avant de l'ouvrir

la question :

est-il possible (via du lisp je pense) de faire en sorte que lors de la fermeture du dessin on puisse caler le fichier sur le 1ère présentation et faire un zoom étendue sur cette dernière? pour bien faire il s'agirait même d'avoir un zoom étendu sur toute les présentation (mais pas sur l'espace objet)

vous pensez ça possible?

Phil

PS : quand on a le fenètre "enregistrer les modifications..." en cliquant oui le lisp se lancerait... il s'agirait du coup de redéfinir la commander FERMER qui a un alias F.... Taper la lettre F lancerait la fermeture du ficheir et les zooms étendus

PSS : Didier, me suis-je bien faire comrpendre sur ce coup ci?? ;)

[Megeon]

j'avais fait ça dans mes débuts de lisp

;;Purge zoom sauvegarde alias "PZ"
(defun c:PZ()
 (command "_-purge" "TO" "" "n")
 (command "_zoom" "t")
 (command "_qsave")
 (command "_close")
 (princ)
)

 

avec quelque modification je pense que tu peux avoir ce que tu cherches

[DenisHen]

Salut à tous.

 

J'ai écris cette petite routine "vite fait" :

;;;*********************************************************
;;; Sauvegarde toutes les présentations dans une vue étendue
;;;            Pour philsogood de CadXP.com                 
;;;*********************************************************
(defun c:TestSauvPresZoomEtendu ( / lay Pos LstPresent)
 (vlax-for lay (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
   (setq LstPresent (cons (cons (vla-get-taborder lay) (vla-get-name lay)) LstPresent))
 ) ;_ Fin de vlax-for
 (setq Pos 1)
 (while (/= (cdr (assoc Pos LstPresent)) nil)
   (command "_.layout" "_set" (vl-princ-to-string(cdr (assoc Pos LstPresent))))
   (command "_zoom" "t")
   (setq Pos (1+ Pos))
 ) ;_ Fin de while
 (command "_qsave")
 (command "_close")
 (princ)
) ;_ Fin de defun

 

Tu peux maintenant faire un alias avec SP pour SauvePrésentation

SP,	*TestSauvPresZoomEtendu

Pourrais-tu me faire un petit retour si ça fonctionne bien chez toi ?

[lili2006]

Bonjour à toutes et tous,

 

Petite routine, mais rudement efficace quand on à bon nombre de présentations,...

 

J'ai retiré la fermeture du fichier car je vérifie avant fermeture qu'il ne reste pas d'entités à se balader hors zone de tracé (ça m'arrive encore mais c'est surtout que j'ai pris l'habitude de le rabâcher des dizaines de fois à mes étudiants,...).

 

En tout cas, merci pour l'idée du post et ta proposition Denis,

 

Sans fermeture du fichier =>

 

;;;*********************************************************
;;; Sauvegarde toutes les présentations dans une vue étendue
;;;        	Sans fermer le fichier !! CadXP.com     			
;;;*********************************************************
(defun c:PresZoomEtendu ( / lay Pos LstPresent)
 (vlax-for lay (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
(setq LstPresent (cons (cons (vla-get-taborder lay) (vla-get-name lay)) LstPresent))
 ) ;_ Fin de vlax-for
 (setq Pos 1)
 (while (/= (cdr (assoc Pos LstPresent)) nil)
(command "_.layout" "_set" (vl-princ-to-string(cdr (assoc Pos LstPresent))))
(command "_zoom" "t")
(setq Pos (1+ Pos))
 ) ;_ Fin de while
 (command "_qsave")
(princ)
) ;_ Fin de defun

[philsogood]

merci, merci et encore merci...

je teste et je reviens vers vous!! :)

Phil

[philsogood]

hello

merci Denis ça amrche super bien, après ça lague un peu mais bon, ça me laisse le temps de boire mon café (encore eusse-t-il fallu que j'aime ça!!)

congrats mec!! ;)

Phil

[benoitlacroix]

ça me laisse le temps de boire mon café

 

Bonjour,

Eh bin 2 ans pour répondre le café devait être bon