Aller au contenu

ZOOM TOTAL DANS PRESENTATIONS


PHILPHIL

Messages recommandés

HELLO

 

 

gile avait ecrit ca, merci a lui

 

ca fait un zoom total dans toutes les fenetres des présentations sans devoir les ouvrir

 

comment modifier ce lisp, pour qu'il fasse un zoom total de ce qu'il y a dans la présentation a la volée, et non pas des fenetre de la dite présentation.

 

merci

 

Phil

 

 

;;;-------------------------------------------------------
;;; zoom tout dans les fenetres de presentation a la volée
;;;-------------------------------------------------------


(defun c:zep (/ acdoc ctab vp)
 (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object))
       ctab  (getvar 'ctab)
 )
 (vlax-for layout (vla-get-Layouts acdoc)
   (if (/= (vla-get-Name layout) "Model")
     (progn
       (vla-put-ActiveLayout acdoc layout)
       (setq vp nil)
       (vlax-for obj (vla-get-Block layout)
         (if (= (vla-get-ObjectName obj) "AcDbViewport")
           (progn
             (if vp
               (or (= (vla-get-DisplayLocked obj) :vlax-true)
                   (vla-put-Standardscale obj acVpScaleToFit)
               )
             )
             (setq vp T)
           )
         )
       )
     )
   )
 )
 (setvar 'ctab ctab)
 (princ)
)

Autodesk Architecture 2023 sous windows 11 64

24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal

Lien vers le commentaire
Partager sur d’autres sites

Salut,

 

On dirait que vous n'avez pas trop cherché...

 

(defun c:zel (/ ctab vp)
 (or *acad* (setq *acad* (vlax-get-acad-object)))
 (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument *acad*)))
 (setq ctab  (getvar 'ctab))
 (vlax-for layout (vla-get-Layouts *acdoc*)
   (if (/= (vla-get-Name layout) "Model")
     (progn
       (vla-put-ActiveLayout *acdoc* layout)
       (vla-ZoomExtents *acad*)
     )
   )
 )
 (setvar 'ctab ctab)
 (princ)
)

Gilles Chanteau - gileCAD -
Développements sur mesure pour AutoCAD
ADSK_Expert_Elite_Icon_S_Color_Blk_125.png

Lien vers le commentaire
Partager sur d’autres sites

hello

 

GILE merciii

 

 

la vérité, non je n'ai pas cherché c'est vrai

ni sur le site de cadxp ( en cherchant la je trouve rien )

 

ni dans les fonctions visual lisp ( c'est en anglais, je chercherai un HELP sur l ordi et j'arrive deja pas a décodé le premier lisp )

 

a+

 

Phil

Autodesk Architecture 2023 sous windows 11 64

24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal

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é