Lancer l\'impression de plusieurs fichiers

[FormaBois]

Bonjour,

J'aimerais lancer l'impression de plusieurs fichiers DWG, seulement voilà, sur la centaine de fichiers existants il n'y a rien en présentation, tout se passe sur l'onglet objet.

ça marche très bien lorsqu'on imprime un seul fichier, seulement lorsque je veux lancer une impression groupée de plusieurs fichiers, impossible.

J'ai bien essayé avec Publier, mais la LT n'a pas la rubrique : "traceur nommé dans la mise en page"

Dur, dur de tracer tout ces folios l'un après l'autre

Quelqu'un connaîtrait-il un moyen ??

Merci de votre attention

 

Charlie

[lili2006]

Bonsoir à toutes et tous,

 

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

[x_all]

je ne suis pas sur que ça le fasse.. son cas à l'air différent...

 

mais si, il n'y a pas de présentation, pas de vue enregistrée, pas de calque réservé a des cades limitant un zone d'impression, bref aucun repère pour un automate.. je voie pas...

 

il va falloir que tu ouvre tes dessins un a un et laborieusement y insère une solution de repérage...

 

ensuite, yavait superautoscript qui pourrai lancer une des solutions retenue sur tous les fichiers d'un répertoire...

 

mais bon... si tu dois les ouvrir un par un, fait des présentations et utilise le "gestionnaire de feuille" pour grouper tout ça...

[Arcasdk]

J'ai une petite routine qui fonctionne peut importe la présentation ou l'objet. c'est le scr de patrick35.

 

Y a juste les lignes en jaunes à changer

 

 ;;;=================================================================
;;;
;;; SCR.LSP V2.00
;;;
;;; Créer un script pour traiter les fichiers d'un répertoire
;;;
;;; Copyright (C) Patrick_35
;;;
;;;=================================================================

(defun c:scr(/ fic fscr lst n)
 (if (setq fic (getfiled "Impression de plusieurs Fichiers - Sélectionnez un fichier cible" (getvar "dwgprefix") "dwg" 16))
   (progn
     (setq lst (acad_strlsort (vl-directory-files (vl-filename-directory fic) "*.dwg" 1))
           fscr (open (strcat (vl-filename-directory fic) "\\SCRIPT.SCR") "w")
    n 0)
     	(write-line "(command \"FILEDIA\" \"0\")"fscr)
     (while (nth n lst)
       (write-line (strcat "_.open " (chr 34) (vl-filename-directory fic) "\\" (nth n lst) (chr 34)) fscr)
;;(write-line "o" fscr)
       ;;(write-line "(acad-push-dbmod)" fscr)

;=======================================================================================
; Début de Partie personnalisable
;=======================================================================================
       (write-line "(command (setvar \"tilemode\" 1))" fscr) ;;Tilemode 0 pour présentation
(write-line "(command \"zoom\" \"et\")" fscr)
       (write-line "(command \"-traceur\" \"o\" [surligneur]\"\" \"\\\\\\\\10.128.236.3\\\\KONICA MINOLTA 420 RDC Hall 18\" \"A4\" \"m\" \"a\" \"n\" \"e\" \"p\" \"c\" \"o\" \"monochrome2.ctb\" \"o\" \"n\" \"n\" \"n\" \"o\" [/surligneur])" fscr)
(write-line "(command \"_qsave\" \"\" )" fscr)

;=======================================================================================
; Fin de Partie personnalisable
;=======================================================================================

       ;;(write-line "(acad-pop-dbmod)" fscr)
       ;;(write-line "(if (zerop (getvar \"sdi\"))" fscr)
       (write-line "  (command \"_.close\" \"o\" )" fscr)
       (setq n (1+ n))
     )
     (write-line "(command \"FILEDIA\" \"1\")"fscr)
     (close fscr)
     (princ (strcat "\n\tFichier " (vl-filename-directory fic) "\\SCRIPT.SCR créé"))
   )
 )
 (princ)
)

(princ "\nSCR.LSP chargé. Tapez SCR pour l'exécuter")
(princ)

[FormaBois]

Salut à tous,

Merci pour vos réponses.

J'étais absent ces 4 jours, je vais étudier tout ça et vous tiens au courant.

Restez bien là.... car les scripts je n'ai pas encore utilisé, je vais donc faire des recherches d'info la dessus !

Pour la routine lisp, sur LT ça va pas le faire non plus.

++

 

Charlie

[Bred]

Salut,

il n'y a rien en présentation, tout se passe sur l'onglet objet.

