topic Re: Turn all Mtext to text font SansSerif, and underline in Visual LISP, AutoLISP and General Customization Forum

Turn all Mtext to text font SansSerif, and underline

skchui6159 — Tue, 08 Oct 2024 01:18:17 GMT

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

Re: Turn all Mtext to text font SansSerif, and underline

hak_vz — Tue, 08 Oct 2024 08:20:51 GMT

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) )

Re: Turn all Mtext to text font SansSerif, and underline

skchui6159 — Tue, 08 Oct 2024 09:37:09 GMT

The above lisp did not work.

Re: Turn all Mtext to text font SansSerif, and underline

hak_vz — Tue, 08 Oct 2024 09:59:52 GMT

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

Re: Turn all Mtext to text font SansSerif, and underline

hak_vz — Tue, 08 Oct 2024 10:08:33 GMT

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.

Re: Turn all Mtext to text font SansSerif, and underline

skchui6159 — Tue, 08 Oct 2024 20:19:41 GMT

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

Re: Turn all Mtext to text font SansSerif, and underline

skchui6159 — Tue, 08 Oct 2024 13:37:04 GMT

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

Re: Turn all Mtext to text font SansSerif, and underline

skchui6159 — Tue, 08 Oct 2024 13:40:14 GMT

What is the meaning about %%U?

Re: Turn all Mtext to text font SansSerif, and underline

Kent1Cooper — Tue, 08 Oct 2024 14:13:50 GMT

@skchui6159 wrote:

What is the meaning about %%U?

Read about it.