钢筋符号乱码处理

sosomany

dunkel 发表于 2015-8-11 09:42
那个，不能说是空格号吧。
上面也说了，你现在替换成了 %%132，看你描述的意思，似乎是在保存时又被替换回 ...

前辈啊 还能给个lisp的？每次去这样替换也很痛苦！难道就是我用了ZDM才会替换好了 保存、打开又回来了？这样说就感觉ZDM是故意了么？

dunkel

没接触过 zdm，不了解具体缘由。我的 acad 上是没有其它方插件的，只有个天正的查看插件，不会被自动加载，主动加载后也不见影响。下面的代码，筛选条件是依照上面的图形来的，你随便改吧。

2. (defun C:gjhz ( / xsel xl xi xc xtxt xt2)
   
3.    (vl-load-com)
   
4.    (setq  xsel (ssget "X" (List (cons 0 "TEXT") (cons 7 "钢筋") (cons 8 "钢筋标注"))))
   
5.    (if  xsel
   
6.         (progn
   
7.            (setq  xc (sslength  xsel)  xi 0)
   
8.            (princ "\n")
   
9.            (while  (< xi  xc)
   
10.               (setq  xl (entget (ssname xsel xi))  xtxt (cdr (assoc 1 xl))  xt2 (vl-string-subst "%%132" "\\U+0084" xtxt)  xi (1+ xi))
    
11.               (if  (/= xt2 xtxt)
    
12.                    (progn
    
13.                        (setq xln (subst (cons 1 xt2) (assoc 1 xl) xl))
    
14.                        (entmod xln)
    
15.                    )
    
16.               )
    
17.               (princ (strcat "\r" (itoa xi) ":" (itoa xc)))
    
18.            )  ; end of while(for each one in selection)
    
19.            (princ "  Finished.")
    
20.         )
    
21.    )  ; end of if(has selects)
    
22.    (princ)
    
23. )  ; end of (C:gjhz)
    
24. (C:gjhz)

(defun C:gjhz ( / xsel xl xi xc xtxt xt2)<br />    (vl-load-com)<br />    (setq  xsel (ssget "X" (List (cons 0 "TEXT") (cons 7 "钢筋") (cons 8 "钢筋标注"))))<br />    (if  xsel<br />         (progn<br />            (setq  xc (sslength  xsel)  xi 0)<br />            (princ "\n")<br />            (while  (< xi  xc)<br />               (setq  xl (entget (ssname xsel xi))  xtxt (cdr (assoc 1 xl))  xt2 (vl-string-subst "%%132" "\\U+0084" xtxt)  xi (1+ xi))<br />               (if  (/= xt2 xtxt)<br />                    (progn<br />                        (setq xln (subst (cons 1 xt2) (assoc 1 xl) xl))<br />                        (entmod xln)<br />                    )<br />               )<br />               (princ (strcat "\r" (itoa xi) ":" (itoa xc)))<br />            )  ; end of while(for each one in selection)<br />            (princ "  Finished.")<br />         )<br />    )  ; end of if(has selects)<br />    (princ)<br /> )  ; end of (C:gjhz)<br /> (C:gjhz)

sosomany

dunkel 发表于 2015-8-11 09:42
那个，不能说是空格号吧。
上面也说了，你现在替换成了 %%132，看你描述的意思，似乎是在保存时又被替换回 ...

我编辑的时候其实连空格也没有 没法替换的！比如原来应该40%%13220，但他只显示4020，中间的符号都不显示。我用CAD08的也试了一下

不想多说

打开探索者，输入Tcc，先把钢筋符号转化成探索者自带的那个钢筋符号，再用钢筋符号转化成%%132，完美解决，块里面的都能解决（包括属性块、动态块）