Text & Dim Styles

[rhayes.99001]

We our changing our standard Text Style and Dim Styles.
I want to be able to load the correct Text Font in a existing
drawing that already has the text style set to the old font.
What is the best way to make sure all drawings are looking at
the correct styles.??? Can this be done with a lisp so the
user will not have to change anything.???

[tedg]

We our changing our standard Text Style and Dim Styles.
I want to be able to load the correct Text Font in a existing
drawing that already has the text style set to the old font.
What is the best way to make sure all drawings are looking at
the correct styles.??? Can this be done with a lisp so the
user will not have to change anything.???I wrote this routine to do just that, it changes the font in these determined text styles from "Archd.shx" to "RomanS.shx".

;;Sets Text Styles "STD_TXT", "STD_DIM" & "ATRIB_1" to font ROMANS.SHX
(defun c:ROMANS ()
(command "_style" "STD_TXT" "romans.shx" "" "" "" "" "" "")
(command "_style" "STD_DIM" "romans.shx" "" "" "" "" "" "")
(command "_style" "ATRIB_1" "romans.shx" "" "" "" "" "" "")
(princ)
)
(princ "type: ROMANS")

Modify it as you see fit, works for us anyway.

good luck