etiquette multiple

[capde06]

j'utilise ces fonctions pour lire et modifier un attribut

ok

 

;; ; met a jour un bloc : entité avant entget + etiquette + code + valeur

(defun upd_blk(obj eti code txt)

(setq ent_att (entnext obj))

(while (/= (cdr (assoc 0(entget ent_att))) "SEQEND")

(if (= (cdr(assoc 2(entget ent_att))) eti)

(progn

(setq e (entget ent_att))

(entmod (subst (cons code txt) (assoc code e)e))

(entupd obj)

)

)

(setq ent_att (entnext ent_att))

)

)

;; ; met a jour une entité : entité avant entget + code + valeur

(defun upd_ent(obj code txt)

(setq obj (entget obj))

(entmod (subst (cons code txt) (assoc code obj) obj))

)

 

maintenant quand je met le bloc avec attribut dans une étiquette multiple

je n'arrive pas a lire ou modifier les attributs

avez vous ce type de programme

 

jai bien essayé mais la on tombe sur une entité complexe pas simple