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

[BIGAL]

Try this on a dwg

(vlax-for ts (vla-get-textstyles  (vla-get-activedocument (vlax-get-acad-object)))
(if (= (vla-get-FontFile ts ) "Txt.shx")
(vla-put-FontFile ts "Simplex.shx")
)
)

Using a script can run this very simple lisp program, for 500 dwgs accoreconsole is the way to go you have a script that loads the lisp.

[w64bit]

error: bad argument type: VLA-OBJECT nil
I changed s to ts in second line.
No change to any font.
You can try on the file attached.

[Tharwat]

The same codes that posted by kpblc with the mods that indicated to in my first post.

[w64bit]

I think my AutoCAD install has something wrong. On another computer it's OK.
Can you please tell me how I can add monotxt and monotxt8 in the same code?
Thank you

[Tharwat]

Code - Auto/Visual Lisp: [Select]

1. (vl-load-com)
2. (defun c:Test (/ adoc fnt)
3.   ;; kpblc - modified by Tharwat
4.   (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
5.   (vlax-for item (vla-get-textstyles adoc)
6.     (if (and (/= (setq fnt (vla-get-fontfile item)) "")
7.              (wcmatch fnt "txt.shx,monotxt.shx,monotxt8.shx")
8.              )
9.       (vla-put-fontfile item "simplex.shx")
10.     ) ;_ end of if
11.   ) ;_ end of vlax-for
12.   (vla-endundomark adoc)
13.   (vla-regen adoc acallviewports)
14.   (princ)
15. ) ;_ end of defun
16.  
17.  

[w64bit]

Thank you all very much.

[BIGAL]

Fixed the typo in the code had ts and s.