Testez SuperAutoScript

[Eric]

Pour ceux qui ont suivit l'affaire, j'avais réalisé il y a quelques temps un petit programme nommé ZoomTout

 

Ce projet à évolué pour arriver à SuperAutoScript (oui ça fait pompeux, mais ça ne fait pas de mal de se faire du bien )

 

Ce programme permet d'effectuer un script sur plusieurs fichiers AutoCAD

Il existe 3 scripts enregistrés et une case pour entrer un script personnalisé

Si vous utilisez les scripts perso, rentrer votre texte dans la case puis cliquez sur le bouton validez le script pour qu'il soit pris en compte (sinon votre script sera vide)

 

Ensuite cliquez sur lancer le script pour effectuer les taches.

 

AutoCAD doit être installé sur votre PC pour fonctionner

SuperAutoScript ne fonctionne que sur les versions françaises d'AutoCAD et devrait fonctionner sur les versions LT

 

SuperAutoscript en est à sa version 0.1 et comporte bien sur des imperfections.

Problèmes connus :

 

- si AutoCAD est lancé pour la première fois le script peut s'emballer et faire n'importe quoi

Pour éviter ce problème lancer AutoCAD une fois avant de lancer SuperAutoscript.

 

- Dans certains cas inexpliqués AutoCAD refuse de lancer le fichier script et tourne en boucle

Dans ce cas arrêtez SuperAutoScript en cliquant bouton droit sur l'icone de SuperAutoScript en bas à droite (près de l'heure) et choisissez exit.

 

Si vous avez des idées pour d'autre script à ajouter à la liste ou des rapports de bug n'hesitez pas

 

SuperAutoScript peut être téléchargé ici

 

 

 

[Marc Blancher]

Salut Eric,

 

je vais avoir un peu l'air c.. là mais j'arrive pas à me servir de ton script. http://smileyonline.free.fr/images/gif/pascompris/vignette/thumbnails/scarymovie2_gif.gif

 

Je le télécharge, je le lance et là il me démarre autocad (MAP 2006), puis je fais quoi après ? http://smileyonline.free.fr/images/19032003/merlot.gif

 

J'ai essayer de lancer les dessin ensuite, avant pendant après mais rien n'y fait.

 

merci de ton aide. http://smileyonline.free.fr/images/gif/meilleur/vignette/thumbnails/2king_1_prv_gif.gif

[thierry.garré]

Bonjour Eric,

 

pour info

 

J'ai le même soucis que blancherm avec la même version d'Autocad map (3D2006)

[Eric]

aie aie aie ça commence mal

Alors normalement lorsque l'on clic sur l'exe vous devriez avoir cette image

 

http://www.caderix.com/telechargements/images/sas1.gif

 

Ensuite vous choisissez votre script ou vous rentrez le votre puis vous lancer le script en cliquant sur lancer le script

 

A ce moment la AutoCAD se lance et vous demande de choisir des fichiers

 

Une fois les fichiers choisit et validés un message apparait pour vous demander de cliquer sur ok une fois que tous les fichiers sont ouvert

 

Une fois les fichiers ouvert cliquez sur ok

 

La les scripts s'éxecutent

 

Puis une fois terminé un message apparaît vous indiquant que c'est terminé

 

Alors où ça bloque ?

Une incompatibilitée avec Map ?

 

[Marc Blancher]

J'ai fait le test avec LT 2005, ça marche bien

 

par contre ça marche pas avec MAP 2006

 

la fenêtre qui propose d'ouvrir les dessins n'apparait pas.

 

A+

[kallain]

J'ai fait tout comme tu dit (sur AcadMap 2004)

 

Il me dezomm bien mes fichiers et les enregistrent

mais me crée aussi un fichier filedia.dwg :casstet:

 

me déroule la page de cadXP :P

 

m'affiche la page d'outlook en me proposant un nouveau message à écrire :mad2: :calim:

 

me crée une erreur fatale sur Autocad quand j'y retourne :hallucine: :hallucine:

