Select text Value and convert to attribute block value

[taitrongsong]

I have text object and block attribute, how select text and match value to attribute block quickly ? Tks all.

[ВeekeeCZ · Accepted solution]

(defun c:Text2Att ( / x a)
  (and (setq x (car (entsel "Text: " )))
       (setq a (car (entsel "Att: ")))
       (setpropertyvalue (entnext a) "TextString" (strcat "+" (getpropertyvalue x "TextString"))))
  (princ)
  )