[wanted] Lisp to create Mtext with superscript

Dear all,

Anyone have a lisp to create Mtext with superscript?

thanks,

Ken

 

Not a lisp, but a quick trick if you like....

http://www.dotsoft.com/acadfaq.htm

scroll down or seach on the page for superscript.

Works pretty slick for my needs anyway.

Casey

 

From Casey's tip from Dotsoft:

(Defun c:ss ()
(setq e (entsel "Select MTEXT: "))
(if e
(progn
(setq e (car e))
(setq ve (vlax-ename->vla-object e))
(setq txt (vla-get-textstring ve))
(setq txt (vl-string-subst "{\\H0.75x;\\S2^ ;}" "^2" txt))
(setq ve (vla-put-textstring ve txt))
)
)
)

 

Pretty cool Allen, how could you modify it so it will change multiple
instances of '^2' in a single mtext entity?

 

Thanks, Allen!

This is a good lisp program, but not satify my requirement.
very good try!

thx

Ken