I think I am having problems similar to Hugo, and mein Deutsch ist nicht so gut, but I'm not sure this thread fixed his problem.
I am using the following w/ just modified fonts from CAB's original code w/out success:
(defun c:style_Update (/ st)
(vl-load-com)
(vlax-for st
(vla-get-textstyles
(vla-get-activedocument (vlax-get-acad-object))
)
;; Old font file in CAPS
(if (= (strcase (vla-get-fontfile st)) "SIMSUNB.TTF")
(vla-put-fontfile st "SIMSUN.TTC") ; New font file name
)
)
(princ)
)
(c:style_Update) ; run it
On load I get the following: ; error: Automation Error. Filer error
This is the same as: ; Fehler: Automatisierungsfehler Dateifehler
Also, Hugo's translator read that "Scripture is found", and that sure sounds like a resolution....Amen, Amen, but I think he really meant that the find_font script is just finding the Font.
I have also run the find_font script on both of the attached, neither finds "SIMSUN" and both find "SIMSUN.TTC", but the style_update script is not working on either.
I also tried removing strcase from the style_update script, and the filer error disappeared, but the results did not change.
Thank you all for any help,
Dan