Entmod fonction

[MarcelGoulet]

Hi,

I have a drawing with two text style with no name.
When I do (setq ASSOC_LISTE (tblnext "style")), I can find them (2 . ""). I can't purge them or rename them because AutoCAD doesn't see them. Using lisp, how could I delete them or rename them ?
I tried that : (setq ASSOC_LISTE (subst (cons '2 "Correction_1") (assoc 2 ASSOC_LISTE) ASSOC_LISTE)) (entmod ASSOC_LISTE), but it doesn't work.

Thanks

 

[zeha]

Marcel try this
i don't now of it work but try it

(if (setq tblobj (tblobjname "style" ""))
(if (entmod (setq tblobj (entget tblobj) tblobj (subst (cons 2 "new")(assoc 2 tblobj) tblobj))) (alert "Changed. in new") (alert "Wrong.") ) (alert "Noting changed.")
)

 

[MarcelGoulet]

It doesn't work !

Thanks anyway