zfsaaa 发表于 2010-4-23 22:12:00

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

<p>我图上的文字是（地产开发有限公司&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 单位：㎡），不知啥原因用了（自动修改字体.LSP）这个程序后，文字变成（地产开发有限公司&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 单位：O)</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>

mccad 发表于 2010-4-23 23:32:00

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

zfsaaa 发表于 2010-4-24 18:37:00

真的没有更好的方法吗？（或者有使程序把别的都转换，单遇到单位：㎡的这样字体不转换的方法吗？)
页: [1]
查看完整版本: 这个程序为何会这样，如何改？