Lisp pour faire un zoom etendu sur chaque onglet ou page.

[Ayting]

Bonjour,

 

Mon employeur souhaite que lorsque l'on ouvre chaque folio, celui ci soit en zoom etendu, il me demande donc de bien vérifier à chaque fois sur chacun de mes plans que tout mes folios ont cette configuration.

Néanmoins il arrive que j'ai une cinquantaine de folio à vérifier et c'est extrêmement long et fastidieux.

 

Existe il un lisp pouvant réaliser cette manipulation ? 

Merci par avance

Cordialement.

[(gile)]

Salut,

(defun c:zal (/ tab)
  (setq tab (getvar 'ctab))
  (foreach l (layoutlist)
    (setvar 'ctab l)
    (command-s "_.zoom" "_extents")
  )
  (setvar 'ctab tab)
  (princ)
)

Avec le temps gagné, tu devrais pouvoir étudier le LISP : da-code, Introduction à AutoLISP.

[Ayting]

Salut merci beaucoup !