Création présentation multiple

[bibi1979]

Bonjour,

J'ai 270 profil en travers dans un même fichier, a imprimer en A4,

comment faire pour générer 270 présentation A4 , sans faire du copier coller?

Merci d'avance pour les conseils..

 

 

[lili2006]

Bonjour à toutes et tous,

 

Tu peux toujours t'inspirer de ce sujet,...

 

PS: Si ce sont des PT générés par covadis, alors tu peux paramétrer depuis covadis l'impression.

[Bred]

Salut,

c'est marrant, on n'en fait souvent la remarque, je ne sais pas a quoi c'est dû, mais quand un sujet est lancé, on est presque sûr de voir 3 ou 4 identiques posé à la suite...

 

Tu peux toujours t'inspirer de ce sujet,...

Et il y a justement une nouvelle version. à la fin.

 

[oran]

Il y a ce lisp CLAYOUTT.lsp

Dans l'Espace Objet tes folios doivent être tous les uns à côté des autres horizontalement.

Tu doit connaître le décalage ( et non l'espace !!!) de tes folios entre eux, dans mon cas c'est 300 (tu changeras cette valeur en fonction de tes besoins)

Tu crées la présentation de ton premier folio A4 (celui qui sera à l'extrême gauche)

Tu tapes CLAYOUTT (tu reste sur ta présentation)

Tu tapes le nombre de copies et le tour est joué

 

------------------------------------------------------------------------------------------------

 

(defun llayouts (/ acadobject ActDoc LAYOUTS LLAY n)

(setq acadObject (vlax-get-acad-object))

(setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))

(setq LAYOUTS (vla-get-Layouts ActDoc))

(setq LLAY nil)

(vlax-for n LAYOUTS

(setq LLAY (cons (vla-get-name n) LLAY))

)

LLAY

)

 

(defun NewNameLayout (OLDLAY NEWLAY)

(setq RES nil)

(while NEWLAY

(setq ELEM (car NEWLAY))

(setq NEWLAY (cdr NEWLAY))

(if (not (member ELEM OLDLAY))

(setq RES ELEM)

)

)

RES

)

 

 

(defun c:clayoutt ()

(vl-load-com)

(setq NBPAGE (getint "\nNombre de copies : "))

(repeat NBPAGE

(setq OLDLLAY (llayouts))

(command "_layout" "_c" "" "")

(setq NEWLLAY (llayouts))

(setq NNAME (NewNameLayout OLDLLAY NEWLLAY))

(command "_layout" "_s" NNAME)

(command "_MSPACE")

[surligneur] (command "_-pan" "_non" '(0 0) "_non" '(-300 0))[/surligneur]

(command "_PSPACE")

)

(princ)

)

 

 

 

.....et cet autre lisp CLAYOUT.lsp

qui lui traite les présentation lorsque les folios sont les uns au dessus des autres dans l'Espace Objet.

Toujours avec ce décalage à modifier verticalement selon tes besoins (ici dans mon cas 205)

 

--------------------------------------------------------------------------------------------

 

 

(defun llayouts (/ acadobject ActDoc LAYOUTS LLAY n)

(setq acadObject (vlax-get-acad-object))

(setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))

(setq LAYOUTS (vla-get-Layouts ActDoc))

(setq LLAY nil)

(vlax-for n LAYOUTS

(setq LLAY (cons (vla-get-name n) LLAY))

)

LLAY

)

 

(defun NewNameLayout (OLDLAY NEWLAY)

(setq RES nil)

(while NEWLAY

(setq ELEM (car NEWLAY))

(setq NEWLAY (cdr NEWLAY))

(if (not (member ELEM OLDLAY))

(setq RES ELEM)

)

)

RES

)

 

 

(defun c:clayout ()

(vl-load-com)

(setq NBPAGE (getint "\nNombre de copies : "))

(repeat NBPAGE

(setq OLDLLAY (llayouts))

(command "_layout" "_c" "" "")

(setq NEWLLAY (llayouts))

(setq NNAME (NewNameLayout OLDLLAY NEWLLAY))

(command "_layout" "_s" NNAME)

(command "_MSPACE")

[surligneur](command "_-pan" "_non" '(0 0) "_non" '(0 205))[/surligneur]

(command "_PSPACE")

)

(princ)

)

 

Je tiens à préciser que ces lisp ne sont pas de moi :cool:

 

Oran

 

[Edité le 1/7/2008 par oran]

[bibi1979]

merci pour c reponse rapide je vais tester le lisp....

[bibi1979]

Ok le lisp fonctionne bien, par contre j'ai 2 fenêtres dans ma présentation et la fenêtre de dessous est copier dans toutes les nouvelles présentation mais reste toujours sur le même objet.

Et celle du dessus se décale bien de la valeur rentrez dans le lisp.

Y a t il qqch a modifié???

 

En tout cas merci pour le lisp, trop fort..

[oran]

Je viens de tester avec 2 fenêtres sur la même présentation, effectivement cela est gênant mais n'ayant aucune connaissance en lisp je ne te serai d'aucun secours dans ce cas.... :cool:

Désolé, peut-être qu'un "lispeur " ;) parviendra à nous donner une solution...............

[Bred]

Re,

As-tu tester le lisp proposé en lien dans la réponse 2 ?

[bibi1979]

Re BRED

 

 

J'ai trouvé mais en fait, ce lisp ne va pas dans ma situation,

il me sera super pratique pour de prochain plan, mais là il faudrait que je puisse copier ma première présentation, ou j'ai 2 fenêtres avec 2 profils au moins 135x.

Et que le décallage des 2 fenêtres se fassent.

 

[Edité le 1/7/2008 par bibi1979]

[lili2006]

Re,

 

Je me permet Bred,

 

Et il y a justement une nouvelle version. à la fin.

 

Clic sur le texte en bleu ci-dessus (une nouvelle version) et celui-ci t'envoi vers le lien que te propose Bred (Désormais l'homme de la quatrième dimension,... ;) ) en réponse 2