Impression automatique

[mimiingerop]

Bonjour à tous les autocadiens spécialistes ...

J'ai plusieurs vues sauvées dans un même fichier autocad, et je voudrais automatiser leur impression, y a-t-il un moyen ??? Pour li'instant, je suis obligée de lancer mon impression et à chaque fois de choisir l'option vue nommée ce qui est vraiment laborieux ...

Merci d'avance de votre réponse

Mireille

 

[Tramber]

faire du script

un peu dur à mettre au point pour l'impression mais à tentet

(suivre mon lien)

 

 

[Tramber]

Commande: -traceur

Configuration de tracé détaillée? [Oui/Non] : o

 

Entrez un nom de présentation ou [?] :

Entrez un nom de périphérique de sortie ou [?] :

Entrez une taille de papier ou [?] :

Entrez des unités de papier [Pouces/Millimètres] :

Entrez une orientation du dessin [Portrait/pAysage] :

Tracé avec symétrie verticale? [Oui/Non] :

Entrez une aire de tracé [Affichage/Etendu/Limites/Vue/Fenêtre] : v

Entrez un nom de vue : 1

Entrez l'échelle du tracé (Millimètres tracé = Unités de dessin) ou [Plein

format] :

Entrez un décalage de tracé (x,y) ou [Centre] :

Tracé avec styles de tracé? [Oui/Non] :

Entrez le nom d'une table de tracés ou [?] (entrez . pour aucune) :

Tracer avec épaisseurs de ligne? [Oui/Non] :

Supprimer les lignes cachées? [Oui/Non] :

Enregistrer le tracé dans un fichier [Oui/Non] :

Enregistrer les modifications apportées à l'onglet Objet [Oui/Non]?

Poursuivre le tracé [Oui/Non] :

Zone effective du tracé: 178.24 de large par 285.18 de haut

 

Fenêtre de tracé 2.

 

ca se met au point mais en (très) gros ca fait :

 

TRACEUR o ;;;;;;V nomvue ;;;;;;;;
TRACEUR o ;;;;;;V nomvue2 ;;;;;;;;
TRACEUR o ;;;;;;V nomvue3 ;;;;;;;;

 

faisable, mais attention au nombre de validations (espace ou ";")

 

[autospeed]

il existe un applicatif nommé EDPLOTARCHIVER qui est vraiment exellent pour ce genre de probleme. Je ne suis plus au bureau mais contacte moi lundi sur auteurs@autospeed.biz et je te donnerais l'émail du développeur .

Phil http:// www.autospeed.biz

[bonuscad]

Bonsoir,

 

Un jour, un utilisateur voulait imprimer calque par calque ver un fichier EPS (pour faire un import vers PhotoShop)

J'ai donc repris la routine que j'avais faite pour l'adapter ce coup-ci au vues

Pour faire les tests j'ai gardé le format EPS ( économie de papier!)

Sous 2002, cela fonctionne mais sous 2006 je ne sais pas si la commande PSOUT existe encore.

Toujours est-il que le code peut s'adapter, mais il faudrait le faire sous une 2006 pour être sur et je ne l'ai pas.

 

Quelqu'un pourra peut être prendre le relai au cas où?

NB: Le format EPS peut être facilement converti au format PDF

