由于CAD刷新不彻底导致的字体乱码

jia_jg

画图过程中发现某些字体乱码，这些问题编辑一下或换个样式再换回来均能显示正常，基于此写下以下代码解决此问题：

2. (defun C:RGT ( )
   
3.   (setvar "cmdecho" 0)
   
4.   (vl-load-com)
   
5.   (setq ss (ssget "X" '((0 . "DIMENSION,TEXT,MTEXT"))))
   
6.   (if ss
   
7.     (progn
   
8.       (setq len (sslength ss))
   
9.       (setq n 0)
   
10.       (repeat len
    
11.         (setq ent (ssname ss n))
    
12.         (setq entdata (entget ent))
    
13.         (if (assoc 1 entdata)
    
14.           (progn
    
15.             (setq txt (cdr (assoc 1 entdata)))
    
16.             (setq entdata (subst '(1 . "") (assoc 1 entdata) entdata))
    
17.             (entmod entdata)
    
18.             (setq entdata (subst (cons 1 txt) (assoc 1 entdata) entdata))
    
19.             (entmod entdata)
    
20.           )
    
21.         )
    
22.         (setq n (+ 1 n))
    
23.       )
    
24.     )
    
25.   )
    
26.   (setq acadObj (vlax-get-acad-object))
    
27.   (setq doc (vla-get-activedocument acadObj))
    
28.   ; (setq mspace (vla-get-mspace doc))
    
29.   (setq n 0)
    
30.   (setq Blocks (vla-get-blocks doc))
    
31.   (vlax-for temptBlock Blocks  ;vla-item Blocks 2
    
32.     (if (> n 1)
    
33.       (progn         
    
34.         (setq blk_name (vla-get-Name temptBlock))
    
35.         (setq blkr (tblsearch "block" blk_name)) ;获取 存储块的链表
    
36.         (setq blkent (cdr (assoc -2 blkr))) ;获取块的第一个组成实体
    
37.         (setq blkentdata (entget blkent))
    
38.         (setq datatype (cdr (assoc 0 blkentdata)))
    
39.         (if (or (= datatype "MTEXT") (= datatype "TEXT") (= datatype "DIMENSION"))
    
40.           (progn
    
41.             (setq txt (cdr (assoc 1 blkentdata)))
    
42.             (setq blkentdata (subst '(1 . "") (assoc 1 blkentdata) blkentdata))
    
43.             (entmod blkentdata)
    
44.             (setq blkentdata (subst (cons 1 txt) (assoc 1 blkentdata) blkentdata))
    
45.             (entmod blkentdata)
    
46.             (print txt)
    
47.           )
    
48.         )
    
49.         (setq blkent (entnext blkent)) ;获取块的第二个组成实体
    
50.         (while blkent
    
51.           (setq blkentdata (entget blkent))
    
52.           (setq datatype (cdr (assoc 0 blkentdata)))
    
53.           (if (or (= datatype "MTEXT") (= datatype "TEXT") (= datatype "DIMENSION"))
    
54.             (progn        
    
55.               (setq txt (cdr (assoc 1 blkentdata)))
    
56.               (setq blkentdata (subst '(1 . "") (assoc 1 blkentdata) blkentdata))
    
57.               (entmod blkentdata)
    
58.               (setq blkentdata (subst (cons 1 txt) (assoc 1 blkentdata) blkentdata))
    
59.               (entmod blkentdata)
    
60.               (print txt)
    
61.             )
    
62.           )
    
63.           (setq blkent (entnext blkent))         
    
64.         )
    
65.       )
    
66.     )
    
67.     (setq n (+ 1 n))      
    
68.   )
    
69.   (command "REGEN")
    
70.   (prin1)
    
71. )
    

(defun C:RGT ( )<br />   (setvar "cmdecho" 0)<br />   (vl-load-com)<br />   (setq ss (ssget "X" '((0 . "DIMENSION,TEXT,MTEXT"))))<br />   (if ss<br />     (progn<br />       (setq len (sslength ss))<br />       (setq n 0)<br />       (repeat len<br />         (setq ent (ssname ss n))<br />         (setq entdata (entget ent))<br />         (if (assoc 1 entdata)<br />           (progn<br />             (setq txt (cdr (assoc 1 entdata)))<br />             (setq entdata (subst '(1 . "") (assoc 1 entdata) entdata))<br />             (entmod entdata)<br />             (setq entdata (subst (cons 1 txt) (assoc 1 entdata) entdata))<br />             (entmod entdata)<br />           )<br />         )<br />         (setq n (+ 1 n))<br />       )<br />     )<br />   )<br />   (setq acadObj (vlax-get-acad-object))<br />   (setq doc (vla-get-activedocument acadObj))<br />   ; (setq mspace (vla-get-mspace doc))<br />   (setq n 0)<br />   (setq Blocks (vla-get-blocks doc))<br />   (vlax-for temptBlock Blocks  ;vla-item Blocks 2<br />     (if (> n 1)<br />       (progn          <br />         (setq blk_name (vla-get-Name temptBlock))<br />         (setq blkr (tblsearch "block" blk_name)) ;获取 存储块的链表<br />         (setq blkent (cdr (assoc -2 blkr))) ;获取块的第一个组成实体<br />         (setq blkentdata (entget blkent))<br />         (setq datatype (cdr (assoc 0 blkentdata)))<br />         (if (or (= datatype "MTEXT") (= datatype "TEXT") (= datatype "DIMENSION"))<br />           (progn<br />             (setq txt (cdr (assoc 1 blkentdata)))<br />             (setq blkentdata (subst '(1 . "") (assoc 1 blkentdata) blkentdata))<br />             (entmod blkentdata)<br />             (setq blkentdata (subst (cons 1 txt) (assoc 1 blkentdata) blkentdata))<br />             (entmod blkentdata)<br />             (print txt)<br />           )<br />         )<br />         (setq blkent (entnext blkent)) ;获取块的第二个组成实体<br />         (while blkent<br />           (setq blkentdata (entget blkent))<br />           (setq datatype (cdr (assoc 0 blkentdata)))<br />           (if (or (= datatype "MTEXT") (= datatype "TEXT") (= datatype "DIMENSION"))<br />             (progn        <br />               (setq txt (cdr (assoc 1 blkentdata)))<br />               (setq blkentdata (subst '(1 . "") (assoc 1 blkentdata) blkentdata))<br />               (entmod blkentdata)<br />               (setq blkentdata (subst (cons 1 txt) (assoc 1 blkentdata) blkentdata))<br />               (entmod blkentdata)<br />               (print txt)<br />             )<br />           )<br />           (setq blkent (entnext blkent))          <br />         )<br />       )<br />     )<br />     (setq n (+ 1 n))      <br />   )<br />   (command "REGEN")<br />   (prin1)<br /> )<br />

请各位老师指点：

jun353835273

没有遇到过这种问题，发个测试图看看呢

acoff

以前还发生过字体乱码后无法恢复的情况，换台电脑都打开都是乱码