[分享]：批量修改文本内容

lt_zzy

加载以后，输入edit_text，然后输入想要改成的文本内容，再选择想修改的文本实体。

2. <normalfont>
   
3. (defun c:edit_text()
   
4.   (setvar"cmdecho"0)
   
5.   (command "undo" "group")
   
6.   (setq text (getstring "\n请输入文本:"))
   
7.   (princ "\n请选择实体:")
   
8.   (setq b (ssget))
   
9.   (setq a (ssadd))
   
10.   (setq number 0 n (sslength b))
    
11.   (repeat n
    
12.     (setq Name (ssname b number))      
    
13.     (setq ed (entget Name))           
    
14.     (setq panduan (cdr (assoc 0 ed)))     
    
15.     (if (or (= panduan "TEXT") (= panduan "MTEXT"))
    
16.        (ssadd Name a)
    
17.     )
    
18.   (setq number (1+ number))
    
19.   )      
    
20.   (setq n (sslength a))
    
21.   (setq number 0)
    
22.   (setq text (cons 1 text))      
    
23.   (repeat n
    
24.     (setq a1 (ssname a number))
    
25.     (setq a11 (entget a1))
    
26.     (setq result (subst text (assoc 1 a11) a11))
    
27.     (entmod result);实体更新
    
28.     (setq number (1+ number))
    
29.   )
    
30.   (command "undo" "end")
    
31.   (setvar"cmdecho"1)
    
32.   (princ)
    
33. )
    
34. </font>

<normalfont><br /> (defun c:edit_text()<br />   (setvar"cmdecho"0)<br />   (command "undo" "group")<br />   (setq text (getstring "\n请输入文本:"))<br />   (princ "\n请选择实体:")<br />   (setq b (ssget))<br />   (setq a (ssadd))<br />   (setq number 0 n (sslength b))<br />   (repeat n<br />     (setq Name (ssname b number))       <br />     (setq ed (entget Name))           <br />     (setq panduan (cdr (assoc 0 ed)))     <br />     (if (or (= panduan "TEXT") (= panduan "MTEXT"))<br />        (ssadd Name a)<br />     )<br />   (setq number (1+ number))<br />   )      <br />   (setq n (sslength a))<br />   (setq number 0)<br />   (setq text (cons 1 text))       <br />   (repeat n<br />     (setq a1 (ssname a number))<br />     (setq a11 (entget a1))<br />     (setq result (subst text (assoc 1 a11) a11))<br />     (entmod result);实体更新<br />     (setq number (1+ number))<br />   )<br />   (command "undo" "end")<br />   (setvar"cmdecho"1)<br />   (princ)<br /> )<br /> </font>

fylinwater

这个功能好像还没有find强大阿?

张世杰

怎样把FIND放在LISP中，不用出对话框呢？

lt_zzy

FIND是修改文本中相同的内容，而不是修改整个文本。

fylinwater

这样就可以全改了

lt_zzy

这样我没有试过，因为我一直用得是CADR14，在R14的命令行下面，你只要输入edit_text命令，然后输入你所想要改成的内容，然后选择文本，那些你所选择的文本内容将变成你所输入的文本。