global font change

Got another lisp question.

We get multiply drawings in our office that we need to clean up for reference. Is there a way to write a lisp routine that will change all fonts to "romans" without changing the style.

 

You can't change all "fonts" to anything, but you could change the font used
in all Text *Styles* to Romans. That's what this routine does:

(defun C:CHSTYLE (/ stl dta)
(command "_.undo" "_be")
(setq stl (cdr (assoc 2 (tblnext "style" T))))
(while stl
(setq dta (entget (tblobjname "style" stl))
dta (subst (cons 3 "romans")(assoc 3 dta) dta)
stl (cdr (assoc 2 (tblnext "style")))
);;setq
(entmod dta)
);;while)
(command "_.regenall"
"_.undo" "_e"
);;command
(princ)
);;defun
___

 

Thank you very much.
That does excatly what I wanted.