Impression A4 et A3 en PDf

[tofjo]

Bonjour

 

J'ai un pb tout bête quand j'imprime en PDF mes présentations en A4 et A3.

 

En fait si j'imprime vers mon imprimante systeme, elle selectionne seule le format de papier en fonction de l'impression envoyée c'est a dire en A3 si ma présentation est en A3 et en A4 lorsqu'elle est en A4.. Jusque la tout va bien...

 

Le pb c'est quand je veux faire la même chose en PDF, j'ai bien sur les A3 générés au format A4 et donc tronqués......

 

Comment faire en sorte pour qu'il sache generer un PDF composé indifféremment de A3 et de A4 mélangés que l'on pourra imprimer ensuite en une fois sur un copieur qui choisira le papier en fonction des A4 A3 comme je le fais en direct depuis autocad?

 

Ps: je passe par un utilitaire d'impression(une routine) qui est sur le logiciel Autocad structural détailing 2009 qui fait la chose suivante: activation de la présentation séléctionnée dans un tableau puis impression avec l'imprimante choisie et le style de tracé.... cet addon m'évite de passer par la publication qui est super lente quand on a beaucoup d'onglets de présentation ( ce qui est mon cas)

 

Merci d'avance

tof

[Arcasdk]

Coucou Tofjo,

 

Quelque moteur pdf tu utilises???

 

Sinon y a ptet un truc à regarder dans les options de Autocad structural detailling...

[tofjo]

j'utilise PDF factory pro: j'ai bien essayé de trifouiller dans les options où il y a une case à cocher style "emuler mon imprimante système" mais ca me fait de belles pages blanches!!!

 

Mais j'ai essayé PDf creator et c'est pire: il ne sait même pas générer plusieurs fichiers à la file dans un seul PDF!!!

 

 

[tofjo]

ou alors existe t'il un lisp pour imprimer plusieurs onglets sans passer par la publication comme on pouvait le faire jusqu'a la version 2002?

[lili2006]

Bonjour à toutes et tous,

 

Mais j'ai essayé PDf creator et c'est pire: il ne sait même pas générer plusieurs fichiers à la file dans un seul PDF!!!

 

Ah bon ????!!!

 

Pourtant nous sommes extrêmement nombreux à l'utiliser ici !

 

Et la réponse est Si, il peut le faire !

 

Là aussi, comme sur tous logiciels, il faut regarder ce qui se cahce dans les menus déroulant,,.... ;)

 

Mettre après la première sortie, l'imprimante en attente, puis fusionner l'ensemble des documents (raccourci : control + C) !!

 

 

Si tu ne veux pas passer par la publication que je trouve personnellement très bien, là aussi tout dépend de ta configuration.(Traçé en arrière plan à désactiver de préférence,...), tu peux toujours utiliser le super lisp de Patrick_35,..

 

[tofjo]

oui bon c'est vrai j'avais pas vu que l'on pouvait fusionner tout les documents car j'étais trop mal habitué avec mon pdf factory qui incrémente seul les fichiers générés les uns après les autres....

 

Mais le résultat est le même il ne fait pas le pdf en fonction de la taille de papier!!!

 

je vais voir du côté de ce lisp ....

 

merci quand même

 

tof

[tofjo]

bon et le lisp ONG j'ai ce message

Erreur : no function definition: VLAX-GET-ACAD-OBJECT

 

....

[lili2006]

Re,

 

Mais le résultat est le même il ne fait pas le pdf en fonction de la taille de papier!

 

Bah c'est normal, comme toutes les imprimantes et traceur, non ?

 

900x750http://images1.hiboox.com/images/1509/4a279cd8f5c7d7db0529cd3f9d454eeb.jpg[/img]

 

Et comme ça ?

 

 ;;;=================================================================
;;;
;;; ONG.LSP V3.10
;;;
;;; Affichage des Présentations
;;;
;;; Copyright (C) Patrick_35
;;;
;;;=================================================================

