[日积月累]：命令行“简易-----Find”

eachy

2. 
   
3. (defun c:Ea:Find (/ e lst ss h txt ssl e1 el thisdrawing)
   
4.   (setq thisdrawing (vlax-get (vlax-get-acad-object) 'activedocument))
   
5.   (if (and (setq e (entsel "\n拾取源文字: "))
   
6.            (setq e   (car e)
   
7.                  lst (entget e)
   
8.            )
   
9.            (= (cdr (assoc 0 lst)) "TEXT")
   
10.       )
    
11.     (progn
    
12.       (vla-startundomark thisdrawing)
    
13.       (setq h        (assoc 40 lst)
    
14.             txt        (assoc 1 lst)
    
15.       )
    
16.       (princ "\n选择修改文字...")
    
17.       (if (setq        ss (ssget (list        '(0 . "text")
    
18.                                 (cons 1 (strcat "*" (cdr txt) "*"))
    
19.                           )
    
20.                    )
    
21.           )
    
22.         (progn
    
23.           (setq ssl (sslength ss))
    
24.           (while (> ssl 0)
    
25.             (setq e1 (ssname ss (setq ssl (1- ssl)))
    
26.                   el (entget e1)
    
27.                   el (subst h (assoc 40 el) el)
    
28.                   el (subst txt (assoc 1 el) el)
    
29.             )
    
30.             (entmod el)
    
31.           )
    
32.         )
    
33.       )
    
34.       (vla-endundomark thisdrawing)
    
35.     )
    
36.   )
    
37.   (princ)
    
38. )
    
39. 
    

<br /> (defun c:Ea:Find (/ e lst ss h txt ssl e1 el thisdrawing)<br />   (setq thisdrawing (vlax-get (vlax-get-acad-object) 'activedocument))<br />   (if (and (setq e (entsel "\n拾取源文字: "))<br />            (setq e   (car e)<br />                  lst (entget e)<br />            )<br />            (= (cdr (assoc 0 lst)) "TEXT")<br />       )<br />     (progn<br />       (vla-startundomark thisdrawing)<br />       (setq h        (assoc 40 lst)<br />             txt        (assoc 1 lst)<br />       )<br />       (princ "\n选择修改文字...")<br />       (if (setq        ss (ssget (list        '(0 . "text")<br />                                 (cons 1 (strcat "*" (cdr txt) "*"))<br />                           )<br />                    )<br />           )<br />         (progn<br />           (setq ssl (sslength ss))<br />           (while (> ssl 0)<br />             (setq e1 (ssname ss (setq ssl (1- ssl)))<br />                   el (entget e1)<br />                   el (subst h (assoc 40 el) el)<br />                   el (subst txt (assoc 1 el) el)<br />             )<br />             (entmod el)<br />           )<br />         )<br />       )<br />       (vla-endundomark thisdrawing)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

liuyj

还有mtext、块中文字、属性文字------

shisj

cad本身支持find功能，可以实现查找、替换，很方便的。

陌生人

应该叫做：文本刷子：）

libo_dy

怎么试了一下，文字内容是不是前面一样的才行，源文字内容要比修改文字内容少才行，多了就不认了！

命令: ea:find
拾取源文字:
选择修改文字...
选择对象: 找到 1 个
已滤除 1 个。

aeo

(setq        ss (ssget (list        '(0 . "text")
                                (cons 1 (strcat "*" (cdr txt) "*"))
                          )
                   )
          )

就有问题,比如文本里有逗号.

xyp1964

称之为：相同“字根”文本内容格式刷！

雨箭风刀

最初由 aeo 发布
[B](setq        ss (ssget (list        '(0 . "text")
                                (cons 1 (strcat "*" (cdr txt) "*"))
                          )
                   )
          )

就有问题,比如文本里有逗号. [/B]

的确如此，看来过滤的字符串要处理一下