开图自动替换字体

yjr111

小弟现在使用原始方法替换字体：fonts文件夹有300M那么大!但还是会跳出一些没有的字体，不胜其烦!
有byghbcx大虾说DBX做，但一点都不懂DBX，有EA大虾说只见过一个高手编过，但也没有放出程序，有无痕大虾放出天书程序，不知道怎么用。。。
请论坛现代高手放个程序出来拯救一下吧。。。就是不要跳出字体替换对话框，大字体直接用gbcbig替换或弄个配置文件自己配置也行!
下面是论坛关于字体替换的部分链接：
1、http://bbs.mjtd.com/forum.php?mod=viewthread&tid=914922、http://bbs.mjtd.com/forum.php?mod=viewthread&tid=89767
3、http://bbs.mjtd.com/forum.php?mod=viewthread&tid=57838
4、http://bbs.mjtd.com/forum.php?mod=viewthread&tid=57812
5、http://bbs.mjtd.com/forum.php?mo ... 02&page=1#pid487848

【KAIXIN】

flytoday

这个大家都想要哈哈………

flytoday

小，大字体弄个配置文件自己配置这个最好符合所有用户要求………静待大师出手…………

totoro

可以使用 记事本 开启字体对映档 acad.fmp,在最下面加入 GBCBIG;gbcbig.shx,尔后 CAD 若找不到字型时会自动指定字型档。

最好是复制 acad.fmp 至其他位置,在指定路径即可~

【KAIXIN】

2. ;文字替代（解决文字乱码用）
   
3. (defun c:KK( / lb_eng lb_chn lb_sech lb_tt1 lb_tt2 lb_a1 lb_a2 lb_hh)
   
4.   (setvar "REGENMODE" 0)
   
5.   (setq lb_eng (getstring "英文替代<Simplex>:") lb_chn (getstring "中文替代<Hztxt>:"))
   
6.   (if (= "" lb_eng)(setq lb_eng "simplex"))
   
7.   (if (= "" lb_chn)(setq lb_chn "hztxt"))
   
8.   (setq lb_sech (tblnext "style" t))
   
9.   (while lb_sech
   
10.     (setq lb_tt1 (cdr(assoc 3 lb_sech)) lb_tt2 (cdr(assoc 4 lb_sech)))
    
11.     (if (or (<= (strlen lb_tt1) 4)
    
12.             (/= "." (strcase(substr lb_tt1 (- (strlen lb_tt1) 3) 1)))        
    
13.         )
    
14.         (setq lb_tt1 (strcat lb_tt1 ".shx"))
    
15.     )
    
16.     (if (or (<= (strlen lb_tt2) 4)
    
17.             (/= "." (strcase(substr lb_tt2 (- (strlen lb_tt2) 3) 1)))
    
18.         )
    
19.         (if (/= "" lb_tt2)(setq lb_tt2 (strcat lb_tt2 ".shx")))
    
20.     )
    
21.     (if (/= ".TTF" (strcase(substr lb_tt1 (- (strlen lb_tt1) 3) 4)))
    
22.       (progn
    
23.         (if (null (findfile lb_tt1))(setq lb_a1 lb_eng)(setq lb_a1 lb_tt1))
    
24.         (if (= "" lb_tt2)
    
25.           (setq lb_a2 "")
    
26.           (if (null (findfile lb_tt2))(setq lb_a2 lb_chn)(setq lb_a2 lb_tt2))
    
27.         )
    
28.         (setq lb_hh (strcat lb_a1 "," lb_a2))
    
29.         (command "-style" (cdr(assoc 2 lb_sech)) lb_hh "" "" "" "" "" "")
    
30.       )
    
31.       (if (null (findfile lb_tt1))(command "-style" (cdr(assoc 2 lb_sech)) (strcat lb_eng "," lb_chn) "" "" "" "" "" ""))
    
32.     )
    
33.     (setq lb_sech (tblnext "style"))
    
34.   )
    
35. (setvar "REGENMODE" 1)
    
36. (command "regen")
    
37. )

;文字替代（解决文字乱码用）<br /> (defun c:KK( / lb_eng lb_chn lb_sech lb_tt1 lb_tt2 lb_a1 lb_a2 lb_hh)<br />   (setvar "REGENMODE" 0)<br />   (setq lb_eng (getstring "英文替代<Simplex>:") lb_chn (getstring "中文替代<Hztxt>:"))<br />   (if (= "" lb_eng)(setq lb_eng "simplex"))<br />   (if (= "" lb_chn)(setq lb_chn "hztxt"))<br />   (setq lb_sech (tblnext "style" t))<br />   (while lb_sech<br />     (setq lb_tt1 (cdr(assoc 3 lb_sech)) lb_tt2 (cdr(assoc 4 lb_sech)))<br />     (if (or (<= (strlen lb_tt1) 4)<br />             (/= "." (strcase(substr lb_tt1 (- (strlen lb_tt1) 3) 1)))        <br />         )<br />         (setq lb_tt1 (strcat lb_tt1 ".shx"))<br />     )<br />     (if (or (<= (strlen lb_tt2) 4)<br />             (/= "." (strcase(substr lb_tt2 (- (strlen lb_tt2) 3) 1)))<br />         )<br />         (if (/= "" lb_tt2)(setq lb_tt2 (strcat lb_tt2 ".shx")))<br />     )<br />     (if (/= ".TTF" (strcase(substr lb_tt1 (- (strlen lb_tt1) 3) 4)))<br />       (progn<br />         (if (null (findfile lb_tt1))(setq lb_a1 lb_eng)(setq lb_a1 lb_tt1))<br />         (if (= "" lb_tt2)<br />           (setq lb_a2 "")<br />           (if (null (findfile lb_tt2))(setq lb_a2 lb_chn)(setq lb_a2 lb_tt2))<br />         )<br />         (setq lb_hh (strcat lb_a1 "," lb_a2))<br />         (command "-style" (cdr(assoc 2 lb_sech)) lb_hh "" "" "" "" "" "")<br />       )<br />       (if (null (findfile lb_tt1))(command "-style" (cdr(assoc 2 lb_sech)) (strcat lb_eng "," lb_chn) "" "" "" "" "" ""))<br />     )<br />     (setq lb_sech (tblnext "style"))<br />   )<br /> (setvar "REGENMODE" 1)<br /> (command "regen")<br /> )

【KAIXIN】

上面程序是给高手参考用！

wowan1314

把要替换的字体复制一个，然后改名使其排列在所有字体之前！

然后打开图纸出现选择字体的对话框时，只要点空格即可。

个人认为此方法简单且方便实用。 打开图纸按几下空格即可搞定。

Lisper

设置一下系统变量 FONTALT ，将替代字体设置为你机器里有的字体即可！无需编程！

yjr111

Lisper 发表于 2012-4-14 16:58
设置一下系统变量 FONTALT ，将替代字体设置为你机器里有的字体即可！无需编程！

试了一下，还出现这个问题。。。请看图片