cad 可以把关键字全部一样的查找出来，然后再删掉吗

Question

例如我一张图里面有很多wsy.dkk 开始的文字 ，比如说wsy.dkk01 wsy.dkk02..... 但是全部要删掉。一个一个找很麻烦，中间还夹杂着其他字。 我用什么方法可以直接查找出来全图wsy.dkk 的文字，然后一下就全删除了. 谢谢。

Answer 1

把所有的包含关键字文字找出来是可以的：

用快速选择的方法，根据内容通配符匹配来选择

安装一个小程序也可以办到，反应速度要比快速选择方便

;;;;查找特定的文字内容;;
(defun C:tes ( / #k2 %k &kw1)
 (setvar "cmdecho" 0)
 (setvar "blipmode" 0)
 (if (and (setq %k (getstring "\n请输入要查找的文字内容"));注意输入的中英文大小写
          (setq &kw1 (ssget (list '(0 . "TEXT,MTEXT") (cons 1 (strcat "*" %k "*")))))
     )
  (progn
   (initget "V C S E") (setq #k2 (getkword "\n选择文字或[移动(V)/选择(S)/复制(C)]: <删除(E)> "))
   (if (= #k2 nil) (setq #k2 "E") (setq #k2 (strcase #k2)) );默认删除对象
   (cond
    ((= #k2 "V") (command "_.Move" &kw1 "" pause) )
    ((= #k2 "C") (command "_.Copy" &kw1 "" pause) )
    ((= #k2 "E") (command "_.Erase" &kw1 "") )
    ((= #k2 "S") (sssetfirst nil &kw1) )
   )
  )
 )
 (prin1)
);复制到记事本,以【.lsp】为后缀命名,打开CAD，autolisp加载，命令【TES】

Answer 2

文字快捷方式里面有查找替换（或者直接敲find）

将wsy.dkk

替换为 空格

我的版本是

AUTOCAD 2013

追问

我的是04版本，采用了楼上的方法，但是还是感谢你哦 。谢谢啦、

Answer 3

工具-快速选择-整个图形-多行文字-内容-不等于WSY.dkk追问

我的这些字不是多行文字，是文字。我选文字然后不等于之后，为什么会把所有的文字都选择起来呀。一删就把所有字全部删除了。 我的版本是04 = =！

追答

那你选内容-通配符-wsy。dkk* 就好了

追问

WSY.dkk 他还会删除其他的 比如 RHQ,ddk 。。。 所有的字他都删了 。 不仅仅是是WSY.dkk

追答

用通配符 就不会了，就会删只有wsy。dkk * 的了。

追问

大神，你是真大神。减少了我多么多的工作量，太感谢你了。 那请问有类似办法删除参照块吗？我马上采纳。

追答

块参照是一样的操作方法，只是” 文字“ 这里 选 “块参照” 就是了

本回答被提问者采纳