【KAIXIN】 发表于 2011-12-11 10:14:25

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

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


http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 【KAIXIN】的微博

myfrankie 发表于 2011-12-16 13:41:20

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

【KAIXIN】 发表于 2011-12-16 13:44:16

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

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

myfrankie 发表于 2011-12-16 13:46:17

能不能具体点呢？

【KAIXIN】 发表于 2011-12-16 13:48:53

myfrankie 发表于 2011-12-16 13:46 static/image/common/back.gif
能不能具体点呢？

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

江湖远人 发表于 2011-12-16 14:02:24

先收藏了，有空试一下

yoyoho 发表于 2011-12-16 14:10:57

感谢楼主分享程序!

maiko 发表于 2011-12-16 18:45:58

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

完整武器 发表于 2011-12-19 11:22:53

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

zhengchuan 发表于 2011-12-28 01:17:22

先收藏了，有空试一下
页: [1] 2
查看完整版本: 自动修改字体（解决拷贝过来字体多的问题）