(defun c:ong(/ cmd position resultat s *errong* affiche_ong)

[b][color=#FF0000](vl-load-com)[/color][/b]


 ;;;---------------------------------------------------------------
 ;;;
 ;;; Gestion des erreurs
 ;;;
 ;;;---------------------------------------------------------------

 (defun *errong* (msg)
   (if (/= msg "Function cancelled")
     (if (= msg "quit / exit abort")
(princ)
(princ (strcat "\nErreur : " msg))
     )
     (princ)
   )
   (setq *error* s)
   (setvar "cmdecho" cmd)
   (princ)
 )

 ;;;---------------------------------------------------------------
 ;;;
 ;;; Routine principale
 ;;;
 ;;;---------------------------------------------------------------

 (defun affiche_ong(/ ch choix fi fichier init_ong inv liste_lay n ptxy r resultat sel initialisation)

   (defun initialisation(pos / lay lst)
     (setq n 0 liste_lay nil)
     (vlax-for lay (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
(setq lst (append lst (list (cons (vla-get-taborder lay) lay))))
     )
     (while (assoc n lst)
(setq liste_lay (append liste_lay (list (vla-get-name (cdr (assoc n lst))))))
(if (eq (vla-get-name (cdr (assoc n lst))) (getvar "ctab"))
  (setq position (itoa n))
)
(setq n (1+ n))
     )
   )

   (setq Cle_Patrick_35 "HKEY_CURRENT_USER\\Software\\Autodesk\\Autocad\\Patrick_35")
   (if (setq ch (findfile "Ong.ini"))
     (progn
(setq fichier (open ch "r"))
(setq ptxy (list (atoi (read-line fichier))(atoi (read-line fichier))))
(close fichier)
     )
     (setq ptxy '(-1 -1))
   )
   (setq init_ong (load_dialog (findfile "Ong.dcl")))
   (initialisation 1)
   (while (/= resultat 1)
     (new_dialog "ong" init_ong "" ptxy)
     (setq n 0)
     (start_list "present")
     (while (nth n liste_lay)
(add_list (nth n liste_lay))
(setq n (1+ n))
     )
     (end_list)
     (set_tile "total" "Gestion des Onglets V3.10")
     (set_tile "present" position)
     (if (not c:oog)
(mode_tile "oog" 1)
     )
     (if (not c:mim)
(mode_tile "mim" 1)
     )
     (if (not c:mpl)
(mode_tile "mpl" 1)
     )
     (mode_tile "present" 2)
     (action_tile "present"   "(setq position $value)")
     (action_tile "inv"       "(setq inv $value)")
     (action_tile "choisir"   "(done_dialog 2)")
     (action_tile "renommer"  "(done_dialog 3)")
     (action_tile "effacer"   "(done_dialog 4)")
     (action_tile "nouveau"   "(done_dialog 5)")
     (action_tile "gabarit"   "(done_dialog 6)")
     (action_tile "copier"    "(done_dialog 7)")
     (action_tile "page"      "(done_dialog 8)")
     (action_tile "tracer"    "(done_dialog 9)")
     (action_tile "trier"     "(done_dialog 10)")
     (action_tile "oog"       "(done_dialog 11)")
     (action_tile "mim"       "(done_dialog 12)")
     (action_tile "mpl"       "(done_dialog 13)")
     (action_tile "accept"    "(setq ptxy (done_dialog 1))")
     (action_tile "cancel"    "(setq ptxy (done_dialog 0))")
     (setq resultat (start_dialog))
     (cond
((= resultat 2)
  (setq position (itoa (read position)))
  (command "_.layout" "_set" (nth (atoi position) liste_lay))
)
((= resultat 3)
  (setq sel position)
  (if (= (read position) 0)
    (alert "Impossible de renommer l'espace Objet")
    (progn
      (while (setq n (read sel))
	(setq choix (nth n liste_lay))
	(new_dialog "edi" init_ong)
	(set_tile "texte" "Renommer")
	(set_tile "select" choix)
	(mode_tile "select" 2)
	(action_tile "select" "(setq choix $value)")
	(action_tile "accept" "(done_dialog 1)")
	(action_tile "cancel" "(done_dialog 0)")
	(setq r (start_dialog))
	(if (= r 1)
	  (progn
	    (if (vl-position choix liste_lay)
	      (alert (strcat "Présentation " choix " existante"))
	      (if (and choix (/= choix "") (/= choix (nth n liste_lay)))
		(progn
		  (command "_.layout" "_ren" (nth n liste_lay) choix)
		  (setq liste_lay (subst choix (nth n liste_lay) liste_lay))
		)
	      )
	    )
	  )
	)
	(setq sel (substr sel (+ 2 (strlen (itoa n)))))
      )
    )
  )
)
((= resultat 4)
  (if (= (read position) 0)
    (alert "Impossible d'effacer l'espace Objet")
    (progn
      (setq sel position)
      (while (setq n (read sel))
	(command "_.layout" "_del" (nth n liste_lay))
	(setq sel (substr sel (+ 2 (strlen (itoa n)))))
      )
      (initialisation 0)
      (while (not (nth (atoi position) liste_lay))
	(setq position (itoa (1- (atoi position))))
      )
    )
  )
)
((= resultat 5)
  (setq position (itoa (read position)))
  (command "_.layout" "_new" "")
  (initialisation 0)
)
((= resultat 6)
  (if (setq fichier (getfiled "Choisissez un fichier Gabarit" "template\\" "dwt" 4))
    (progn
      (command "_.layout" "_temp" fichier "*")
      (initialisation 0)
    )
  )
)
((= resultat 7)
  (setq sel position)
  (while (setq n (read sel))
    (command "_.layout" "_copy" (nth n liste_lay) "")
    (setq sel (substr sel (+ 2 (strlen (itoa n)))))
  )
  (initialisation 0)
)
((= resultat 8)
  (setq sel position)
  (while (setq n (read sel))
    (command "_.layout" "_set" (nth n liste_lay))
    (command "_.pagesetup")
    (setq sel (substr sel (+ 2 (strlen (itoa n)))))
  )
)
((= resultat 9)
  (setq sel position pos "")
  (if (eq inv "1")
    (progn
      (while (not (eq sel ""))
	(setq pos (strcat (itoa (read sel)) " " pos))
	(setq sel (substr sel (+ 2 (strlen (itoa (read sel)))) (strlen sel)))
      )
      (setq sel (substr pos 1 (1- (strlen pos))))
    )
  )
  (while (setq n (read sel))
    (command "_plot" "n" (nth n liste_lay) "" "" "n" "n" "o")
    (setq sel (substr sel (+ 2 (strlen (itoa n)))))
  )
)
((= resultat 10)
  (setq liste_lay (append (list "Model") (acad_strlsort (cdr liste_lay))))
)
((= resultat 11)
  (c:oog)
)
((= resultat 12)
  (c:mim)
)
((= resultat 13)
  (c:mpl)
)
     )
   )
   (unload_dialog init_ong)
   (setq fichier (open (vl-string-subst "Ong.ini" "Ong.lsp" (findfile "Ong.lsp")) "w"))
   (write-line (itoa (car ptxy)) fichier)
   (write-line (itoa (cadr ptxy)) fichier)
   (close fichier)
 )

 ;;;---------------------------------------------------------------
 ;;;
 ;;; Routine de lancement
 ;;;
 ;;;---------------------------------------------------------------

 (setq s *error*)
 (setq *error* *errong*)
 (setq cmd (getvar "cmdecho"))
 (setvar "cmdecho" 0)
 (command "_.undo" "_group")
 (affiche_ong)
 (command "_.undo" "_end")
 (setq *error* s)
 (setvar "cmdecho" cmd)
 (princ)
)

(setq nom_lisp "ONG")
(if (/= app nil)
 (if (= (strcase (substr app (1+ (- (strlen app) (strlen nom_lisp))) (strlen nom_lisp))) nom_lisp)
   (princ (strcat "..." nom_lisp " chargé."))
   (princ (strcat "\n" nom_lisp ".LSP Chargé......Tapez " nom_lisp " pour l'éxecuter.")))
 (princ (strcat "\n" nom_lisp ".LSP Chargé......Tapez " nom_lisp " pour l'éxecuter.")))
(setq nom_lisp nil)
(princ)

[lili2006]

Re,

 

Remplacer les smilleys dans le lisp ci-dessus par c: ong, bien sûr ! (Sans espace entre c: et ong !!!)

 

Pour le réglage de ta publication =>

 

http://images1.hiboox.com/images/1509/709594553bc377ea984575c752979d36.jpg

[rvpas]

Salut à tous,

 

J'ai découvert il y a quelque temps un petit applicatif sympat pour rassembler des PDF ou les désassembler.

PDF split and merge de chez www.pdfsam.org.

C'est la solution que j'utilise pour rassembler mes fichier sortie venant de DWG to PDF en ce qui me concerne.

Malheuresement je ne pe pas échapper à publier.

 

Bon courage

PASCAL

 

 

[tofjo]

Bonjour

 

et merci pour ces réponses

 

J'ai trouvé la solution à mon pb

 

En fait il faut que dans le gabarit de ma présentation que j'importe chaque fois que je crée une nouvelle présentation j'ai mon imprimante PDF avec le format A4 ou A3 suivant le format que je veux et ainsi lors de l'impression pas besoin de réfléchir il fait le boulot et j'ai un pdf final avec des A4 et A3 mélangés!!