Mtext attribute update value autolisp

[Anonymous]

All-

I'm attempting to update an attribute mtext, with no avail from the following code:

(defun update_information ()
(setq x 0 str "")
(repeat (length lis)
(setq val (nth x lis))
(setq str (strcat val str))
(setq x (+ x 1))
)(dep 3 call)(setq fna1 (cons 1 ttc))(setq b (subst (cons 1 str) fna1 (entget d)))
(entmod b)

(princ)
)

(defun dep (hdep ent)
(setq x 1)
(setq b (entget ent))
(setq c (cdr (assoc -1 b)))
(repeat hdep
(setq d (entnext c))
(setq c d)
(setq ttc (cdr (assoc 1 (entget d))))
(setq x (+ x 1))
(princ)
))

The variable "lis" is a list of strings that I'm concatenating to update the mtext attribute and "call" is the variable containing the entity to be updated. I've attached the block as well. Any help would be greatly appreciated.

Thanks,

Michael Luckett

[Anonymous · Accepted solution]

Thanks to a post by Lee Mac at the below link, I was able to get around this issue.

(setq e (entget (entnext (entnext (entnext call)))))
(entmod (subst (cons 1 str) (assoc 1 (reverse e)) e))

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/edit-mtext-attribute-value-using-lis...

Thanks,

Michael Luckett