Centrer le papier (en lot)

[Invité SAAIDI]

Bonjour,

 

je souhaite savoir s'il existe un moyen (lisp, fonction AutoCAD, ..etc.) qui me permettrai de recentrer (équivalent à un double clique de la molette) mon papier sur toutes les présentation.

 

Merci

[(gile)]

Salut,

 

Le LISP suivant fait un zoom étendu dans toutes les fenêtres de présentation qui ne sont pas verrouillées.

 

(defun c:zep (/ acdoc ctab vp)
 (vl-load-com)
 (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)
)

[Invité SAAIDI]

1.2 Enregistrer un fichier .lsp

 

Après avoir copié le code (tout le code et les commentaires précédés de point virgule)), le coller dans le bloc-note (ne pas utiliser d'éditeur de texte sofistiqué -type Word- qui rajoute des caractères de mise en pages).

Enregistrer le fichier, peu importe le nom, avec l'extension .lsp (par exemple : Toto.lsp).

 

Je lance quelle commande après ?

 

 

 

[speedy]

Bonjour à toutes et à tous

 

le fichier --> http://cjoint.com/?bvnjZ42Ve3

pour charger le code --> http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=14630

 

La commande est : zep

 

Comme dit Gile

Le LISP suivant fait un zoom étendu dans toutes les fenêtres de présentation qui ne sont pas verrouillées.

 

@+

 

Michel a

[(gile)]

1.3 Charger dans le dessin courant ...

 

2 Pour lancer une commande LISP ...

[speedy]

Salut Gile

 

Comment modifier ce code pour centrer tout ce qui se trouve en EP dans la présentation, comme dans la mise en page d'impression centrer tracé.....

 

Merci

 

@+

 

Michel a

[(gile)]

Salut,

 

Je ne comprends pas bien, pour faire un zoom étendu dans chaque présentation ?

 

(defun c:zep (/ acapp acdoc ctab)
 (vl-load-com)
 (setq acapp (vlax-get-acad-object)
       acdoc(vla-get-ActiveDocument acapp)
       ctab  (getvar 'ctab)
 )
 (vlax-for layout (vla-get-Layouts acdoc)
   (if (/= (vla-get-Name layout) "Model")
     (progn
       (vla-put-ActiveLayout acdoc layout)
       (vla-ZoomExtents acapp)
     )
   )
 )
 (setvar 'ctab ctab)
 (princ)
)

[speedy]

Re

j'ai çà comme erreur : ; erreur: type d'argument incorrect: VLA-OBJECT nil

je ne veux pas faire un zoom étendu mais un centrage comme SAAIDI.

 

;;zoom étendu des présentations

(defun c:zet ()

(foreach name (vl-remove "Model" (layoutlist))

(setvar "ctab" name)

(setvar "PSLTSCALE" 0)

(command "zoom" "et")

)

(princ )

)

(princ "\nZOOM ET LAYOUT, Tapez ZET pour l'exécuter")

(princ )

 

@+

 

Michel a

[Invité SAAIDI]

Sauf erreur de ma part, le dernier ne fonctionne pas (pour faire un zoom étendu dans chaque présentation)

 

Quelqu'un à tester ?

[(gile)]

J'avais oublié un (vl-load-com).

J'ai corrigé les codes.

[Invité SAAIDI]

j'ai pas encore tester mais d'avance Merci

[lili2006]

Bonsoir à toutes et tous,

 

semble ne toujours pas fonctionner,...???

 

Commande: zep

*Annuler*

Commande:

erreur: type d'argument incorrect: VLA-OBJECT nil

 

Moi, ce que j'aurai trouvé pas mal dans le style, c'est de pouvoir récupérer les limites de la fenêtre en fonction du traceur choisi...

 

Comme les marges d'impression sont toutes différentes, je suis obligé de me faire une présentation sur une "vrai" imprimante et une pour faire un ".pdf", par exemple,...

 

Mais c'est peut-être l'objet du second lisp de (gile),...

 

J'avoue n'avoir pas très bien compris la demande de speedy, :exclam:

 

 

Exemple en passant d'une photocopieuse A3 à pdf créator =>

 

http://free0.hiboox.com/images/0310/ee8cb2a322b5c89e6dc02aa64d979942.jpg

 

 

[(gile)]

Oupss, il restait une variable pas corrigée...

[lili2006]

Re,

 

Marche Nickel et super rapide,...

 

25 présentations en quelques 3 ou 4 secondes,...

[Invité SAAIDI]

@lili2006

soit pour mettre les choses au clair,

 

1/le premier lisp fait un zoom étendu des objets qui se trouve DANS (toutes) les fenêtres des présentations

 

1.1/ à propos du premier lisp : "les fenêtres de présentation qui ne sont pas verrouillées." c'est à dire ?

 

2/le 2eme lisp "fait quoi" ? (j'ai pas autocad sur ce poste)

 

merci

[lili2006]

Re,

 

1.1/ à propos du premier lisp : "les fenêtres de présentation qui ne sont pas verrouillées." c'est à dire ?

 

tu ne verrouilles jamais tes fenêtres une fois que ton echelle est réglée ?

 

Remarque, tu n'est pas le seul,...

 

Dans la fenêtre des propriétés, tu as possibilité de verrouiller, donc figer ta vue de l'objet du papier. Tu peux donc ensuite faire un double clic dans la fenêtre ou autre coup de molettes sans risquer de perdre ton échelle,...

 

 

Pour le second lisp, il fait un zoom étendu de ton espace papier délimité par ton format de feuille si il n'y a pas d'entités qui "trainent " au dehors,..

 

[Invité SAAIDI]

Parfait. Merci à tous

[speedy]

Bonjour à toutes et à tous

mon problème n'est que visuel...

 

http://free0.hiboox.com/images/0310/891110a2fc57c0b29720b3422f82d8c9.jpg

j'y ai pensé après, il suffit de configurer une mise en page avec centré et utiliser le lisp de patrick_35 "mpl" et le tour est joué....

 

Pas mal le zoom étendu Gile, dommage que je n'arrive pas à accrocher avec le vlisp....

 

 

 

@+

 

Michel a

[Invité SAAIDI]

@Speedy,

Salut,

 

Je comprend pas comment tu peux te retrouver avec une fenêtre à l'exterieur avant ?

 

 

[Invité SAAIDI]

@(gile)

 

re salut,

 

merci pour les lisps.

 

Je souhaite faire une dernière demande, pour un lisp avec la fonction du deuxième lisp avec au préalable une désactivation des fenêtres (commande EP), c'est possible ?

 

 

Merci d'avance

 

[Edité le 22/1/2010 par SAAIDI]

[(gile)]

Houlà !

 

À te lire, on comprends que non seulement tu ne verrouilles pas la vue des fenêtres de présentions, mais qu'en plus tu les laisses actives quand tu changes d'onglet...

 

Les LISPou autre personnalisation devraient servir à faciliter le travail en automatisant certaines taches, pas à faire le ménage pour palier à un tel manque de rigueur...

 

(defun c:zep (/ acapp acdoc ctab)
 (vl-load-com)
 (setq acapp (vlax-get-acad-object)
       acdoc(vla-get-ActiveDocument acapp)
       ctab  (getvar 'ctab)
 )
 (vlax-for layout (vla-get-Layouts acdoc)
   (if (/= (vla-get-Name layout) "Model")
     (progn
       (vla-put-ActiveLayout acdoc layout)
       (vla-put-MSpace acdoc :vlax-false)
       (vla-ZoomExtents acapp)
     )
   )
 )
 (setvar 'ctab ctab)
 (princ)
)

[Invité SAAIDI]

 

Pas de notions d'échelle pour les folios elec monsieur gile, j'en parlerai à mon stagiaire, je dois ratrapper ces erreurs / environ 500 folios pour 15H ^^

 

Merci pour tout

 

 

I'm outttt