Topic: Change TXT.shx to SIMPLEX.shx in all Text Styles

[w64bit]

How can I change using lisp the font txt.shx to simplex.shx (width 0.80) in Text Styles?
It could be more than one text style using txt.shx.

[kpblc]

I didn't check this code.

Code - Auto/Visual Lisp: [Select]

1. (vl-load-com)
2. (defun c:t1 (/ adoc)
3.   (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
4.   (vlax-for item (vla-get-textstyles adoc)
5.     (if (and (/= (vla-get-fontfile item) "") (/= (vla-get-fontfile item) "txt.shx"))
6.       (vla-put-fontfile item "simplex.shx")
7.     ) ;_ end of if
8.   ) ;_ end of vlax-for
9.   (vla-endundomark adoc)
10.   (princ)
11. ) ;_ end of defun

[w64bit]

it's loading and it's running without errors.
Unfortunately it does not change the font.

[Tharwat]

change the not equal  to equal :

Code - Auto/Visual Lisp: [Select]

1. (/= (vla-get-fontfile item) "txt.shx") ;| to be |; (= (vla-get-fontfile item) "txt.shx")

[w64bit]

Thank you very much kpblc and Tharwat.

[MSTG007]

Could i ask if you wanted to change all fonts within the text styles?

I am guessing i would change:

Code: [Select]

(if (and (/= (vla-get-fontfile item) "") (/= (vla-get-fontfile item) "")) ;;remove the font name?
Just curious!

[w64bit]

@MSTG007: I want to change the font only for the text styles which are using txt.shx.

[MSTG007]

lol Sorry i was not clear.

I did not know what I would have needed to modify to get it to change all text styles within a dwg to the txt.shx.

[w64bit]

Tried with simplex instead simplex.txt. No change.

[w64bit]

I attached the drawing with 3 fonts to change the style's font to simplex.shx.
Can anyone test the attached lisp. On my machine it's not working.
Thanks

[Lonnie]

Fairly similar

http://www.theswamp.org/index.php?topic=55991.msg599756#msg599756

Code: [Select]


;set fonts all fonts to arial.
 
 (if (findfile (setq f (strcat (getenv "windir") "\\Fonts\\Arial.ttf")))
    (progn
      (vlax-for s (vla-get-textstyles (setq doc (vla-get-activedocument (vlax-get-acad-object))))




        (vla-put-fontfile s f)
        (vla-put-width s 1.0)
        ;; RJP » 2020-04-29
        (vla-setfont s "Arial" :vlax-false :vlax-false 0 34)
      )
      (vla-regen doc acallviewports)
    )
  )

Worked for me.

[w64bit]

This code it's good to change all fonts but I want to change only the styles having txt.shx, monotxt.shx, monotxt8.shx fonts, and not touching the rest.

[Lonnie]

Perhaps next time I'll read the post a little better.
 

[tombu]

Usually whenever I get outside drawing with a huge list of odd text styles I've always used T.Willey's Merge text styles to clean them up and make them more readable. http://www.theswamp.org/index.php?topic=17659.0;all

[w64bit]

MTS it's very good. Thank you.
The main problem remains: I have a couple of hundreds DWG with this font issue and I cannot find a way to fix it.