Macro to edit text

[SwizzleStick]

I would like to click an existing (single line) text in my drawings and have the text replaced by a text in my macro. The text in my drawing will not always be the same, but the new text (from the macro) will always be the same.

Thanks in advance for the help.

[rkmcswain]

So you want to pick any TEXT object and replace the entire string with a new string of your own?

Maybe something like this?

(defun c:tr ( / mynewstr sset ent lst newlst i)
  (setq mynewstr "REPLACED")
  (setq sset (ssget '((0 . "TEXT"))) i 0)
  (repeat (sslength sset)
    (setq ent (ssname sset i))
    (setq lst (entget ent))
    (setq newlst (subst (cons 1 mynewstr) (assoc 1 lst) lst))
    (entmod newlst)
    (setq i (1+ i))
  )
)

[SwizzleStick]

I don't do autolisp but will try it out. I am hoping for a simple script in a button.
I thought this would work:
^C^C.DDEDIT;"My New Text String";
I don't do scripts very well either

[SwizzleStick]

That works great! How could I add it to a button though?