Underline mtext

[cadman009]

Hey, y'all, Anybody have a routine for underlining multiple instances of mtext? I'm sure it would be a simple routine, but I haven't been into LISP programming for awhile, and I'm having trouble getting my head back into it.

[EC-CAD]

Here's an old one I had...



(defun C:UMT ( / ss a b c val new_val ); UnderLine Mtext

(prompt "\nPick MTEXT to Underline: ")

(setq ss (ssget))

(if ss

(progn

(setq c 0)

(repeat (sslength ss)

(setq a (ssname ss c))

(setq b (entget a))

(if (= (cdr (assoc 0 b)) "MTEXT")

(progn

(setq val (cdr (assoc 1 b))); value

(setq new_val (strcat "{\\L" val))

(entmod (subst (cons 1 new_val)(assoc 1 b) b))

(entupd a)

);progn

);if

(setq c (+ c 1))

);repeat

);progn

);if

(princ)

); function



Bob

[cadman009]

Thanks! I'll give it a try.