Si tous tes espaces objets n'ont qu'une mise en plan et que ton traceur est configurer, as-tu essayé de sélectionner tous tes fichiers dans le répertoire, clic doit, et dans le menu déroulant : imprimer.

(Bon, j'ai jamais testé cette méthode sur des dwg, que sur des pdf, mais il n'y a pas de raison que ça ne fonctionne pas.)

 

Fais un test sur un petit nombre de fichiers d'abord...

[FormaBois]

Salut Bred,

J'ai essayé avec 3 fichiers .. mais ça ne marche pas :(

[FormaBois]

il va falloir que tu ouvre tes dessins un a un et laborieusement y insère une solution de repérage...

ensuite, yavait superautoscript qui pourrai lancer une des solutions retenue sur tous les fichiers d'un répertoire...

 

Salut à tous,

J'ai fais quelques recherches sur le site et pondu mon 1er script... qui ne marche pas jusqu'au bout.

Voici le message d'erreur :

======

Choix des objets: ESPACEP

 

*Sélection non valable*

Attend un point ou

Fenêtre/Dernier/Capture/BOîte/TOUT/Trajet/SPolygone/CPolygone/Groupe/Ajouter/Sup

primer/Multiple/Précédent/annUler/AUto/uniQue

======

Voila le script, mais attention ne vous moquez pas ;)

PRESENTATION

E

Présentation1

-FENETRES

Z

ESPACEO

ZOOM OB

ESPACEP

 

Seulement la question maintenant c'est comment exécuter ce script à tout les fichiers successivement, pour qu'il me créer une fenêtre sur l'onglet présentation1 de chaque fichier.

Et même plus qu'il efface la fenêtre qui existe le cas échéant.

Je rappel que chaque fichier contient un seul dessin de schéma électrique

 

Tu parles x_all de "superautoscript" , mais comment fonctionne-t-il ?

Merci de votre attention

 

Charlie

 

[lili2006]

Bonjour à toutes et tous,

 

Tu parles x_all de "superautoscript" , mais comment fonctionne-t-il ?

 

Va voir cette page

 

Tu choisis ton script, tu choisis les fichiers que tu veux "scripter", tu lances le script, tu vas boire un café, tu revient, c'est fini !

Bref, magique !

 

Merci encore à Eric, fidèle membre de ce site.

