有无办法使程序加载运行时单独不修改宋体字形?

zfsaaa

这是网上下的修改字体程序.有无办法使程序加载运行时单独不修改宋体字形?谢谢!

(defun c:ft (/ elist nm en cn enl)
(setq elist (tblnext "STYLE" T))
(while (/= elist nil)
(setq nm (cdr (assoc 2 elist))
en (cdr (assoc 3 elist))
cn (cdr (assoc 4 elist))
enl (strlen en)
)
(if (and
(/= en nil)
(= cn nil)
(= (findfile en) nil)
(= (strcase (substr en (- enl 2))) "SHX")
)
(command "_style" nm "romans.shx" "0.0" "0.8" "" "" "" "")
)
(if (and
(/= cn nil)
(= (findfile cn) nil)
)
(command "_style" nm "romans.shx,hztxt.shx" "0.0" "0.8" "" "" "" "")
)
(setq elist (tblnext "STYLE"))
)
)