sosomany 发表于 2015-8-12 20:32:36

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

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

dunkel 发表于 2015-8-13 08:50:23

本帖最后由 dunkel 于 2015-8-13 08:53 编辑

没接触过 zdm,不了解具体缘由。我的 acad 上是没有其它方插件的,只有个天正的查看插件,不会被自动加载,主动加载后也不见影响。下面的代码,筛选条件是依照上面的图形来的,你随便改吧。(defun C:gjhz ( / xsel xl xi xc xtxt xt2)
   (vl-load-com)
   (setqxsel (ssget "X" (List (cons 0 "TEXT") (cons 7 "钢筋") (cons 8 "钢筋标注"))))
   (ifxsel
      (progn
         (setqxc (sslengthxsel)xi 0)
         (princ "\n")
         (while(< xixc)
            (setqxl (entget (ssname xsel xi))xtxt (cdr (assoc 1 xl))xt2 (vl-string-subst "%%132" "\\U+0084" xtxt)xi (1+ xi))
            (if(/= xt2 xtxt)
                   (progn
                     (setq xln (subst (cons 1 xt2) (assoc 1 xl) xl))
                     (entmod xln)
                   )
            )
            (princ (strcat "\r" (itoa xi) ":" (itoa xc)))
         ); end of while(for each one in selection)
         (princ "Finished.")
      )
   ); end of if(has selects)
   (princ)
); end of (C:gjhz)
(C:gjhz)

sosomany 发表于 2015-8-13 13:18:35

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

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

不想多说 发表于 2020-8-24 14:03:52

打开探索者,输入Tcc,先把钢筋符号转化成探索者自带的那个钢筋符号,再用钢筋符号转化成%%132,完美解决,块里面的都能解决(包括属性块、动态块)
页: 1 [2]
查看完整版本: 钢筋符号乱码处理