[分享]：用 XdRx_Modent 修改符号表。

eachy

用Modent 修改符号表，最后仅进行一次Regen。

2. 
   
3. ;|
   
4. 说明：safnt 重新定义图中所有字型定义，
   
5.       需要XDRX_API支持，ONLY for 2000+
   
6. |;
   
7. (defun c:safnt (/ n stl $old_stl)
   
8.   (xdrx_sysvar_push "textstyle")
   
9.   (setq stl ($xdlsp_symbol->list "style"))
   
10.   (setq
    
11.     $old_stl (mapcar
    
12.                '(lambda        (x)
    
13.                   (list        (car x)
    
14.                         (last x)
    
15.                         (if (/= (cdr (assoc 4 (entget (last x)))) "")
    
16.                           (strcat
    
17.                             (cdr
    
18.                               (assoc 3
    
19.                                      (entget (last x))
    
20.                               )
    
21.                             )
    
22.                             ","
    
23.                             (cdr
    
24.                               (assoc 4
    
25.                                      (entget (last x))
    
26.                               )
    
27.                             )
    
28.                           )
    
29.                           (cdr (assoc 3 (entget (last x))))
    
30.                         )
    
31.                        
    
32.                   )
    
33.                                         ;stl
    
34.                 )
    
35.                stl
    
36.              )
    
37.   )
    
38.   ;;建立词典，随图保存
    
39.   (vlax-ldata-put "#myaxis" "style" $old_stl)
    
40.   (foreach n $old_stl
    
41.     (setq _name            (car n)
    
42.           e            (cadr n)
    
43.           _styleshx (last n)
    
44.     )
    
45.     (if
    
46.       (OR (wcmatch _styleshx "*ttf*")
    
47.           (not
    
48.             (findfile (strcat (cdr (assoc 3 (entget (cadr n)))) ".shx"))
    
49.           )
    
50.           (not
    
51.             (findfile (strcat (cdr (assoc 4 (entget (cadr n)))) ".shx"))
    
52.           )
    
53.           (wcmatch _styleshx "*pfb")
    
54.       )
    
55.       (xdrx_setenttodb (cadr n))
    
56.       (xdrx_modent 3 "gbenor.shx" 4 "gbcbig.shx")
    
57.     )
    
58.   )
    
59.   (xdrx_object_regen)
    
60.   (xdrx_sysvar_pop)
    
61.   (xdrx_end)
    
62.   (princ)
    
63. )

<br /> ;|<br /> 说明：safnt 重新定义图中所有字型定义，<br />       需要XDRX_API支持，ONLY for 2000+<br /> |;<br /> (defun c:safnt (/ n stl $old_stl)<br />   (xdrx_sysvar_push "textstyle")<br />   (setq stl ($xdlsp_symbol->list "style"))<br />   (setq<br />     $old_stl (mapcar<br />                '(lambda        (x)<br />                   (list        (car x)<br />                         (last x)<br />                         (if (/= (cdr (assoc 4 (entget (last x)))) "")<br />                           (strcat<br />                             (cdr<br />                               (assoc 3<br />                                      (entget (last x))<br />                               )<br />                             )<br />                             ","<br />                             (cdr<br />                               (assoc 4<br />                                      (entget (last x))<br />                               )<br />                             )<br />                           )<br />                           (cdr (assoc 3 (entget (last x))))<br />                         )<br />                         <br />                   )<br />                                         ;stl<br />                 )<br />                stl<br />              )<br />   )<br />   ;;建立词典，随图保存<br />   (vlax-ldata-put "#myaxis" "style" $old_stl)<br />   (foreach n $old_stl<br />     (setq _name            (car n)<br />           e            (cadr n)<br />           _styleshx (last n)<br />     )<br />     (if<br />       (OR (wcmatch _styleshx "*ttf*")<br />           (not<br />             (findfile (strcat (cdr (assoc 3 (entget (cadr n)))) ".shx"))<br />           )<br />           (not<br />             (findfile (strcat (cdr (assoc 4 (entget (cadr n)))) ".shx"))<br />           )<br />           (wcmatch _styleshx "*pfb")<br />       )<br />       (xdrx_setenttodb (cadr n))<br />       (xdrx_modent 3 "gbenor.shx" 4 "gbcbig.shx")<br />     )<br />   )<br />   (xdrx_object_regen)<br />   (xdrx_sysvar_pop)<br />   (xdrx_end)<br />   (princ)<br /> )