(defun epserr (ch)
(cond
	((eq ch "Function cancelled") nil)
	((eq ch "quit / exit abort") nil)
	((eq ch "console break") nil)
	(T (princ ch))
)
(command "_.undo" "_end")
(if (<= sv_und 3) (command "_.undo" "_control" "_one"))
(command "_.undo" "1")
(setq *error* olderr)
(setvar "expert" drap)
(setvar "textfill" fill_txt)
(setvar "filedia" dia_file)
(setvar "cmdecho" 1)
(princ)
)
(defun c:view2eps ( / next_view name_view drap sv_und olderr fill_txt dia_file name_file typ_plot lst_view unit_plot scale_plot format_page prefix_folder)
(setvar "cmdecho" 0)
(setq drap (getvar "expert"))
(setq fill_txt (getvar "textfill"))
(setq dia_file (getvar "filedia"))
(setvar "textfill" 1)
(setvar "filedia" 0)
(setvar "expert" 5)
(if (<= (setq sv_und (getvar "undoctl")) 3)
	(command "_.undo" "_control" "_all")
)
(command "_.undo" "_group")
(setq olderr *error* *error* epserr)
(setq name_file (getfiled "Créer un fichier PosScript" "0" "eps" 33))
(setq typ_plot "View" lst_view '())
(initget "Pouce Millimètre _Inches Millimeter")
(if (not (setq unit_plot (getkword "\nEntrez les unités [Pouces/Millimètres] : ")))
	(setq unit_plot "Millimeter")
)
(setq scale_plot (getstring "\nEntrez l'échelle de tracer sous la forme 1=2 ou F pour ajuster à la page: "))
(textscr)
(princ "\nValeurs standard pour le format de sortie")
(princ "\nFormat          Largeur    Hauteur")
(princ "\nA                  8.00      10.50")
(princ "\nB                 10.00      16.00")
(princ "\nC                 16.00      21.00")
(princ "\nD                 21.00      33.00")
(princ "\nE                 33.00      43.00")
(princ "\nF                 28.00      40.00")
(princ "\nG                 11.00      90.00")
(princ "\nH                 28.00     143.00")
(princ "\nJ                 34.00     176.00")
(princ "\nK                 40.00     143.00")
(princ "\nA4                 7.80      11.20")
(princ "\nA3                10.70      15.60")
(princ "\nA2                15.60      22.40")
(princ "\nA1                22.40      32.20")
(princ "\nA0                32.20      45.90")
(princ "\nUTILISATEUR       10.75      15.59")
(initget 8 "A B C D E F G H I J K A4 A3 A2 A1 A0 UTILISATEUR _A B C D E F G H I J K A4 A3 A2 A1 A0 USER")
(if (null (setq format_page (getpoint "\nEntrez le format, ou la largeur,hauteur (en Pouces) : ")))
	(setq format_page "A4")
)
(if (setq next_view (tblnext "VIEW" T))
	(progn
		(setq
			name_view (cdr (assoc 2 next_view))
			lst_view (cons name_view lst_view)
		)
		(while (setq next_view (tblnext "VIEW"))
			(setq
				name_view (cdr (assoc 2 next_view))
				lst_view (cons name_view lst_view)
			)
		)
	)
)
(setq prefix_folder (substr name_file 1 (- (strlen name_file) 5)))
(repeat (length lst_view)
	(setq name_view (car lst_view))
	(setq name_file (strcat prefix_folder name_view ".eps")) 
	(command "_.psout" name_file (strcat "_" typ_plot))
	(command name_view)
	(command "_none" (strcat "_" unit_plot) scale_plot)
	(if (listp format_page)
		(command (strcat (rtos (car format_page) 2 2) "," (rtos (cadr format_page) 2 2)))
		(command (strcat "_" format_page))
	)
	(setq lst_view (cdr lst_view))
)
(princ "\nTous les vues ont été tracées en fichiers EPS dans l'espace courant.\n Commande terminée...")
(command "_.undo" "_end")
(if (<= sv_und 3) (command "_.undo" "_control" "_one"))
(command "_.undo" "1")
(setq *error* olderr)
(setvar "expert" drap)
(setvar "textfill" fill_txt)
(setvar "filedia" dia_file)
(setvar "cmdecho" 1)
(princ)
)

[mimiingerop]

Merci à vous tous ... C'est vraiment sympa de ne pas se sentir seule quand on cherche un tuyau...

Le script je sais que ça marche, j'ai même testé dans la 2006 (il faut juste désactiver la nouvelle saisie dynamique...) . Mais je voulais quelque chose de plus convivial ...

Le lisp j'ai essayé mais il ne marche pas, en effet la commande PSOUT n'existe plus dans la 2006 mais la routine doit être adpatable avec un peu de temps.

Je vais essayer le EDPLOTARCHIVER de Phil demain et je vous tiens au courant,

Quelqu'un sait-il si les sheetsets (jeux de feuilles) ne résolvent pas ce problème dans la 2006 ?

Encore merci,

Mireille

 

 

[jifi]

Salut,

 

A priori les jeux de feuilles devraient pouvoir résoudre le problème, je ne l'ai pas encore testé sur des vues, mais en ce qui concerne les présentations, ça fonctionne très bien.

 

Bon courage.

[PONTIAC95-2]

Bonjour,

Est-ce que tes vues sont sauvegardées sous le même onglet (ex 6-8 formats A3 sous le même onglet) et l'impression que tu veux faire est-elle en A3 de chaque vue ?

Si cela est le cas, j'ai un petit utilitaire qui avec quelques aménagements pourrait t'être utile.

Tu peux me contacter au mail suivant:

lionel.thomas@ingerop.com !!!!!!!!!!!!!!!

 

Ce n'est pas une blague....même boite à première vue!!!