Si tu veux faire une recherche ici, le pseudo de Caderix, le développeur de Superautoscript (entr'autres,...!), c'est Eric.

[FormaBois]

Salut à tous,

Merci lili2006, non seulement ça marche (j'ai fais l'essai sur 3 fichiers) mais en plus je n'ai même pas eu le temps de prendre un café ;) c'est vraiment magique.

J'ai trouvé l'erreur sur mon 1er script. Le voici presque terminé

Je souhaiterais juste pour finir :

1. lui demander de me créer un calque non imprimable et le mettre par défaut

2. Renommer Présentation1 en Folio 001, Folio 002 etc.

mais là c'est pas gagné... auriez vous une idée au moins pour renommer avec incrémentation les présentation1 de chaque dwg ?

Merci

 

PRESENTATION

E

Présentation1

-FENETRES

Z

ESPACEO

ZOOM ET

ESPACEP

-TRACEUR

O

Présentation1

Canon ip4200

A4 M A O E P 0,0 O Monochrome.stb O N O N N O

SAUVERAP

QUITTER

 

 

[lili2006]

Bonjour à toutes et tous,

 

temps de prendre un café

 

C'est dans le cas ou tu aurais 300 fichiers,... :P

 

Désolé de ne pouvoir t'aider sur le script,...

[FormaBois]

Salut à tous,

bon j'ai avancé un peu mais suis toujours bloqué ... si près du but ! je m'explique

1. Après avoir créé un script qui paramètre une présentation et un traceur, puis avec "super script" d'Eric de l'appliquer à tous les fichiers, ... finalement je suis bloqué avec mes présentations qui ont toutes le même nom, (Présentation1) donc impossible de lancer "Publier" puis de choisir mes présentations.

2. Je me suis orienté vers le jeu de feuilles mais comme aucune vues n'est créée il faudrait donc à nouveau faire un script qui créer des vues en objet sur chaque dessin... et finalement je vais buter sur le même problème, comment nommer toutes ces vues sur la centaine de fichiers contenu dans ce dossier pour pouvoir les choisir lors de l'impression.

 

Comme la 1ère solution est pas mal avancé, ma question est : comment faire sur un script pour incrémenter les N° de présentations de tout mon dossier ?

Help ! Bred es-tu là ?

Merci de votre aide à tous

 

Charlie

 

[Bred]

Salut,

En script, je vois mal comment incrémenter le nom d'un onglet.

Surtout en "folio 1" "folio 2", etc...

Mais je ne suis pas un gros utilisateur de script...

 

Un truc que j'utilise en lisp pour avoir des nom aléatoire est d'utiliser la variable TDUSRTIMER...

Mais la glisser en script, je ne vois pas, désolé...

 

Après, je sais qu'il est possible de piloter un LT en passant pas le VB d'Excel...

:( :(

[FormaBois]

... bref aucun repère pour un automate.. je voie pas...

il va falloir que tu ouvre tes dessins un a un et laborieusement y insère une solution de repérage...

x_all , en relisant ton post, je viens de penser à un truc.

Est-il possible avec un script, (pour renommer une présentation) d'aller récupérer dans les propriétés du fichier, le nom de ce fichier.

Ainsi chaque "Présentation1" renommé par le script aurait le même nom que le fichier, ça pourrait être une solution.

Quelqu'un saurait-il comment il faut s'y prendre ?

Car la commande PROPDESS n'est pas transparente

 

Merci Bred pour ta réponse

 

Ne pourrait-on pas utiliser les champs, en copiant l'expression de champ "Nom du fichier" depuis une complète et la mettre dans le script ?

 

[%<\AcVar Filename \f "%tc3%fn6">%]

 

Mais là j'avoue ne pas savoir mettre en œuvre...

Quelqu'un a une idée ?

 

[Edité le 7/7/2008 par FormaBois]

[Bred]

Salut, Je n'ai pas de LT sous la main, donc on va y aller à taton :

 

1 - est ce que ceci tapé en ligne de comande te retourne le nom du fichier :

 (GETVAR "DWGNAME")

Si oui, ceci dans le SCR devrais fonctionner :

PRESENTATION R Présentation1 (GETVAR "DWGNAME")

 

Sinon :

2 - Je crois que les commandes (setenv.. et (getenv... sont reconnu en LT.

.. Mais je ne sais pas quel sont toutes les commandes reconnu (diesel)

Dans ma version lourde, il est marqué que ceci est reconnu, c'est pareil en LT ?

 

Les opérations d'extraction, de calcul et d'affichage de l'état sont effectuées par des fonctions DIESEL. Toutes les fonctions sont limitées à 10 paramètres, y compris le nom de fonction lui-même. Si cette limite est dépassée, un message d'erreur DIESEL apparaît.

 

Rubriques de cette section

+ (addition)

- (soustraction)

* (multiplication)

/ (division)

= (est égal à)

< (inférieur à)

> (supérieur à)

!= (différent de)

<= (inférieur ou égal à)

>= (supérieur ou égal à)

et

angtos

edtime

eq

eval

fix

getenv

getvar

if

index

nth

ou

rtos

strlen

substr

upper

xor

 

[FormaBois]

Salut, Je n'ai pas de LT sous la main, donc on va y aller à taton

 

Salut,

je n'en ai pas non plus pour l'instant, je vais donc voir avec un collègue pas mail interposé.

je te donne des nouvelles ... en tout cas Merci ;)

++

 

Bred, ça marche nickel sur une complète, mais LT ne connaît pas la commande GETVAR :(

Quel dommage si prêt du but ... je reconnais que là j'ai épuisé mes ressources, déjà pas très importantes.

Quelqu'un aurait-il une autre idée pour récupérer un nom de fichier sur LT ?

Ou tout autre idées pour incrémenter mes présentations

 

Merci à tous

 

Charlie

 

[Edité le 7/7/2008 par FormaBois]

[bonuscad]

mais LT ne connaît pas la commande GETVAR

 

Si mais seulement en Diesel, et celui ci n'est utilisable que dans des macros, pas dans des scripts :casstet:

 

Tu peux vérifier ceci avec modemacro en mettant $(getvar,"dwgname") , le nom de ton dessin va apparaitre dans la barre d'état.

 

Personnellement je pense que tu es coincé dans cette voie, désolé...

 

Il reste la possibilité par une syntaxe en commande DOS (executer, puis cmd): dir *.dwg /b>listdwg.scr (ceci dans le bon dossier bien entendu)

et tu génère ton script avec ce fichier scr en intercalant par copier-coller la séquence de commandes adéquates entre chaque nom de fichier.

[Bred]

Re,

J'ai suggéré une idée à Eric por SuperAutoScrip ici.

[FormaBois]

Merci à vous deux,

bonuscad, je ne suis pas sur d'avoir tout compris, je lance mon script par "Exécuter" de windows, mais ensuite je n'ai pas tout saisie... Je vais quand même essayer les directives que tu donnes.

 

[x_all]

j'ai pas tout suivi, et lu un peu en diagonale...

 

mais (une fois de plus) je passerai par pdfcreator comme intermédiaire a une impression définitive

 

soit, lancer le scrip pour tout imprimer sur pdfcreator

laisser les fichiers s'empiler dans le buffer (pas de pb de nom de présentation)

tout selectionner et demander combine avec un clic droit

 

se servir d'accrobat pour tout sortir d'un coup...

 

enfin si ça marche je te piquerai volontiers ton script car j'ai moult détails a trier et une sortie préliminaire que je voullais faire faire a un stagiaire d'été, mais ce serai plus cool que d'utiliser un esclave :D

[FormaBois]

Salut x_all ,

pas de problème je te met les 2 scripts

Le 1er crée 1 calque fenêtre non imprimable - le valide par défault - passe en présentation et la renomme du nom du fichier (pour les Full) crée une fenêtre l'ouvre et fait un zoom étendu puis bascule papier - valide le calque 0 par défault - sauvegarde et quitte (supprimer QUITTER pour le test)

 

Le 2ème Va plus loin : paramètre un traceur et un style Monochrome- lance l'impression - sauvegarde et Quitte.

 

-CALQUE N

Fenêtre CH

Fenêtre T A

Fenêtre

 

PRESENTATION E

Présentation1

PRESENTATION R Présentation1

(GETVAR "DWGNAME")

-FENETRES

Z

ESPACEO

ZOOM ET

ESPACEP

-CALQUE CH 0

 

SAUVERAP

QUITTER

=================

-CALQUE N

Fenêtre CH

Fenêtre T A

Fenêtre

 

PRESENTATION E

Présentation1

PRESENTATION R Présentation1

(GETVAR "DWGNAME")

-FENETRES

Z

ESPACEO

ZOOM ET

ESPACEP

-CALQUE CH 0

 

-TRACEUR

O

Présentation1

PDFCreator

A4

M

A

N

E

P

C

O

Monochrome.stb

O

N

O

N

N

O

O

 

SAUVERAP

QUITTER

==============

Sinon mon problème reste le même avec PDFCréator, dans la liste des fichiers qui s'empilent dans le buffer comment faire pour reconnaître les Présentations qui m'intéressent, à moins bien sur d'imprimer toutes la liste ... mais ce n'est pas ce que je veux.

C'est un plaisir pour moi de partager mon 1er travail un peu perso :)

Au plaisir

 

P.S. J'attend les commentaires et corrections[Edité le 8/7/2008 par FormaBois]

 

[Edité le 8/7/2008 par FormaBois]

[x_all]

comment faire pour reconnaître les Présentations qui m'intéressent

 

ben dans pdf créator, tu sélectionne tout, tu fait combine et ça te fait effectivement un pdf avec toutes tes feuilles, après avec un éditeur de pdf, tu supprime les feuilles que tu veux pas ou dans acrobat tu fait imprimer de 1-6 ; 8;10; 15-25 (par exemple)

ya aussi de mémoire un option pour imprimer plusieurs feuilles par page pour te faire une "planche contact" et faire ton trie

 

pour éditer les pdf, j'utilise pdfsam

ça te permet de "spliter" un pdf en N feuilles (et tu peu alors virer celle que tu veux pas et le re assembler)

 

[FormaBois]

tu supprime les feuilles que tu veux pas

Le problème avec LT c'est que tu ne peux pas renommer tes présentations avec incrémentation, donc elles s'appellent toutes "Présentation1"

Comment fais-tu pour reconnaître celles que tu veux imprimer dans la liste ? :o

[x_all]

ben tu ouvre ton pdf avec accrobat reader (comme tout bon pdf aprés un clic clic)

 

le truc c'est de tout sortir sur un seul pdf puis de trier... pdfcréator étant une imprimante virtuelle, on gaspille pas de papier :)

le nom des présentation n'a pas d'importance ce sera dans ton fichier feuille 1, 2,...

 

avec pdfsam tu vas te retrouver dans un répertoire avec n fichiers nommer de 1 à n qui correspondent au n° de tes pages...

[FormaBois]

Ben oui ! où avais-je la tête ?

le seul petit problème que comporte cette méthode va être le temps pour générer toute les présentations fusionnées, plus d'une centaine (j'utilise PDFCréator)

Mais sinon je reconnais que c'est une solution.

Merci à toi x_all