Text Replacement ...!

While working on TEXT entities, I had forced to make several LISP routines. First I think its a complex job as TEXT includes alpha-numeric characters as well as in AutoCAD it is inserted as a single line TEXT & multi-line also.
But later on I got interest & still happy to make any kind of LISP related to TEXT.

In Electro Mechanical drawings, such as in "Panel-Board Schedules" more & more times a drafter has to replace one text value to another. What to do?
Some find it easy to EDIT them using DDEDIT. But what if we have a large no. of values to be replace with each other? Isn't it a trouble some & time wasting job?
So came this LISP routine.
Just pick one text & then other .... wow...
You can see the values will be replace instantly !!

* TextReplace.lsp (3Kb)
This command replaces two text objects.

Sequence of command lines for this routine:-

Command: TRP
Select FIRST text:
Select SECOND text:
Select FIRST text:
(The command work continuously till you "Enter" or press "Esc".)

Download : TextReplace.lsp