Aller au contenu

Bibliothèque de symboles


Messages recommandés

Posté(e)

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.

Posté(e)

Peux-tu ouvrire ton fichier scr et le copier dans ton message, je pense qu'il y a simplement

moyen de le modifier.(le fichier scr est en fait un fichier texte que tu ouvre avec le bloc-notes)

Posté(e)

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)

 

Posté(e)

Premiere chose, declare les chemins de recherche des fichier dans

OUTILS/OPTIONS onglet FICHIER , le premier de la liste ...SUPPORT

seconde chose:il manque des guillemet dans ton script, (celle de la touche 3 du clavier)

il faut

_OPEN [surligneur] "[/surligneur]Fenetre_A0 [surligneur] "[/surligneur]

_zoom et

_mcliche [surligneur] "[/surligneur]Fenetre_A0 [surligneur] "[/surligneur]

_close o

ensuite rajoute cette commande

[surligneur] rememberfolders 0[/surligneur] au début du fichier scr

[surligneur] rememberfolders 1 [/surligneur] a la fin du fichier scr

cette fonction permet simplement la creartion des sld dans le même répertoire

que les dwg[Edité le 9/2/2007 par ASTERIXII]

 

Pour le fichier lisp modifier

 ;; ecriture dans le fichier

(setq
ligne1 (strcat "_OPEN " nom_bloc )
ligne2 (strcat "_zoom " "et")
ligne3 (strcat "_mcliche " nom_bloc )
ligne4 (strcat "_close " "o")
)

 

par

 

 ;; ecriture dans le fichier
[surligneur] (setq nom_bloc (strcat nom_bloc "\""))[/surligneur]
(setq
ligne1 (strcat "_OPEN  [surligneur] \"[/surligneur]" nom_bloc )
ligne2 (strcat "_zoom " "et")
ligne3 (strcat "_mcliche  [surligneur] \"[/surligneur]" nom_bloc )
ligne4 (strcat "_close " "o")
)

[Edité le 9/2/2007 par ASTERIXII][Edité le 9/2/2007 par ASTERIXII]

 

[Edité le 9/2/2007 par ASTERIXII]

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité