Récupérer le valeur par défaut d\'un attribut ?

[Morgul]

Bonjour à tous,

 

Comment peut-on récupérer la valeur par défaut de plusieurs attributs d'un bloc ?

Pour ensuite inscrire le résultat dans un fichier txt.

 

Merci.

[(gile)]

Salut,

 

La valeur par défaut d'une définition d'attribut est contenue dans le groupe DXF 1.

 

Exemple pour faire une liste de paire pointées du type ("ETIQUETTE" . "Valeur par défaut") de tous les attributs d'une définition de bloc.

 

(setq bloc (tblsearch "BLOCK" "Nom_du_Bloc"))
(setq ent (cdr (assoc -2 bloc)))
(while ent
 (setq elst (entget ent))
 (if (= (cdr (assoc 0 (entget ent))) "ATTDEF")
   (setq lst (cons (cons (cdr (assoc 2 elst)) (cdr (assoc 1 elst))) lst))
 )
 (setq ent (entnext ent))
)
(reverse lst) 

 

[Edité le 18/1/2008 par (gile)]

[Morgul]

Encore une fois tu réponds pile poile à ma question.

Tu es vraiment trop fort !

 

Merci Gile.