GS工具箱，文本查找替换，简洁、实用、源码

雨的节奏

1. thg_dcl:dialog{label="查找替换工具";
   
2.    :column{
   
3.                            
   
4.          :edit_box{label="要修改的文字";
   
5.           key="thy1";
   
6.           edit_width=30;
   
7.               }                                                                     
   
8.        :edit_box{label="替换后的文字";
   
9.             key="ths1";
   
10.             edit_width=30;
    
11.                   }              
    
12.        ok_cancel;
    
13. }                                       
    
14. }   

thg_dcl:dialog{label="查找替换<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>";<br />    :column{ <br />                             <br />          :edit_box{label="要修改的文字";<br />           key="thy1";<br />           edit_width=30;<br />               }                                                                      <br />        :edit_box{label="替换后的文字";<br />             key="ths1";<br />             edit_width=30;<br />                   }              <br />        ok_cancel;<br /> }                                       <br /> }   

1. (defun c:ggthg (/ thg_shed  dcl_id dd ss)     
   
2.   (setq dcl_id (load_dialog "thg_dcl"))
   
3.   (new_dialog "thg_dcl" dcl_id)
   
4.   (defun thg_shed () (setq gsthy1 (get_tile "thy1") gsths1 (get_tile "ths1")))
   
5.   (if gsthy1 (set_tile "thy1" gsthy1))
   
6.   (if gsths1 (set_tile "ths1" gsths1))
   
7.   (action_tile "accept" "(thg_shed) (done_dialog 1)")
   
8.   (setq dd (start_dialog))
   
9.     (IF (= dd 1)
   
10.     (PROGN
    
11.        (setq ss (ssget '((0 . "TEXT,MTEXT" ))))
    
12.        (setq n 0)
    
13.        (repeat (sslength ss)
    
14.        (setq wenzi  (vla-get-TextString (setq enx (vlax-ename->vla-object (ssname ss n))))
    
15.               ens (vl-string-subst gsths1 gsthy1 wenzi)
    
16.              )
    
17.              (Vlax-Put-Property enx 'TextString ens)
    
18.              (setq n (1+ n))
    
19.           ) ;end repeat
    
20.     )
    
21.     )
    
22. (princ "修改完成！！")
    
23. (prin1)
    
24. )
    
25. (prin1)
    
26.         

(defun c:ggthg (/ thg_shed  dcl_id dd ss)     <br />   (setq dcl_id (load_dialog "thg_dcl"))<br />   (new_dialog "thg_dcl" dcl_id)<br />   (defun thg_shed () (setq gsthy1 (get_tile "thy1") gsths1 (get_tile "ths1"))) <br />   (if gsthy1 (set_tile "thy1" gsthy1))<br />   (if gsths1 (set_tile "ths1" gsths1))<br />   (action_tile "accept" "(thg_shed) (done_dialog 1)")<br />   (setq dd (start_dialog))<br />     (IF (= dd 1) <br />     (PROGN <br />        (setq ss (ssget '((0 . "TEXT,MTEXT" ))))<br />        (setq n 0)<br />        (repeat (sslength ss)<br />        (setq wenzi  (vla-get-TextString (setq enx (vlax-ename->vla-object (ssname ss n))))<br />               ens (vl-string-subst gsths1 gsthy1 wenzi)<br />              )<br />              (Vlax-Put-Property enx 'TextString ens)<br />              (setq n (1+ n))<br />           ) ;end repeat<br />     )<br />     )<br /> (princ "修改完成！！")<br /> (prin1)<br /> )<br /> (prin1)<br />         

东升铮

顶一个!

qmqyqj

这CAD自带的FIND功能不就行了

shcvip

qmqyqj 发表于 2019-9-28 09:52
这CAD自带的FIND功能不就行了

批量替换多个文字，不就有意义了嘛。

ketxu

With Unicode string, vl- function will not correct.

qmqyqj

shcvip 发表于 2019-9-29 23:19
批量替换多个文字，不就有意义了嘛。

CAD自带的就是批量替换呀

shcvip

qmqyqj 发表于 2019-9-30 11:05
CAD自带的就是批量替换呀

http://bbs.mjtd.com/thread-89647-1-1.html
之前还有人发过的。

qmqyqj

shcvip 发表于 2019-9-30 13:36
http://bbs.mjtd.com/thread-89647-1-1.html
之前还有人发过的。

嗯，这个只能在很老很老的CAD（没有替换功能）上用用

zj20190405

大佬合并在一起啊