这个程序为何会这样，如何改？

zfsaaa

我图上的文字是（地产开发有限公司                      单位：㎡），不知啥原因用了（自动修改字体.LSP）这个程序后，文字变成（地产开发有限公司                      单位：O)

(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"))
)
)

mccad

因为那个字体是特殊的，不能随便换。

zfsaaa

真的没有更好的方法吗？（或者有使程序把别的都转换，单遇到  单位：㎡的这样字体不转换的方法吗？)