[Eric]

Bon ben apparement cela ne fonctionne pas avec Autodesk MAP

[kallain]

Voila ce que ça donne avec 2 fichiers à "Dézommer"

 

 

Régénération du modèle.

Initialisation de l'environnement COVADIS ...

... terminé : 10 variables mises à jour.

AutoCAD Express Tools Copyright © 2002-2003 Autodesk, Inc.

COVADIS Topo 2000-6 : chargement des utilitaires de menu ...

... terminé.

Utilitaires de menu AutoCAD chargés.

AutoCAD BonusCAD DDE-07 chargé.

==> MBLOC

Commande: filedia

Entrez une nouvelle valeur pour FILEDIA <1>: 0

Commande: _script

Entrez un nom de fichier script. :

C:\superautoscript\script.scr

Commande: _zoom

Spécifiez le coin d'une fenêtre, entrez un facteur d'échelle (nX ou nXP) ou

[Tout/Centre/DYnamique/ETendu/Précédent/Echelle/Fenêtre] : et

Régénération du modèle.

Commande: _qsave Enregistrer le dessin sous :

filedia Un dessin du même nom existe déjà.

Voulez-vous l'écraser? 1

Oui ou Non, s'il vous plaît.

Un dessin du même nom existe déjà.

Voulez-vous l'écraser? filedia

Oui ou Non, s'il vous plaît.

Un dessin du même nom existe déjà.

Voulez-vous l'écraser? 0

Oui ou Non, s'il vous plaît.

Un dessin du même nom existe déjà.

Voulez-vous l'écraser? _s*Annuler*

Commande: filedia

Entrez une nouvelle valeur pour FILEDIA <0>: 0

Commande: _script

Entrez un nom de fichier script. : filedia 0

_script C:\superautoscript\script.scr

"filedia 0 _script C:\superautoscript\script.scr ": Nom de fichier incorrect.

Commande: filedia

Entrez une nouvelle valeur pour FILEDIA <0>: 0

Commande: _script

Entrez un nom de fichier script. :

C:\superautoscript\script.scr

Commande: _zoom

Spécifiez le coin d'une fenêtre, entrez un facteur d'échelle (nX ou nXP) ou

[Tout/Centre/DYnamique/ETendu/Précédent/Echelle/Fenêtre] : et

Régénération du modèle.

Commande: _qsave Enregistrer le dessin sous :

filedia Un dessin du même nom existe déjà.

Voulez-vous l'écraser? 1

Oui ou Non, s'il vous plaît.

Un dessin du même nom existe déjà.

Voulez-vous l'écraser? filedia

Oui ou Non, s'il vous plaît.

Un dessin du même nom existe déjà.

Voulez-vous l'écraser? 0

Oui ou Non, s'il vous plaît.

Un dessin du même nom existe déjà.

Voulez-vous l'écraser? _script

Oui ou Non, s'il vous plaît.

Un dessin du même nom existe déjà.

Voulez-vous l'écraser? C:\superautoscript\script.scr

Oui ou Non, s'il vous plaît.

Un dessin du même nom existe déjà.

Voulez-vous l'écraser?

Commande: filedia

Entrez une nouvelle valeur pour FILEDIA <0>: 0

Commande: _script

Entrez un nom de fichier script. :

C:\superautoscript\script.scr

Commande: _zoom

Spécifiez le coin d'une fenêtre, entrez un facteur d'échelle (nX ou nXP) ou

[Tout/Centre/DYnamique/ETendu/Précédent/Echelle/Fenêtre] : et

Régénération du modèle.

Commande: _qsave Enregistrer le dessin sous :

filedia Un dessin du même nom existe déjà.

Voulez-vous l'écraser? 1

Oui ou Non, s'il vous plaît.

Un dessin du même nom existe déjà.

 

etc...etc...

 

mais, en plus ça ne fait jamais 2 fois la même chose :hallucine:

[Eric]

Merci Kallain pour ces infos

 

