youri

Merci a vous 2 les patricks! patrick> j'ai tester le logiciel en anglais (pas génan) et il mache a la perfection! magnifique et bien utile! patrick_35> j'ai aussi tester uton lisp et il correspond exactement a ce que je veu (j'ai juste changer "TXT" par "XLS" ce qui est plus pratique pour moi) encore un grand merci pour le dévelopement que tu a effectuer dessus je vait essayer de l'annalyser et de le comprendre pour ainsi pouvoir continuer a apprendre doucement le LISP parceque quand même c'est bien utile cette petite chose la!

patrick 35 > non je n'ait pas besoin des calques dépendant des xref ni d'intégrer d'autre ellément! Patrick> je m'en vai tester de ce pas! :D Merci beaucoup a vous 2!

:D merci c'est gentil! ben en fait ce que je cherche a faire c'est a extraire dans un fichier (xls,crv,txt ou autre qu'imlporte le format du temps qu'il est facilement exploitable) la liste des calques avec leurs état (gelé, vérouillé, en impression, couleur, types de ligne ... tout en fait!). voilat c'est tout mais c déjà beaucoup :(

bon j'ai résolu un pb ... il manqu'ait (je pense mais comme je suis un incapable en lisp je suis pas sur) le c: devant creation_liste_des_plans donc on a : (defun c:creation_liste_des_plans(/ acti_plan couche etat_plan gele_plan verr_plan xref_plan) (setq couche (tblnext "layer" T) position_plan 0) (while couche (setq etat_plan (cdr (assoc 70 couche)) acti_plan (cdr (assoc 62 couche)) gele_plan (logand etat_plan 1) verr_plan (logand etat_plan 4) xref_plan (logand etat_plan 16)) (if (and (/= verr_plan 1) (/= gele_plan 1) (>= acti_plan 0) (/= xref_plan 16)) (setq liste_plans (cons (cdr (assoc 2 couche)) liste_plans)) ) (setq couche (tblnext "layer")) ) (setq liste_plans (acad_strlsort liste_plans) etat_plan 0) (while (nth etat_plan liste_plans) (if (= (cdr (assoc 9 liste_bibles)) (nth etat_plan liste_plans)) (setq position_plan etat_plan) ) (setq etat_plan (1+ etat_plan)) ) ) jusque la tout va bien ... seulement moi autocad ne fait qu'une chose .. il me retourne un chiffre qui a commencer a 24 et qui s'incrémente de 24 à chaque entrée de cette commande ... que faire?

merci beaucoup :D mais je sait pas pourquoi ça marche pas! :( je charge le fichier lsp avec ta commande dedant et quand je veu lancer creation_liste_des_plans dans mes commande autocad il me dit que cette commande existe pas! :( comment procéder pour que cela fonctionne?

yes génial ça fait un moment que je cherchait kla même formule! trouvé depuis ce matin sur le forum Lt2000-LT2002 est t'il possible d'aprés vous d'extraire également la liste des état de chaque calque (geler, libérer, vérouillé, ...)

bon maintenant que je suis un peu moin mauvais qu'avant je voudrait avancer encore un pneu :D (va quand mm faloir demander un vrais stage a ma boite!) j'ai réussit a extraire la liste des calques! j'ai réussit a extraire la liste des types de lignes (cle 6) par contre j'arrive pas a faire une liste avec ces 2 valeur ... et surtout j'arrive pas a extraire l'état du calque :casstet: Voilat si quelqu'un a la solution je lui en serait extraimement reconnaissant! merci d'avance pour toute l'aide que vous m'apporterai dans la résolution de mon pb!

heu dsl dsl dsl dsl! CA Y EST CA MARCHE! Voilat la fonction complette du lisp qui mache bien : (defun cle (num en) (cdr (assoc num en))) (defun c:extraire_calques () (setq tcal (cle 2 (tblnext "layer" t))) (setq ftcal (getfiled "Nom de la Liste des calques extraite" "c:/" "csv" 1)) (setq a (open ftcal "w")) (while (setq tcal (tblnext "layer")) (if (not (null tcal)) (write-line (cle 2 tcal) a)) ) (close a) ) Merci beaucoup a toi Labletech pour toute ton aide!

merci merci! mais :( ça marche toujours pas! j'suis vraiment null en lisp j'arrive pas a débuguer le truc: erreur: no function definition: NUM lorsque je lance la derniére commande que tu m'a donner pour CLE! Encore merci de m'aider je découvre un peu le lisp en même temps ... bientôt je serait faire un lisp moi même moi aussi! :D

rebonujours, merci beaucoup pour ce lisp! je suis actuellement en mesure de l'utiliser mais .... il ne fonctionne pas :( la console me retourne : ; erreur: no function definition: CLE Est ce que quelqu'un aurrait la solution et si oui estcequ'il pourrait m'expliquer la pourquoi du comment!

Je dispose déja d'un générateur de script automatique (Scripteur de B2EA!) qui marche fort bien la n'est pas mon probléme! En effet dans les commandes script il est impossible de faire fonctionner du langage DIESEL (sou Autocad LT 2000 dans mon cas!) ... c'est donc a ce niveau la que ce pose mon probléme! C'est pourquoi je voulait savoir si il été possible de creer une fonction aurtocad INSERDATE qui lancerait ma fonction en langage DIESEL cité plus haut! Apparament on ne peu pas! Merci beaucoup pour votre aide!

Merci beaucoup, mais (car il y a un mais) j'ai déjà créer une barre d''outils avec mon icone qui va bien pour ma fonction ... j'ai même été jusqu'a m'ajouter une librairie de menue quiregroupe toues les fonction que j'ai créer! maintenant je voudrait que lorsque je tapes INSERTDATE la commande citer plus haut s'exécute automatiquement! Le but ... lancer des script automatique pour que tous les fichiers que je désire ait la même forme, par exemple pour inserer la date du jour dans tous mes fichier le script pourrait être : _.open "c:\monrepertoiredao\01.dwg" INSERTDATE 0,0 _close o _.open "c:\monrepertoiredao\02.dwg" INSERTDATE 0,0 _close o _.open "c:\monrepertoiredao\03.dwg" INSERTDATE 0,0 _close o ... etc voilat! alors estce que c'est possible??? merci d'avance!

Estce possible sans les LISP (autocad LT 2000!) .. peu être par la modification des fichier aclt.*** ?

Bonjours, Aujourd'hui je cherche quelque chose qui me simplifirait grandement la vie! Je voudrait savoir si il est possible te créer une commande a taper au clavier dans la barre de commande autocad, cette comande devant correspondre à une ligne de commande complexe que j'ai fait! exemple : je veu taper INSERTDATE et que s'exécute la comande : ^C^C-inserer;nom_fic;\;;0;$M=$(edtime, 0,DD"/"MO"/"YY); Est ce possible? youri PS: si c'est possible cela me permeterai de lancer un script avec toutes les modification simple (indice en plus, date de modification, nom du dessinateur, changement de cartouche, impression, ...) grace a un logiciel de création de script automatique!

génial c'est exactement ce que je voulait :D encoe merci et a bientôt pour d'autres question :cool: