un SCRIPT : pour ouvrir les dessins (par exemple)

[rebcao]

Tramber peux-tu me confirmer si je suis dans le bon Forum pour parler des SCRIPT ?

 

en attendant,

 

si cela vous intéresse de pouvoir générer par un simple double clic un SCRIPT qui va lancer l'ouverture de tous les dessins trouvés dans le dossier et sous-dossiers dans lequel on a lancé la petite application (un .BATch).

 

Une fois le script créé, dans AutoCAD on lance le script ZOOM-NEW.SCR dans le dossier choisit :

 

1. Le dessin est ouvert

2. On fait un zoom etendu

3. On l'enregistre

4. On ferme le dessin

5. et ainsi jusqu'à la fin de la liste, qu'il y en ai 10, 1000 ou 10 000...

 

Genre de truc sympa pour profiter des aperçus sur tous les dessins. Surtout lorsqu'on a des vieux dessins "Bibliothèque" en R12.

 

L'intérêt est de pouvoir traiter par lot un nombre important de fichier.

Corriger sa bibliothèque en Calque 0, Couleur, Type de ligne, Epaisseur et Style de tracé en DUBLOC n'est plus très fastidieux à faire.

 

Si ça intéresse...!

 

Christian

 

[Edité le 5/11/2004 par rebcao]

[LUDWIG]

ben ça m'intéresse...

 

Faire un script qui convertir tout en ducalque + zoom étendu, je sais faire mais comment faire pour fermer le dessin et ouvrir le suivant ?

[Tramber]

Tramber peux-tu me confirmer si je suis dans le bon Forum pour parler des SCRIPT ?

;)

Tous les forums AutoCAD sont bons pour parler de scripts mais c'est vrai que celui-là, pour moi, c'est le plus sympa.

 

Le tout c'est de ne pas, emporté par la fougue comme le sont les nombreux fougueux, de parler de lisp dans un forum AutoCAD LT !!!

