[原创]：字体重定义与恢复源定义。

eachy

经常修改别人的图，可能自己的机器中没有图中的字体或者原图中使用了TTF字体，本程序解决决字体替代的问题，将TTF字体换用SHX字体以提高显示速度，返回图形时再恢复源字型定义。

2. 
   
3. ;|
   
4. 说明：safnt 重新定义图中所有字型定义，resfnt 恢复图中原始字型定义
   
5.       需要XDRX_API支持，Only for 2000+
   
6. |;
   
7. (defun c:safnt (/ e e1 a2 oldtxtsty)
   
8.   (setq a2 '()
   
9.         oldtxtsty (getvar "textstyle"))
   
10.   (xdrx_object_get "style")
    
11.   (while (setq e (xdrx_object_next))
    
12.     (setq e1 (if (/= (cdr (assoc 4 (entget (cadr e)))) "")
    
13.                (strcat (cdr (assoc 3 (entget (cadr e))))
    
14.                        ","
    
15.                        (cdr (assoc 4 (entget (cadr e))))
    
16.                )
    
17.                (cdr (assoc 3 (entget (cadr e))))
    
18.              )
    
19.     )
    
20.     (setq a2 (append (list (list (car e) e1)) a2))
    
21.   )
    
22.   ;;建立词典，随图保存
    
23.   (vlax-ldata-put "#myaxis" "style" a2)
    
24.   (while a2
    
25.     (setq st
    
26.            (car a2))
    
27.     (command "-style"
    
28.              (car st)
    
29.              (if (or (wcmatch (cadr st) "*,*")
    
30.                      (wcmatch (cadr st) "*ttf")
    
31.                  )
    
32.                "romans,hzdx"[COLOR=orangered];;此字型可自行定义[/color]
    
33.                "romans"
    
34.              )
    
35.              ""
    
36.              ""
    
37.              ""
    
38.              ""
    
39.              ""
    
40.              ""
    
41.     )
    
42.     [COLOR=orangered](command)[/color]
    
43.     (setq a2 (cdr a2))
    
44.   )
    
45.   (setvar "textstyle" oldtxtsty)
    
46.   (princ)
    
47. )
    
48. (defun c:resfnt        (/ a oldtxtsty)
    
49.   (setq oldtxtsty (getvar "textstyle"))
    
50.   (setq a (vlax-ldata-get "#myaxis" "style"))
    
51.   (while a
    
52.     (command "-style" (caar a) (cadar a) "" "" "" "" "" (if (= oldtxtsty (caar a)) ""))
    
53.     (setq a (cdr a))
    
54.   )
    
55.   (command)
    
56.   (vlax-ldata-delete "#myaxis" "style")
    
57.   (setvar "textstyle" oldtxtsty)
    
58.   (princ)
    
59. )

<br /> ;|<br /> 说明：safnt 重新定义图中所有字型定义，resfnt 恢复图中原始字型定义<br />       需要XDRX_API支持，Only for 2000+<br /> |;<br /> (defun c:safnt (/ e e1 a2 oldtxtsty)<br />   (setq a2 '()<br />         oldtxtsty (getvar "textstyle"))<br />   (xdrx_object_get "style")<br />   (while (setq e (xdrx_object_next))<br />     (setq e1 (if (/= (cdr (assoc 4 (entget (cadr e)))) "")<br />                (strcat (cdr (assoc 3 (entget (cadr e))))<br />                        ","<br />                        (cdr (assoc 4 (entget (cadr e))))<br />                )<br />                (cdr (assoc 3 (entget (cadr e))))<br />              )<br />     )<br />     (setq a2 (append (list (list (car e) e1)) a2))<br />   )<br />   ;;建立词典，随图保存<br />   (vlax-ldata-put "#myaxis" "style" a2)<br />   (while a2<br />     (setq st<br />            (car a2))<br />     (command "-style"<br />              (car st)<br />              (if (or (wcmatch (cadr st) "*,*")<br />                      (wcmatch (cadr st) "*ttf")<br />                  )<br />                "romans,hzdx"[COLOR=orangered];;此字型可自行定义[/color]<br />                "romans"<br />              )<br />              ""<br />              ""<br />              ""<br />              ""<br />              ""<br />              ""<br />     )<br />     [COLOR=orangered](command)[/color]<br />     (setq a2 (cdr a2))<br />   )<br />   (setvar "textstyle" oldtxtsty)<br />   (princ)<br /> )<br /> (defun c:resfnt        (/ a oldtxtsty)<br />   (setq oldtxtsty (getvar "textstyle"))<br />   (setq a (vlax-ldata-get "#myaxis" "style"))<br />   (while a<br />     (command "-style" (caar a) (cadar a) "" "" "" "" "" (if (= oldtxtsty (caar a)) ""))<br />     (setq a (cdr a))<br />   )<br />   (command)<br />   (vlax-ldata-delete "#myaxis" "style")<br />   (setvar "textstyle" oldtxtsty)<br />   (princ)<br /> )

ll_j

2. 
   
3. 建议修改：
   
4. 
   
5.     (command "-style"
   
6.              (car st)
   
7.              (if (or (wcmatch (cadr st) "*,*")
   
8.                      (wcmatch (cadr st) "*ttf")
   
9.                  )
   
10.                "romans,hzdx"
    
11.                "romans"
    
12.              )
    
13.              ""
    
14.              ""
    
15.              ""
    
16.              ""
    
17.              ""
    
18.              ""
    
19.     )
    
20. 
    
21. 为：
    
22. 
    
23.     (command "-style"
    
24.              (car st)
    
25.              (if (or (wcmatch (cadr st) "*,*")
    
26.                      (wcmatch (cadr st) "*ttf")
    
27.                  )
    
28.                "romans,hzdx"
    
29.                "romans"
    
30.              )
    
31.              ""
    
32.              ""
    
33.              ""
    
34.              ""
    
35.              ""
    
36.     )
    
37.     (command)       ;少一个回车，解决有些字体不支持竖排。
    
38. 
    

<br /> 建议修改：<br /> <br />     (command "-style"<br />              (car st)<br />              (if (or (wcmatch (cadr st) "*,*")<br />                      (wcmatch (cadr st) "*ttf")<br />                  )<br />                "romans,hzdx"<br />                "romans"<br />              )<br />              ""<br />              ""<br />              ""<br />              ""<br />              ""<br />              ""<br />     )<br /> <br /> 为：<br /> <br />     (command "-style"<br />              (car st)<br />              (if (or (wcmatch (cadr st) "*,*")<br />                      (wcmatch (cadr st) "*ttf")<br />                  )<br />                "romans,hzdx"<br />                "romans"<br />              )<br />              ""<br />              ""<br />              ""<br />              ""<br />              ""<br />     )<br />     (command)       ;少一个回车，解决有些字体不支持竖排。<br /> <br />

szkevin

eachy ,  整理一下提供源码下载，大家都用copy & paste也不是办法，谢谢。

cy956

多一个少一个回车和shx的竖排方式有关，用command总有
点鸡肋感，还是用entmake，不管中西文，不管竖排，一次
定出。不过我用来定义ttf时，cad崩了几次，不愿再试了，
也不知是因为entmake还是cad本身，权当只能定义shx字体。