求助:修改开金工具的文字查找

ymcui

2. 
   
3. *fr:dialog{
   
4.   label="《開金工具箱》--（查找/替换）文字功能(适用于text、mtext)";
   
5.   spacer;
   
6.   :column{
   
7.     :boxed_row{
   
8.       :text_part{
   
9.         label="查找文字:";
   
10.         key="cz";
    
11.       }
    
12.       :edit_box{
    
13.         key="text_find";
    
14.         edit_limit=80;
    
15.         edit_width=65;
    
16.         value="";
    
17.       }
    
18.     }  
    
19.     :boxed_row{
    
20.       :text_part{
    
21.         label="替换为:";
    
22.         key="th";
    
23.       }
    
24.    
    
25.       :edit_box{
    
26.         key="text_replace";
    
27.         edit_limit=80;
    
28.         edit_width=65;
    
29.         value="";
    
30.       }
    
31.     }
    
32.     spacer;
    
33.     :boxed_row{
    
34.       :button{
    
35.         label="查找";
    
36.         key="select";
    
37.       }
    
38.     }
    
39.     :boxed_row{
    
40.       :text_part{
    
41.         label="-->共找到（）组字符";
    
42.         key="t3";
    
43.       }
    
44.       :button{
    
45.         label="缩放为(ZOOM)-->";
    
46.         key="selecta";
    
47.       }
    
48.     }
    
49.     :boxed_row{
    
50.       :button{
    
51.         label="修改";
    
52.         key="selectb";
    
53.       }
    
54.       :button{
    
55.         label="全部修改";
    
56.         key="selectc";
    
57.       }
    
58.     }  
    
59.   }
    
60.   initial_focus=text_find;
    
61.   spacer;
    
62.   ok_cancel;
    
63. }  

<br /> *fr:dialog{<br />   label="《開金<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>箱》--（查找/替换）文字功能(适用于text、mtext)";<br />   spacer;<br />   :column{<br />     :boxed_row{<br />       :text_part{<br />         label="查找文字:";<br />         key="cz";<br />       }<br />       :edit_box{<br />         key="text_find";<br />         edit_limit=80;<br />         edit_width=65;<br />         value="";<br />       }<br />     }  <br />     :boxed_row{<br />       :text_part{<br />         label="替换为:";<br />         key="th";<br />       }<br />     <br />       :edit_box{<br />         key="text_replace";<br />         edit_limit=80;<br />         edit_width=65;<br />         value="";<br />       }<br />     }<br />     spacer;<br />     :boxed_row{<br />       :button{<br />         label="查找";<br />         key="select";<br />       }<br />     }<br />     :boxed_row{<br />       :text_part{<br />         label="-->共找到（）组字符";<br />         key="t3";<br />       }<br />       :button{<br />         label="缩放为(ZOOM)-->";<br />         key="selecta";<br />       }<br />     }<br />     :boxed_row{<br />       :button{<br />         label="修改";<br />         key="selectb";<br />       }<br />       :button{<br />         label="全部修改";<br />         key="selectc";<br />       }<br />     }  <br />   }<br />   initial_focus=text_find;<br />   spacer;<br />   ok_cancel;<br /> }  

注:程序点击缩放时,点一次自动缩放下一个字符.谢谢

2. ;查找/替换文字
   
