imprimer plusieurs folio en 1 seule commande

[gigif]

Bonjour,

 

J'ai un fichier dwg qui comprend environ 80 folios A4, tous bien alignés, sur l'espace objet !!!

 

Comment faire pour lancer l'impression de tous ces folios en une seule manip ?

 

Merci d'avance pour votre réponse,

[pierre43]

hello,

fichier et publier non?

a+

Pierre

[Guillaume.Desmedt]

Code récupéré sur un autre forum mais adaptable,

 

Il t'imprime en pdf les éléments contenus dans les polylignes définies dans le niveau "cadre".

 

A voir avec ceux qui manipulent bien le lisp... (pas mon cas pour le moment...)

 

(defun c:cadre2PDF ( / js n ent lst_pt pt_min pt_max)
 (setq js (ssget "_X" '((0 . "LWPOLYLINE") (67 . 0) (410 . "Model") (8 . "cadre") (90 . 4) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (210 0.0 0.0 1.0))))
 (cond
   (js
     (setvar "FILEDIA" 0)
     (setvar "CMDECHO" 0)
     (repeat (setq n (sslength js))
       (setq
         ent (ssname js (setq n (1- n)))
         lst_pt (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget ent)))
         pt_min (list (apply 'min (mapcar 'car lst_pt)) (apply 'min (mapcar 'cadr lst_pt)))
         pt_max (list (apply 'max (mapcar 'car lst_pt)) (apply 'max (mapcar 'cadr lst_pt)))
       )
       (command "_.-plot" "_Yes" "Model" "DWG To PDF.pc3" "ISO full bleed A4 (297.00 x 210.00 mm)" "_Millimeter" "_Landscape" "_No" "_Window" "_none" (trans pt_min 0 1) "_none" (trans pt_max 0 1) "1=10" "0,0" "_Yes" "acad.ctb" "_Yes" "_Wire" (strcat (getvar "DWGPREFIX") (vl-string-right-trim ".dwg" (getvar "DWGNAME")) (itoa n) "-" (getvar "CTAB") ".pdf") "_No" "_Yes")
     )
     (setvar "FILEDIA" 1)
     (setvar "CMDECHO" 1)
   )
 )
 (prin1)
)