Aller au contenu

zoom étendu et fermeture (+sauvegarde)


philsogood
 Partager

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 10 Pro 64bits / AutoCAD MAP 3D 2019

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres...
Davantage d'avantages, avantagent davantage. (Bobby Lapointe)
La connaissance s'accroît quand on la partage.(Socrate)

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 2022 - COVADIS_17.1d

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

Lien vers le commentaire
Partager sur d’autres sites

  • 2 ans après...

Rejoindre la conversation

Vous pouvez publier maintenant et vous inscrire plus tard. Si vous avez un compte, connectez-vous maintenant pour publier avec votre compte.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

Chargement
 Partager

×
×
  • Créer...