Ce problème vient du fait que le script tourne en boucle mais comme il se trompe il ne s'arrête plus.

Quand tu as ce problème clic bouton droit sur l'icône de SuperAutoScript en bas à droite près de l'heure et choisis exit pour l'arrêter.

 

Le problème se situe apparement ici :

 

Commande: _qsave Enregistrer le dessin sous :

filedia Un dessin du même nom existe déjà.

Voulez-vous l'écraser? 1

Oui ou Non, s'il vous plaît.

Un dessin du même nom existe déjà.

Voulez-vous l'écraser? filedia

 

Le _qsave ne dervait pas demander d'enregistrer sous sauf si c'est un nouveau dessin

 

Question : quelle est le nom du dessin par défaut quand Map + covadis se lance (en haut dans la barre de titre)

Si ce n'est pas [dessin1.dwg] cela ne fonctionnera pas

 

[kallain]

C'est bien dessin1.dwg

 

J'ai essayé de remettre FILEDIA à 0 mais après réouverture ça revient

toujours à 1 (Covadis ????)

[Eric]

Mais Map demande toujours si on veut écraser un fichier existant quand on fait enregistrer ?

Ou il a fait ça sur un dessin vierge ?

 

La boite de dialogue pour sélectionner les fichiers s'est bien ouverte ?

 

T'as essayé avec un autre script ?

 

 

Pour info je précise aussi qu'un dossier SuperAutoScript est crée sur votre disque dur, il contient le fichier script dont AutoCAD se sert

 

[Edité le 4/11/2005 par Eric]

[kallain]

La boite de dialogue pour sélectionner les fichiers s'est bien ouverte ?

OUI

T'as essayé avec un autre script ?

 

Non, plus le temps, après-midi peut-être ;)

[kallain]

J'ai essayé le script "Purger"

 

la fenètre "Traitement en cours" s'ouvre et reste bloquée ( de 12h à 14h)

le fichier purger.lsp n'est pas créé dans le repertoire

 

J'ai essayé sur un poste avec AutocadMap 2000 realise4 (sans covadis)

 

Pour "Zoom" pas de problème : ça marche et autocad se referme

 

pour purger ça reste bloqué et lorsque l'on sort (sur l'explorateur Windows) ça ouvre la première fois

 

Bloc-notes avec le fichier "accident.scr" qui reprend le lisp de ton accident ????

 

et la deuxième fois il ouvre "Imaging" :casstet:

[Eric]

Il doit y avoir un truc avec Map qui ne fonctionne pas comme sur AutoCAD, mais ne l'ayant pas, ca m'est difficile de savoir quoi.

 

Pour info c'est quoi ton système d'exploitation ?

 

pour purger ça reste bloqué et lorsque l'on sort (sur l'explorateur Windows) ça ouvre la première fois

 

Bloc-notes avec le fichier "accident.scr" qui reprend le lisp de ton accident ????

 

et la deuxième fois il ouvre Imaging

 

 

 

T'es sur qu'il n'est pas hanté ton pc

 

Non ca vient du fait que le script essaie de fonctionner sur une autre applications quand tu sort d'AutoCAD.

Quand ça déconne arrête SuperAutoScript d'abord puis fait autre chose.

 

le fichier purger.lsp n'est pas créé dans le repertoire

 

 

Non il n'y a pas de fichier purger.lsp qui se créer, seulement un fichier nommé script.scr

 

 

[Edité le 4/11/2005 par Eric]

[CDL]

Bonjours Eric !

J’ai voulu essayer de lancer ton programme sur ma LT 2002

Mai j’avais un LT 2006 périmé, que j’ai arrêté, et dont j’ai lancé la désinstal sur le champ.

Il ma demandé de fermer plusieurs applications …

Et maintenant il ne trouve plus ($acad)

Tu as une idée ?

 

Pour info un vieux truc qui ne marchera qu’avec la clef noire (facile de trouver la version)

C’est un exo que j’avais écrit pour un stage LISP (création et lecture de fichiers) en VO

 

