Helsa Posté(e) le 7 juillet 2022 Partager Posté(e) le 7 juillet 2022 Bonjour, J'aimerais réaliser un script pour imprimer un lot de fichier mais le nom des présentation n'est pas uniforme. Du coup, je ne sais pas comment faire. Merci d'avance pour vos réponses. Citer Lien vers le commentaire Partager sur d’autres sites More sharing options...
vincentp010 Posté(e) le 12 juillet 2022 Partager Posté(e) le 12 juillet 2022 Bonjour, Ci joint un exemple de lisp qui imprime les présentations dans l'ordre du dessin (vl-load-com) (vlax-for layt (vla-get-layouts (vla-get-ActiveDocument (vlax-get-acad-object))) (setq layt_lst (cons (cons (vla-get-TabOrder layt) (vla-get-Name layt)) layt_lst)) ) (setq layt_lst (vl-sort layt_lst '(lambda (x y) (< (car x) (car y))))) (foreach layt layt_lst (command "._layout" "_set" (cdr layt)) ; detail present imprimante papier unite orient symetrie layout ech decal strace ctb epaisl echepais ep1er masquerep fichier enregistrer tracer (command "_-plot" "_y" "" imprimante A3 "_m" "" "" "_l" "" "" "_y" "" "" "" "" "" "_n" "_n" "_y") ) Citer Aide au téléchargement du cadastre dgfip-download-helper Insertion de photos géolocalisées exif https://www.dropbox.com/s/gkf6o9ac2hxen97/exifscr.zip?dl=0 Script correction BUG SPDC V2, propriétaire département 21 et 22 : https://greasyfork.org/scripts/442400-spdcv2/code/SPDCV2.user.js Lien vers le commentaire Partager sur d’autres sites More sharing options...
Helsa Posté(e) le 10 août 2022 Auteur Partager Posté(e) le 10 août 2022 Merci bien pour le lisp, mais je ne peux pas en faire grand chose. J'avais choisi d'utiliser un script, ne maitrisant pas le lisp. J'ai un Script pour les 3 premiers fichiers qui donne : _OPEN I:\Plans\00CN01\RNA\T010\CN-RNA-DOE-T010S00_01C.dwg _-PLOT O COVAGE.PC3 Utilisateur 1 (330.00 x 3000.00 mm) M PA N E 1:1 0,0 N . 0 N N N I:\Plans\00CN01\RNA\T010\CN-RNA-DOE-T010S00_01C.pdf O O -QSAVE _CLOSE _OPEN I:\Plans\00CN01\RNA\T010\CN-RNA-DOE-T010S00_02C.dwg _-PLOT O COVAGE.PC3 Utilisateur 1 (330.00 x 3000.00 mm) M PA N E 1:1 0,0 N . 0 N N N I:\Plans\00CN01\RNA\T010\CN-RNA-DOE-T010S00_01C.pdf O O -QSAVE _CLOSE _OPEN I:\Plans\00CN01\RNA\T010\CN-RNA-DOE-T010S00_03C.dwg _-PLOT O COVAGE.PC3 Utilisateur 1 (330.00 x 3000.00 mm) M PA N E 1:1 0,0 N . 0 N N N I:\Plans\00CN01\RNA\T010\CN-RNA-DOE-T010S00_01C.pdf O O -QSAVE _CLOSE Au niveau du choix de la présentation papier, j'ai remplacé par un espace, soit er présentation par défaut. Ce qui me convient puisque tous les fichiers n'ont qu'une la première présentation à imprimer. Là ou ca coince, c'est au niveau du PC3... Je ne sais pas comment l'enregistré par défaut dans les fichiers. Pour l'instant mon script s'arrête à "entrer un nom de périphérique de sortie"... Quelqu'un peux il m'aider ? SCRIPT_IMPRESSION_RNA_Test.scr Citer Lien vers le commentaire Partager sur d’autres sites More sharing options...
Messages recommandés