有无办法使程序加载运行时单独不修改宋体字形?
<p>这是网上下的修改字体程序.有无办法使程序加载运行时单独不修改宋体字形?谢谢!</p><p>(defun c:ft (/ elist nm en cn enl)<br/>(setq elist (tblnext "STYLE" T))<br/>(while (/= elist nil)<br/>(setq nm (cdr (assoc 2 elist))<br/>en (cdr (assoc 3 elist)) <br/>cn (cdr (assoc 4 elist))<br/>enl (strlen en)<br/>)<br/>(if (and <br/>(/= en nil)<br/>(= cn nil)<br/>(= (findfile en) nil)<br/>(= (strcase (substr en (- enl 2))) "SHX")<br/>) <br/>(command "_style" nm "romans.shx" "0.0" "0.8" "" "" "" "")<br/>)<br/>(if (and <br/>(/= cn nil)<br/>(= (findfile cn) nil)<br/>) <br/>(command "_style" nm "romans.shx,hztxt.shx" "0.0" "0.8" "" "" "" "")<br/>)<br/>(setq elist (tblnext "STYLE"))<br/>)<br/>) </p><p><br/><img src="http://www.mjtd.com/bbs/skins/default/filetype/jpg.gif" border="0" alt=""/></p>
页:
[1]