Aller au contenu

zoom étendu et fermeture (+sauvegarde)


philsogood

Messages recommandés

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

Projeteur Revit Indépendant - traitement des eaux/CVC

Lien vers le commentaire
Partager sur d’autres sites

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 ?

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)

Lien vers le commentaire
Partager sur d’autres sites

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,...unsure.gif).

 

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

Civil 3D 2024 - COVADIS_18.2

https://www.linkedin...3%ABt-95313341/

Lien vers le commentaire
Partager sur d’autres sites

  • 2 ans aprè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 compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité