[求助]：ACAD2006中特殊字符*@~#%如何查找替换?

yx5277

ACAD2006中特殊字符*@~#%如何查找替换?
下图中的左边式子如何查找替换变成右边式子,这些式子可是我们结构设计经常用到的哦.
该不会是cad的bug吧

xjlmlxbq

find就可以了吧

yx5277

就是因为Find不行才向大家请教啊，大侠试试就知道了。

left2r

试试这个，我自己写的

;thhlsp
;---------
;主程序  +
;---------
(defun C:thh()
(chgtxt "X" "×")
(chgtxt "x" "×")
(chgtxt "×;" "x")
(chgtxt "@" "-")
(chgtxt "~" "-")
(chgtxt "#" "号")
(chgtxt "%" "百分之")
(command "_regen")
)

;--------------
;修改指定文字 +
;--------------
(DEFUN chgtxt(fd_t rp_t / fd_ttt fd_ln sss num data ii mem_t new_text new_dat mem_ent);
     (SETVAR "BLIPMODE" 0)
     (SETVAR "CMDECHO" 0)
;读取文字
(setq fd_ttt (strcat "*" fd_t "*"))
(setq fd_ln (strlen fd_t))
;
;选取实体
(setq sss (ssget "x" '((-4 . "<or")(0 . "TEXT")(0 . "MTEXT")
  (0 . "DIMENSION")(-4 . "or>"))))
(setq ii 0)
;
;条件判断
(repeat (sslength sss);repeat01
(setq mem_ent (entget (ssname sss ii)))
(setq data (assoc 1 mem_ent) mem_t (cdr data))
(if (wcmatch mem_t fd_ttt)
(progn ;progn02
(setq maxx (strlen mem_t) new_text "" num 0)
(while (< num maxx)
(if (= (substr mem_t 1 fd_ln) fd_t)
   (setq new_text (strcat new_text rp_t)
         mem_t (substr mem_t (1+ fd_ln))
         num (+ num fd_ln))
   (setq new_text (strcat new_text (substr mem_t 1 1))
         mem_t (substr mem_t 2)
         num (1+ num))
));end while
(setq new_dat (cons 1 new_text)
      mem_ent (subst new_dat data mem_ent))
(entmod mem_ent)
);end progn02
);end if
(setq ii (1+ ii))
);end repeat01
);end defun