Oceanis

voila ce que mon programme génère comme fichier scr : _OPEN Cartouche_2007 _zoom et _mcliche Cartouche_2007 _close o _OPEN Fenetre_A0 _zoom et _mcliche Fenetre_A0 _close o _OPEN Fenetre_A1 _zoom et _mcliche Fenetre_A1 _close o _OPEN Fenetre_A2 _zoom et _mcliche Fenetre_A2 _close o _OPEN Fenetre_A3 _zoom et _mcliche Fenetre_A3 _close o _OPEN Fenetre_A4 _zoom et _mcliche Fenetre_A4 _close o _OPEN C:\Documents and Settings\L.Dreano\Bureau\A Moi\AutoCAD_2007\Bibliotheque_blocs\Format\Cartouche_Oceanis\Cadre_A0H _zoom et _mcliche Cadre_A0H _close o _OPEN C:\Documents and Settings\L.Dreano\Bureau\A Moi\AutoCAD_2007\Bibliotheque_blocs\Format\Cartouche_Oceanis\Cadre_A0V _zoom et _mcliche Cadre_A0V _close o _OPEN Cadre_A1H _zoom et _mcliche Cadre_A1H _close o _OPEN Cadre_A1V _zoom et _mcliche Cadre_A1V _close o _OPEN Cadre_A2H _zoom et _mcliche Cadre_A2H _close o _OPEN Cadre_A2V _zoom et _mcliche Cadre_A2V _close o _OPEN Cadre_A3H _zoom et _mcliche Cadre_A3H _close o _OPEN Cadre_A3V _zoom et _mcliche Cadre_A3V _close o _OPEN Cadre_A4H _zoom et _mcliche Cadre_A4H _close o _OPEN Cadre_A4V _zoom et _mcliche Cadre_A4V _close o comme vous le constatez, j ai déjà tenté de modifier le chemin d accès au fichier, mais rien ne marche. je pense k il y a plus qu une simple modif à faire, mais modifier complètement le lisp qui le crée. le voici : (defun c:sldscr () ;; Cette fonction lit dans le répertoire courant ;; le fichier listedwg.txt (ou autre) ;; et crée un script de création de slide ;; ouverture des fichiers (setq fichierxtxt (getfiled "Select a Listedwg text File" "" "txt" 8) ) (setq fic1 (open fichierxtxt "r")) (setq long (strlen fichierxtxt) long_12 (- long 12) nom_chemin (substr fichierxtxt 1 long_12) fichierscr (strcat nom_chemin "forsld.scr") ) (setq fic2 (open fichierscr "w")) ;; parcours du fichier et traitement (setq ch1 "" i 0 ) (while (setq ch1 (read-line fic1)) (setq long (strlen ch1) long_4 (- long 4) nom_bloc (substr ch1 1 long_4) nom_dessin ch1 i (+ 1 i) ) ;; ecriture dans le fichier (setq ligne1 (strcat "_OPEN " nom_bloc ) ligne2 (strcat "_zoom " "et") ligne3 (strcat "_mcliche " nom_bloc ) ligne4 (strcat "_close " "o") ) (write-line ligne1 fic2) (write-line ligne2 fic2) (write-line ligne3 fic2) (write-line ligne4 fic2) (setq i (+ 1 i)) );while (close fic1) (close fic2) (alert "le fichier forsld.scr est créé !") );defun (prompt "\nExecution, taper : SLDSCR puis RETURN \n") (prin1)

Bonjour a tous, Je viens de me mettre à la 2007 et j ai besoin de faire une bibliothèque complète (avec images) de mes blocs (environ 700 fichiers dwg dans une 20ène de dossiers organisés). Le problème auquel je me trouve confrontée, est de trouver ou créer un script me permettant d ouvrir les 700 fichiers dessins et de créer les 700 clichés sld de ces blocs pour les mettre en menu ( cette partie est un autre problème pour moi, mais chaque chose en son temps). J ai déjà les listes de mes fichiers dwg, mais je n arrive pas à créer la routine pour ouvrir, faire et enregistrer mes clichés, refermer le fichier et passer au suivant sans me taper la totalité des fichiers 1 par 1. j avais une routine qui crée un scr, mais elle était valable pour la 2004, mais ne fonctionne plus sur la 2007. Pouvez vous m aider?? Merci d avance.