3. (defun c:KJ_WTH(/ msg_1 msg_2 dcl_file dcl_flag text_f text_r single ob_list ob_number
   
4. 
   
5. temp text_code
   
6.       text_o text_e text_h length_e length_f total_o total_t text_s text_c)
   
7.      (setvar "cmdecho" 0) ;指令执行过程不响应
   
8.      (PRINC "\n【開金工具箱】---查找/替换文字功能")
   
9. (princ "\n-->请框选要查找替换的区域.....")
   
10.   (defun dcl()
    
11.     (setq dcl_file "fr")
    
12.     (setq dcl_flag (load_dialog dcl_file))
    
13.     (if (< dcl_flag 0) (exit))
    
14.     (if (not (new_dialog "fr" dcl_flag)) (exit))
    
15.     (set_tile "text_find" text_f)
    
16.       (set_tile "text_replace" text_r)
    
17.     (action_tile "text_find" "(setq text_f $$$$$$$$$$$$$$$$value)")
    
18.       (action_tile "text_replace" "(setq text_r $$$$$$$$$$$$$$$$value)")
    
19.     (action_tile "select" "(done_dialog 2)")
    
20.     (action_tile "selecta" "(done_dialog 3)")
    
21.     (action_tile "selectb" "(done_dialog 4)")
    
22.     (action_tile "selectc" "(done_dialog 5)")
    
23.     (action_tile "accept" "(do)")
    
24.     (action_tile "cancel" "(done_dialog 0)")
    
25.     (setq signal (start_dialog))
    
26.     (if (= signal 2)
    
27.       (setq ob_list (SSGET "x" '((0 . "*TEXT"))))
    
28.     )
    
29.     (if (= signal 3)
    
30.       (command "zoom" "o" text_f "")
    
31.     )
    
32.     (if (= signal 4)
    
33.       (command "zoom" "o" text_f "")
    
34.     )
    
35.     (if (= signal 5)
    
36.       (command "zoom" "o" text_f "")
    
37.     )
    
38.   )
    
39.   
    
40. 
    
41.   (defun do()
    
42.     (cond
    
43.       ((= ob_list nil) (princ "\n未选择目标区域\n"))
    
44.       ((= text_f "") (princ "\n未输入目标字符\n"))
    
45.       ((= text_r "") (princ "\n未输入替代字符\n"))      
    
46.       ((and (and (/= ob_list nil) (/= text_r "")) (/= text_f ""))
    
47. 
    
48. (main))
    
49.     )
    
50.   )
    
51. 
    
52.   (defun main()
    
53.     (setq ob_number (sslength ob_list))
    
54.     (setq temp 1)      
    
55.     (setq total_o 0)
    
56.     (setq total_t 0)
    
57.     (repeat ob_number
    
58.         (setq text_code (entget (ssname ob_list (- temp 1))))
    
59.       (if
    
60.         (or (= "TEXT" (cdr (assoc 0 text_code)))
    
61.             (= "MTEXT" (cdr (assoc 0 text_code)))
    
62.         )
    
63.         (progn
    
64.           (setq text_o (cdr (assoc 1 (entget (ssname ob_list (- temp
    
65. 
    
66. 1))))))
    
67.           (setq text_e text_o)
    
68.           (setq text_h "")
    
69.           (setq length_e (strlen text_e))
    
70.           (setq length_f (strlen text_f))
    
71.           (while
    
72.             (and (<= length_f length_e) (/= length_e 0))
    
73.             (setq text_s (substr text_e 1 length_f))
    
74.             (if
    
75.         (= text_s text_f)
    
76.         (progn
    
77.           (setq text_h (strcat text_h text_r))
    
78.           (setq text_e (substr text_e (+ length_f 1)))
    
79.           (setq total_t (+ total_t 1))
    
80.         )
    
81.         (progn
    
82.           (setq text_s (substr text_e 1 1))
    
83.           (setq text_h (strcat text_h text_s))
    
84.           (setq text_e (substr text_e 2))
    
85.         )
    
86.                   )
    
87.             (setq length_e (strlen text_e))
    
88.           )
    
89.           (setq text_c (strcat text_h text_e))
    
90.           (if
    
91.             (/= text_c text_o)
    
92.             (progn
    
93.               (setq text_code (subst (cons 1 text_c) (assoc 1
    
94. 
    
95. text_code) text_code))
    
96.               (entmod text_code)
    
97.         (setq total_o (+ total_o 1))
    
98.             )        
    
99.           )
    
100.         )  
     
101.       )
     
102.       (setq temp (+ 1 temp))
     
103.     )
     
104.     (done_dialog 1)
     
105.   )
     
106. 
     
107.   
     
108.   (setq text_r "")
     
109.     (setq text_f "")
     
110.   (dcl)
     
111.   (while (= signal 2) (dcl))
     
112.     (if (/= signal 0)
     
113.     (progn      
     
114.       (princ "\n★★★欢迎使用--《開金工具箱》--★★★      共修改了
     
115. 
     
116. ")
     
117.       (princ total_t)
     
118.       (princ "个文字")
     
119.     )
     
120.   )  
     
121.   (unload_dialog dcl_flag)
     
122.   (prin1)
     
123. )
     

;查找/替换文字<br /> (defun c:KJ_WTH(/ msg_1 msg_2 dcl_file dcl_flag text_f text_r single ob_list ob_number <br /> <br /> temp text_code<br />       text_o text_e text_h length_e length_f total_o total_t text_s text_c)<br />      (setvar "cmdecho" 0) ;指令执行过程不响应<br />      (PRINC "\n【開金工具箱】---查找/替换文字功能")<br /> (princ "\n-->请框选要查找替换的区域.....")<br />   (defun dcl()<br />     (setq dcl_file "fr")<br />     (setq dcl_flag (load_dialog dcl_file))<br />     (if (< dcl_flag 0) (exit))<br />     (if (not (new_dialog "fr" dcl_flag)) (exit))<br />     (set_tile "text_find" text_f)<br />       (set_tile "text_replace" text_r)<br />     (action_tile "text_find" "(setq text_f $$$$$$$$$$$$$$$$value)")<br />       (action_tile "text_replace" "(setq text_r $$$$$$$$$$$$$$$$value)")<br />     (action_tile "select" "(done_dialog 2)")<br />     (action_tile "selecta" "(done_dialog 3)")<br />     (action_tile "selectb" "(done_dialog 4)")<br />     (action_tile "selectc" "(done_dialog 5)")<br />     (action_tile "accept" "(do)")<br />     (action_tile "cancel" "(done_dialog 0)")<br />     (setq signal (start_dialog))<br />     (if (= signal 2) <br />       (setq ob_list (SSGET "x" '((0 . "*TEXT"))))<br />     )<br />     (if (= signal 3) <br />       (command "zoom" "o" text_f "")<br />     )<br />     (if (= signal 4) <br />       (command "zoom" "o" text_f "")<br />     )<br />     (if (= signal 5) <br />       (command "zoom" "o" text_f "")<br />     )<br />   )<br />   <br /> <br />   (defun do()<br />     (cond <br />       ((= ob_list nil) (princ "\n未选择目标区域\n"))<br />       ((= text_f "") (princ "\n未输入目标字符\n"))<br />       ((= text_r "") (princ "\n未输入替代字符\n"))      <br />       ((and (and (/= ob_list nil) (/= text_r "")) (/= text_f "")) <br /> <br /> (main))<br />     )<br />   )<br /> <br />   (defun main()<br />     (setq ob_number (sslength ob_list))<br />     (setq temp 1)      <br />     (setq total_o 0)<br />     (setq total_t 0)<br />     (repeat ob_number<br />         (setq text_code (entget (ssname ob_list (- temp 1))))<br />       (if<br />         (or (= "TEXT" (cdr (assoc 0 text_code)))<br />             (= "MTEXT" (cdr (assoc 0 text_code)))<br />         )<br />         (progn<br />           (setq text_o (cdr (assoc 1 (entget (ssname ob_list (- temp <br /> <br /> 1))))))<br />           (setq text_e text_o)<br />           (setq text_h "")<br />           (setq length_e (strlen text_e))<br />           (setq length_f (strlen text_f))<br />           (while<br />             (and (<= length_f length_e) (/= length_e 0))<br />             (setq text_s (substr text_e 1 length_f))<br />             (if<br />         (= text_s text_f)<br />         (progn<br />           (setq text_h (strcat text_h text_r))<br />           (setq text_e (substr text_e (+ length_f 1)))<br />           (setq total_t (+ total_t 1))<br />         )<br />         (progn<br />           (setq text_s (substr text_e 1 1))<br />           (setq text_h (strcat text_h text_s))<br />           (setq text_e (substr text_e 2))<br />         )<br />                   )<br />             (setq length_e (strlen text_e))<br />           )<br />           (setq text_c (strcat text_h text_e))<br />           (if<br />             (/= text_c text_o)<br />             (progn<br />               (setq text_code (subst (cons 1 text_c) (assoc 1 <br /> <br /> text_code) text_code))<br />               (entmod text_code)<br />         (setq total_o (+ total_o 1))<br />             )        <br />           )<br />         )  <br />       )<br />       (setq temp (+ 1 temp))<br />     )<br />     (done_dialog 1)<br />   )<br /> <br />   <br />   (setq text_r "")<br />     (setq text_f "")<br />   (dcl)<br />   (while (= signal 2) (dcl))<br />     (if (/= signal 0)<br />     (progn      <br />       (princ "\n★★★欢迎使用--《開金工具箱》--★★★      共修改了<br /> <br /> ")<br />       (princ total_t)<br />       (princ "个文字")<br />     )<br />   )  <br />   (unload_dialog dcl_flag)<br />   (prin1)<br /> )<br />