Turn all Mtext to text font SansSerif, and underline

[skchui6159]

Can any body help, how can I change the all Mtext's text font to SabSerif/romand and underline in current view with lisp? Thank you

[hak_vz · Accepted solution]

1) Create text style named SansSerif and select font that you want

2) run following script

(defun c:aaa (/ ss eo i)
	(setq ss (ssget "_X" '((0 . "MTEXT"))) i -1)
	(while (< (setq i (1+ i)) (sslength ss))
	(setq eo (vlax-ename->vla-object (ssname ss i)))
	(vlax-put  eo 'textString(strcat "{\\L" (vlax-get eo 'textString) "}"))
	(vlax-put eo 'StyleName "SansSerif")
	)
	(princ)
)

[skchui6159]

The above lisp did not work.

[hak_vz]

@skchui6159  You have mtext with internally changed font. Use stripmtext and remove all unnecessary formatting and assigned fonts. Than use my script .

[hak_vz · Accepted solution]

Alternatively, copy all mtexts to new temp file, select all and explode. Run search and replace %%U with blank.

Convert all texts to mtexts

(defun c:t2m ( / *error* ss i )
	(defun *error* ()
		(setvar 'cmdecho 1)
		(princ)
	)
	(setq ss (ssget '((0 . "TEXT"))) i -1)
	(setvar 'cmdecho 0)
	(while (< (setq i (1+ i)) (sslength ss))
		(command "_.txt2mtxt" (ssname ss i) "")
	)
	(setvar 'cmdecho 1)
	(princ "\nDone!")
	(princ)
)

Use my script above.

[skchui6159]

What happen about the error:AutoCAD.Application: Key not found? Sloved by rename style, Thank

[skchui6159]

The above method works! Good. Thank you very much!

[skchui6159]

What is the meaning about %%U?

[Kent1Cooper]

---

@skchui6159 wrote:

What is the meaning about %%U?

---

Read about it.