PREMIER MESSAGE DE BASE Bonjour, je me permets de vous solliciter car j'ai un petit soucis de lispaille. Je désire modifier une étiquette d'un attribut avec la commande -attedit afin de modifier toutes les étiquettes du même nom dans le fichier. Je sais je pourrais utiliser la commande gatte, mais les express ne fonctionnent pas sur ma version Autodesk Architectural Desktop 3.3. j'arrive à modifier les étiquettes qui sont dans la même présentation et dans l'espace objet. Mais l'étiquette ne se modifie pas dans toutes les présentations, il est là mon soucis. C'est pourquoi je fais appel à votre connaissance et je vous remercie d'avance. DEUXIEME MESSAGE Hello, J'ai testé ton programme qui fonctionnait. Je l'ai adapté à ma façon, mais c'est là que le bas blesse. pour certain attribut pas de problème mais pour d'autre la catastrophe voici le prog : (defun c:AZZ () (setq ent nil) (setq sel nil) (setq att (car (nentsel "\nSélectionnez l'étiquette à modifier: "))) (setq att_name (entget att)) (setq att_ett (cdr (assoc 2 att_name))) (setq att_lay (cdr (assoc 8 att_name))) (setq cart_att_ett (substr att_lay 13 3)) (setq val_ett (getstring "\nEntrer la nouvelle valeur de l'étiquette : " t)) (if (= cart_att_ett "EXI") (setq sel (ssget "x" (list (cons 0 "INSERT") (cons 2 "Cartouche_EXI_att")))) (setq sel (ssget "x" (list (cons 0 "INSERT") (cons 2 "Cartouche_PRO_att")))) ) (if sel (progn (setq n 0) (while (= (ssname sel n)) (setq ent (entget (entnext (ssname sel n)))) (if (= (cdr (assoc 2 ent)) att_ett) (progn (setq ent (subst (cons 1 val_ett) (assoc 1 ent) ent)) (entmod ent) (entupd (cdr (assoc -1 ent))) ) ) (setq ent (entnext (cdr (assoc -1 ent)))) (setq n (1+ n)) ) ) ) (princ) ) Le souci que j'ai c'est que lorsqu'il passe dans " (while (= (ssname sel n)) " le "(setq ent (entget (entnext (ssname sel n)))) " ne fonctionne pas et je pense que cela vient de la sélection "ent" Si quelqu'un à une piste, elle est la bienvenue Bye ça veut dire ciao en anglais (les connaisseurs comprendront) :o