PDA

View Full Version : Underlining Mleader Text


LSElite
2013-04-12, 04:42 AM
Hey All

Hopefully a quick one.
How do you underline multileader text using lisp?

Cheers
pbejse
2013-04-12, 05:09 AM
(defun c:demo (/ a str en)
(if (and (setq a (car (entsel)))
(not (vl-string-search
"{\\L"
(setq str (cdr (assoc 1 (setq en (entget a)))))
)
)
)
(entmod (subst (cons 1 (strcat "{\\L" str " )}")) (assoc 1 en) en))
)
)
LSElite
2013-04-12, 06:06 AM
This didnt work for me.
Am I right in thinking that it is just putting \L infront of the text value?
pbejse
2013-04-12, 06:15 AM
This didnt work for me.
Am I right in thinking that it is just putting \L infront of the text value?

Basically YES. (strcat "{\\L" str " )}") Also ignores the mtext already underlined.

Post your drawing here os we can have a look see.
LSElite
2013-04-12, 07:58 AM
That was enough for me to figure it out.
Cheers for the help mate.