自动修改字体（解决拷贝过来字体多的问题）

【KAIXIN】

2. ;电脑内字体少而打开别人的图纸字体特别多怎么办？试试以下程序：
   
3. (defun c:KK (/ elist nm en cn enl)
   
4. (setq elist (tblnext "STYLE" T))
   
5. (while (/= elist nil)
   
6. (setq nm (cdr (assoc 2 elist))
   
7. en (cdr (assoc 3 elist))
   
8. cn (cdr (assoc 4 elist))
   
9. enl (strlen en)
   
10. )
    
11. (if (and
    
12. (/= en nil)
    
13. (= cn nil)
    
14. (= (findfile en) nil)
    
15. (= (strcase (substr en (- enl 2))) "SHX")
    
16. )
    
17. (command "_style" nm "romans.shx" "0.0" "0.8" "" "" "" "")
    
18. )
    
19. (if (and
    
20. (/= cn nil)
    
21. (= (findfile cn) nil)
    
22. )
    
23. (command "_style" nm "romans.shx,hztxt.shx" "0.0" "0.8" "" "" "" "")
    
24. )
    
25. (setq elist (tblnext "STYLE"))
    
26. )
    
27. )

;电脑内字体少而打开别人的图纸字体特别多怎么办？试试以下程序：<br /> (defun c:KK (/ 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 /> )

该贴已经同步到 【KAIXIN】的微博

myfrankie

请问楼主，如果我要将字改为其它字体应该修改那一句代码？

【KAIXIN】

myfrankie 发表于 2011-12-16 13:41
请问楼主，如果我要将字改为其它字体应该修改那一句代码？

(command "_style" ....................

myfrankie

能不能具体点呢？

【KAIXIN】

myfrankie 发表于 2011-12-16 13:46
能不能具体点呢？

去搜搜下，怎么建字体就明了！

江湖远人

先收藏了，有空试一下

yoyoho

感谢楼主分享程序!

maiko

感谢楼主这几天辛苦付出,赞一个!
;;;;最好是来个字体样式合并程序

完整武器

这个不错 收藏一下 感谢kaixin！

zhengchuan

先收藏了，有空试一下