Help recreating a lost macro, LISP to change an objects Text Style.

[Anonymous]

Hi all. My computer died and I lost all my LISPs and macros. With out backing them up off site. Shame shame I know. 

I had this extremely usefull keyboard shortcut which I used all day. I created it a long time ago and can't quite get it going again. 

Basically I would select text (a bearing and distance on a line). I would hit a keyboard shortcut and it would run a macro. The macro would run

MTOL a list that moves the text off the line by a perscribed amount, then change the properties of the text to a specific layer, then it would change that same text to a specific text style. 

I know that having all that run off a macro is probably cringy for most of you, but it was simple and it worked for what I needed it to. I have recreated most of it:

^C^CMTOL chprop;P;;LA "22"

Is there a simple way to change the text stlye of the selected objects?

Thanks!

[scot-65]

Command: CHANGE
Select objects: 1 found
Select objects: *[Enter]*
Specify change point or [Properties]: *[Enter]*
Specify new text insertion point <no change>: *[Enter]*
Enter new text style <Standard>:
Specify new height <0'-5">: *[Enter]*
Specify new rotation angle <0>: *[Enter]*
Enter new text <1234>: *[Enter]*

???