Aller au contenu

[Résolu] Zoom ETendu sur chaque présentation


Geof

Messages recommandés

Bonjour,

 

J'ai une question d'un collègue qui me trotte dans la tête et je sèche complétement.

Le souci viens du faite que les tableaux OLE ne s'impriment pas lorsque la présentation n'a pas l'objet affiché.

 

Du coup j'aimerai un moyen de faire un Zoom Étendu à chaque présentation(un double clic molette c'est bien mais pas très rapide quand on a moult Présentation).

 

J'ai pensé à SuperAutoScript mais je suis pas sur que le changement de présentation soit possible.

 

Merci à vous.

Lien vers le commentaire
Partager sur d’autres sites

Salut Geof.

 

Il y a quelques temps, j'ai fais cette routine qui devrait faire ce que tu demande :

;;;*********************************************************
;;; Sauvegarde toutes les présentation dans une vue étendue 
;;;            Pour philsogood de CadXP.com                 
;;;*********************************************************
(defun c:SauvPresZoomEtendu (/ 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

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

Merci DenisHen, c'est parfait.

De rien... Content d'avoir aidé...

 

N'oublie pas de noter "[Résolu]" à ton entête du premier message...

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

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é