; {-----------------------------------------------}

; {| |}

; {| GENSCR Cr‚e un fichier SCRIPT |}

; {| en r‚cuperant tout les DWG |}

; {| du r‚pertoire sp‚cifier, et y |}

; {| ajoute des commandes AutoCAD. |}

; {| __________________________ |}

; {| |}

; {| |}

; {| Revision le 24 aout 1990 par CDL |}

; {| VERSION 1.00 |}

; {-----------------------------------------------}

 

 

 

(defun entrer ()

 

; (command "ecrantxt")

(command "dir" "\\acadwin\\dwg\\*.dwg>\\acadwin\\dwg\\LISTE.txt")

(setq fe "\\acadwin\\dwg\\LISTE.txt")

(setq fs "\\acadwin\\dwg\\DWG.scr")

)

 

 

(defun lecture ()

(setq a (open fe "r"))

 

(setq nbpoint 0)

 

(while (setq enrg (read-line a))

(setq nom (substr enrg 1 8))

(setq extention (substr enrg 10 3))

(if (= extention "DWG")(setq nbpoint (+ nbpoint 1))

)

)

(close a)

 

(command "ECRANTXT")

 

(write-line " STATISTIQUES ")

(write-line " ")

(prompt "Nombres de dessins : ")

(prin1 nbpoint)

(write-line "")

 

(getstring "Appuyer sur une touche")

)

 

; ECRITURE DU FICHIER

 

(defun ecriture ()

 

(setq a (open fe "r"))

(setq b (open fs "w"))

 

(while (setq enrg (read-line a))

(setq nom (substr enrg 1 8))

(setq extention (substr enrg 10 3))

(if (= extention "DWG")

(progn

(write-line "_open" b)

(write-line nom b)

(write-line "traceur" b)

(write-line "" b)

(write-line "" b)

)

)

)

 

(close a)

(close b)

)

(defun c:tracex()

(entrer)

(lecture)

(ecriture)

)

 

; FIN DE PROGRAMME

;---------------------------------------

Aplus

[Eric]

Ah pas facile la vie de programmeur.

 

As tu essayé de lancer AutoCAD LT 2002 tout seul ?

Il devrait réecrire la clé de registre pour lancer AutoCAD automatiquement

Sinon tu as redémarré ton pc ?

[kallain]

Pour info c'est quoi ton système d'exploitation ?

XP PRO 2002 Pack 1

[Invité Patrick]

me déroule la page de cadXP

 

Ah? ben alors il marche super bien ce script!!! ;)

[CDL]

As tu essayé de lancer AutoCAD LT 2002 tout seul ?

Il devrait réecrire la clé de registre pour lancer AutoCAD automatiquement

Sinon tu as redémarré ton pc ?

Je viens de faire les manips, Idem !

:casstet:

[Eric]

Essaie une réparation d'AutoCAD avec réparation du registre

[CDL]

J’ai copié l'exe sur un poste PC fixe : 2000 PRO, AutoCAD 2000 et LT 2002

 

Là, il lance 2000 direct, et la fenetre de Zoomtout reste au milieu de l’écran( je fait terminer le processus pour arrêter).

:casstet:

[Eric]

Qu'est ce que ZoomTout vient faire la dedans ?

 

:casstet:

[CDL]

Désolé ! (le vendredi je fatigue)

donc superautoscript lance AutoCAD 2000 et javais oublier propose 2000 ou LT 2002

sur le portable je vais voir, mais plus tard !

 

[Eric]

javais oublier propose 2000 ou LT 2002

 

Quoi ?

 

Ca ç'est pas SuperAutoScript qui fait ça :casstet:

[Eric]

Et maintenant il ne trouve plus ($acad)

 

C'est parce qu'après la désinstallation de Lt 2006 il te manque (ou elle est vide) la clé de registre :

 

HKEY_CLASSES_ROOT\CLSID\{8E75D913-3D21-11D2-85C4-080009A0C626}\LocalServer32