(attention, je m'y connait en fougue !)

[rebcao]

Le tout c'est de ne pas, emporté par la fougue comme le sont les nombreux fougueux, de parler de lisp dans un forum AutoCAD LT !!!

 

c'est le genre de détail, auquel je suis très attentif. :exclam:

 

AutoCAD LT et le langage DIESEL, par conte ! Là on fait des merveilles !!! :D

 

Christian

[rebcao]

ben ça m'intéresse...

 

Faire un script qui convertir tout en ducalque + zoom étendu, je sais faire mais comment faire pour fermer le dessin et ouvrir le suivant ?

 

Bonsoir Ludwig,

 

Donnes-moi exactement se que tu veux faire, exemple :

 

Changer tous les objets dans calque 0, puis Changer Couleur, Type ligne, Epaisseur en DUBLOC, etc.

 

Je te modifie le fichier en question et je met un ZIP à disposition dans mon prochain message...

 

 

Christian

 

[LUDWIG]

ben ce n'est pas encore précis, je sais que je vais avoir à faire des scripts. Ce que je ne saurais pas faire c'est automatiser l'ouverture d'un dessin puis la fermeture et l'ouverture du suivant.

 

1 - Ouvre le premier dessin d'un dossier

2 - Effectue le script (ça je saurais faire). Par exemple Activer/Dégeler/Déverrouiller Tout ;Zoom Etendu ; Changer Propriétés Couleur/Epaisseur/Type de ligne DuCalque ; Enregister

3 - Fermer le dessin et ouvrir le suivant.

 

Tu traites cela avec un script ?

[bonuscad]

Salut

 

Je ne peut retenir ma fougue, Tramber va dire que je met du Lisp partout.

 

Ce que je te propose en fait, est une routine pour FABRIQUER ton SCRIPT

 

Si tu execute le code suivant, un fichier OPEN_FOLDER.SCR va être généré dans le dossier en cours.

Ce script va donc ouvrir chaque dessin du dossier en cours, faire un zoom tout et fermer celui-ci en sauvegardant.

 

(defun c:open_folder ()
(command "_sh" "dir *.dwg/b>files.txt")
(setq file_dwg (open "files.txt" "r"))
(setq file_scr (open "open_folder.scr" "w"))
(while (setq dwg (read-line file_dwg))
	(write-line "_.open" file_scr)
	(write-line dwg file_scr)
	(write-line "_.zoom" file_scr) ;;mettre la commande que l'on veut
	(write-line "_all" file_scr)   ;;mettre les options désirées de la commandes précédente
	(write-line "_.close" file_scr)
	(write-line "_no" file_scr)
)
(close file_scr)
(close file_dwg)
)

 

La routine sera peut être à paufiner, mais elle fonctionne (j'ai essayé) ;)

 

Soit tu lance directement le script dans AutoCAD avec la commande SCRIPT et tu sélectionne le fichier généré

Soit tu te créer un raccourci de lancement avec l'option /b et le nom du fichier script

ex:

"C:\Program Files\AutoCAD 2002\acad.exe" /b "c:\dossier\open_folder.scr"

 

NB: le smiley est involotaire dans le code, il faut comprendre

(defun c: open_folder sans l'espace

[rebcao]

Voici le .ZIP

 

il contient 4 fichiers qui ont été passés à l'anti-virus ! à refaire éventuellement !

 

Copier les fichiers du ZIP dans le dossier concerné, exemple :

 

c:\dessin\BIB

 

dans BIB tu exécutes le fichier LISTE_ZOOM ETENDU.BAT qui crée le fichier ZOOM-NEW.SCR y a plus qu'à !

 

Christian

 

[lecrabe]

 

Bonsoir mon très cher EastMan

 

SVP peux tu nous expliquer ce que font tes 3 EXEs:

debligne.exe

finligne.exe

r-r.exe

 

C'est quoi ton traitement avec "r-r.exe" sur les caractères spéciaux ?

 

Je suis fatigué ce soir et j'ai la comprenette un peu "pincée" !

 

Bye

 

[rebcao]

Bonsoir Pa...LeCrabe...

 

ça fait plaisir ! c'est rare d'être en ligne l'un et l'autre...

 

Je t'envoie ce message en urgence, je prépare les explications...

 

à tout de suite...

 

Christian

[rebcao]

Voila,

 

DEBLIGNE.EXE place en tête de chaque ligne un "MARQUEUR" ici ###

FINLIGNE.EXE place un "MARQUEUR" à la fin de chaque ligne ici @@@

 

Lorsque l'on récupère une liste de fichiers, on a pas toujours un début et une fin identique à chaque ligne.

 

R-R.EXE remplace en début de ligne (tous les ### et les @@@) par la séquence SCRIPT qui se trouve à la fin du fichier LISTE_ZOOM ETENDU.BAT

 

Une grande partie du fichier LISTE_ZOOM ETENDU.BAT va convertir les caractères spéciaux (è, é, à, ç, etc.) WINDOWS en DOS.

 

Et tu sais qu'il y en a qui continu à utiliser les caractères accentués...

 

S"il manque quelque chose cher LeCrabe, n'hésites pas !

 

Christian

 

 

[Edité le 20/11/2004 par rebcao]

[lecrabe]

 

ReBonsoir Eastman

 

OK j'ai compris, car je n'avais rien pigé à tes lignes r-r sur les caractères spéciaux :(

 

Il est vrai que je suis un vieux dinosaure échappé de son Jurassic Park

(Antique Monde du MS-DOS et de UNIX) :cool:

 

Et je n'utilise que les 26 lettres "normales" de l'alphabet, les 10 chiffres,

le caractère "souligné / underscore" et parfois le "moins / minus"

dans mes noms de fichiers et TOUS mes objets / calques / styles / etc AutoCAD !!!

 

Donc quand je fais des scripts, c'est COOL :D

 

Bye

 

 

[LUDWIG]

Waou ! Sympa la génération automatique de script.

 

Je n'ai pas réussi à utiliser le lisp de bonuscad...

Mais en éditant le .bat de Christian pour y modifier le script, ça fait des choses super !

 

Merci à Vous, Grands Maîtres !

[Tramber]

ben ce n'est pas encore précis, je sais que je vais avoir à faire des scripts. Ce que je ne saurais pas faire c'est automatiser l'ouverture d'un dessin puis la fermeture et l'ouverture du suivant.

 

1 - Ouvre le premier dessin d'un dossier

2 - Effectue le script (ça je saurais faire). Par exemple Activer/Dégeler/Déverrouiller Tout ;Zoom Etendu ; Changer Propriétés Couleur/Epaisseur/Type de ligne DuCalque ; Enregister

3 - Fermer le dessin et ouvrir le suivant.

 

Tu traites cela avec un script ?

 

Oui, oui, oui, et ca marche super.

Les commandes sont :

OUVRIR bla bla

et

FERMER

 

avoues que c'est pas dur !?

[Ellionel]

Bonjour ,

 

je viens de copier le zip zt de l'installer ..

cela marche bien ...

 

Par contre quand j'execute le script depuis autocad 2007 .

Il me bloque en me demandant de précider la version souhaiter de dxg(2004 ) , puis si je veux ecraser l'ancien (o) . et se stope ...

 

Merci de vos aides ...