文字加前後綴(視窗化)..好用小程序

JP6325

給需要的人使用...如有不周的地方..請給小弟批評指教,謝謝!!

lostbalance

感谢分享，好像挺好用的样子
另外，可以考虑增加多选功能

edata

1. defun c:tt2 nil
   
2.   ;(setvar "cmdecho" 0)
   
3.   (TET_DL2)
   
4.   (princ)
   
5. )
   
6. (defun TET_DL2(/ txt1 num1 txt2 en end_1 old_name new_name)
   
7.     (setq dcl_id (load_dialog "TET.dcl"))
   
8.     (new_dialog "tet" dcl_id)      
   
9.     (action_tile "accept" "(ok_KK)(done_dialog 1)")
   
10.      (setq dd(start_dialog))
    
11.       (if (= dd 1)
    
12.       (ok_ch2)
    
13.       )   
    
14.     (unload_dialog dcl_id)
    
15.   )
    
16. ;;------------------------------------------------
    
17. (defun ok_KK()
    
18.     (setq txt1 (get_tile "Text1"))   
    
19.     (setq txt2 (get_tile "Text2"))   
    
20.     (setq num1 (ATOF (get_tile "nume1") ))      
    
21.   );;;ok_ext
    
22. (defun ok_ch2()
    
23.   (princ "\n按顺序选择:")
    
24.    (if (setq ss(ssget '((0 . "*text"))))
    
25.        (while(setq en (ssname ss 0))      
    
26.        (setq en_1 (entget   en))
    
27.        (setq old_name (assoc 1 en_1))
    
28.    (cond
    
29.          ((AND (/= txt1 "")  (/= txt2 "") (/= num1 0.0))
    
30.            (setq new_name (strcat txt1 "-" (cdr old_name) "-" txt2 (RTOS num1 2) ))
    
31.            )         
    
32.          ((AND (/= txt1 "")(= txt2 "")(= num1 0.0))
    
33.           (setq        new_name (strcat txt1 "-" (cdr old_name) ))
    
34.            )        
    
35.           ((AND (= txt1 "") (/= txt2 "") (/= num1 0.0))
    
36.           (setq        new_name (strcat (cdr old_name) "-" TXT2 (RTOS num1 2) ))
    
37.          )
    
38.          ((AND (= txt1 "") (= txt2 "") (/= num1 0.0))
    
39.           (setq        new_name (strcat (cdr old_name) "-" (RTOS num1 2) ))
    
40.          )
    
41.          ((AND (= txt1 "") (/= txt2 "") (= num1 0.0))
    
42.           (setq        new_name (strcat (cdr old_name) "-" TXT2 ))
    
43.          )
    
44.    );;end cond
    
45.          (setq en_1 (subst (cons 1 new_name) (assoc 1 en_1) en_1))
    
46.          (entmod en_1)        
    
47.          (if (/= num1 0.0)
    
48.               (setq num1 (+ num1 1))
    
49.              )
    
50.          (setq ss(ssdel en ss))
    
51.     );;end while
    
52.      )
    
53.        (princ)   
    
54. )
    
55. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
56. (defun c:tet nil
    
57.   ;(setvar "cmdecho" 0)
    
58.   (TET_DL)
    
59.   (princ)
    
60. )
    
61. (defun TET_DL(/ txt1 num1 txt2 en end_1 old_name new_name)
    
62.     (setq dcl_id (load_dialog "TET.dcl"))
    
63.     (new_dialog "tet" dcl_id)      
    
64.     (action_tile "accept" "(ok_KK)(done_dialog 1)")
    
65.      (setq dd(start_dialog))
    
66.       (if (= dd 1)
    
67.       (ok_ch)
    
68.       )   
    
69.     (unload_dialog dcl_id)
    
70.   );;end TET_DL
    
71.   
    
72. ;;------------------------------------------------
    
73. (defun ok_ch()
    
74.    (while
    
75.       (setq en (entsel "\n 选取文字:"))
    
76.        (setq en_1 (entget (car en)))
    
77.        (setq old_name (assoc 1 en_1))
    
78.    (cond
    
79.          ((AND (/= txt1 "")  (/= txt2 "") (/= num1 0.0))
    
80.            (setq new_name (strcat txt1 "-" (cdr old_name) "-" txt2 (RTOS num1 2) ))
    
81.            )         
    
82.          ((AND (/= txt1 "")(= txt2 "")(= num1 0.0))
    
83.           (setq        new_name (strcat txt1 "-" (cdr old_name) ))
    
84.            )        
    
85.           ((AND (= txt1 "") (/= txt2 "") (/= num1 0.0))
    
86.           (setq        new_name (strcat (cdr old_name) "-" TXT2 (RTOS num1 2) ))
    
87.          )
    
88.          ((AND (= txt1 "") (= txt2 "") (/= num1 0.0))
    
89.           (setq        new_name (strcat (cdr old_name) "-" (RTOS num1 2) ))
    
90.          )
    
91.          ((AND (= txt1 "") (/= txt2 "") (= num1 0.0))
    
92.           (setq        new_name (strcat (cdr old_name) "-" TXT2 ))
    
93.          )
    
94.    );;end cond
    
95.          (setq en_1 (subst (cons 1 new_name) (assoc 1 en_1) en_1))
    
96.          (entmod en_1)        
    
97.          (if (/= num1 0.0)
    
98.               (setq num1 (+ num1 1))
    
99.              )                  
    
100.     );;end while
     
101.        (princ)   
     
102. );;end ok_ch
     

defun c:tt2 nil<br />   ;(setvar "cmdecho" 0)<br />   (TET_DL2)<br />   (princ)<br /> )<br /> (defun TET_DL2(/ txt1 num1 txt2 en end_1 old_name new_name)<br />     (setq dcl_id (load_dialog "TET.dcl"))<br />     (new_dialog "tet" dcl_id)       <br />     (action_tile "accept" "(ok_KK)(done_dialog 1)")<br />      (setq dd(start_dialog))<br />       (if (= dd 1)<br />       (ok_ch2)<br />       )    <br />     (unload_dialog dcl_id)<br />   )<br /> ;;------------------------------------------------<br /> (defun ok_KK()<br />     (setq txt1 (get_tile "Text1"))    <br />     (setq txt2 (get_tile "Text2"))   <br />     (setq num1 (ATOF (get_tile "nume1") ))       <br />   );;;ok_ext<br /> (defun ok_ch2()<br />   (princ "\n按顺序选择:")<br />    (if (setq ss(ssget '((0 . "*text"))))<br />        (while(setq en (ssname ss 0))      <br />        (setq en_1 (entget   en))<br />        (setq old_name (assoc 1 en_1))<br />    (cond <br />          ((AND (/= txt1 "")  (/= txt2 "") (/= num1 0.0))<br />            (setq new_name (strcat txt1 "-" (cdr old_name) "-" txt2 (RTOS num1 2) ))<br />            )          <br />          ((AND (/= txt1 "")(= txt2 "")(= num1 0.0))<br />           (setq        new_name (strcat txt1 "-" (cdr old_name) ))<br />            )        <br />           ((AND (= txt1 "") (/= txt2 "") (/= num1 0.0))<br />           (setq        new_name (strcat (cdr old_name) "-" TXT2 (RTOS num1 2) ))<br />          )<br />          ((AND (= txt1 "") (= txt2 "") (/= num1 0.0))<br />           (setq        new_name (strcat (cdr old_name) "-" (RTOS num1 2) ))<br />          )<br />          ((AND (= txt1 "") (/= txt2 "") (= num1 0.0))<br />           (setq        new_name (strcat (cdr old_name) "-" TXT2 ))<br />          )<br />    );;end cond<br />          (setq en_1 (subst (cons 1 new_name) (assoc 1 en_1) en_1))<br />          (entmod en_1)        <br />          (if (/= num1 0.0)<br />               (setq num1 (+ num1 1))<br />              )<br />          (setq ss(ssdel en ss))<br />     );;end while<br />      )<br />        (princ)   <br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> (defun c:tet nil<br />   ;(setvar "cmdecho" 0)<br />   (TET_DL)<br />   (princ)<br /> )<br /> (defun TET_DL(/ txt1 num1 txt2 en end_1 old_name new_name)<br />     (setq dcl_id (load_dialog "TET.dcl"))<br />     (new_dialog "tet" dcl_id)       <br />     (action_tile "accept" "(ok_KK)(done_dialog 1)")<br />      (setq dd(start_dialog))<br />       (if (= dd 1)<br />       (ok_ch)<br />       )    <br />     (unload_dialog dcl_id)<br />   );;end TET_DL<br />   <br /> ;;------------------------------------------------<br /> (defun ok_ch()<br />    (while<br />       (setq en (entsel "\n 选取文字:"))<br />        (setq en_1 (entget (car en)))<br />        (setq old_name (assoc 1 en_1))<br />    (cond <br />          ((AND (/= txt1 "")  (/= txt2 "") (/= num1 0.0))<br />            (setq new_name (strcat txt1 "-" (cdr old_name) "-" txt2 (RTOS num1 2) ))<br />            )          <br />          ((AND (/= txt1 "")(= txt2 "")(= num1 0.0))<br />           (setq        new_name (strcat txt1 "-" (cdr old_name) ))<br />            )        <br />           ((AND (= txt1 "") (/= txt2 "") (/= num1 0.0))<br />           (setq        new_name (strcat (cdr old_name) "-" TXT2 (RTOS num1 2) ))<br />          )<br />          ((AND (= txt1 "") (= txt2 "") (/= num1 0.0))<br />           (setq        new_name (strcat (cdr old_name) "-" (RTOS num1 2) ))<br />          )<br />          ((AND (= txt1 "") (/= txt2 "") (= num1 0.0))<br />           (setq        new_name (strcat (cdr old_name) "-" TXT2 ))<br />          )<br />    );;end cond<br />          (setq en_1 (subst (cons 1 new_name) (assoc 1 en_1) en_1))<br />          (entmod en_1)        <br />          (if (/= num1 0.0)<br />               (setq num1 (+ num1 1))<br />              )                   <br />     );;end while<br />        (princ)   <br /> );;end ok_ch<br />

====================================

1. tet:dialog
   
2. {
   
3. label = "文字加前后缀";  
   
4.     :boxed_column
   
5.     {
   
6.      label = "前缀:" ;
   
7.      fixed_width = true ;
   
8.      width = 10 ;
   
9.         :edit_box
   
10.         {
    
11.             key = "Text1";
    
12.             label = " 前缀英文或英数字:" ;
    
13.             width = 8 ;
    
14.             height = 1 ;
    
15.             fixed_width = true ;            
    
16.         }        
    
17.         spacer_1;
    
18.     }   
    
19.     :boxed_column
    
20.     {
    
21.     label = "后缀:" ;
    
22.     fixed_width = true ;
    
23.     width = 10 ;
    
24.         :edit_box
    
25.         {
    
26.             key = "Text2";
    
27.             label = "                后缀英文:" ;
    
28.             width = 8 ;
    
29.             height = 1 ;
    
30.             fixed_width = true ;
    
31.         }
    
32.         :edit_box
    
33.         {
    
34.             key = "nume1";
    
35.             label = "                后缀数字:" ;
    
36.             width = 8 ;
    
37.             height = 1 ;
    
38.             fixed_width = true ;
    
39.         }
    
40.         spacer_1;
    
41.     }
    
42.     spacer_1;
    
43.     :text
    
44.     {
    
45.         key = "Label3" ;
    
46.         value = "说明:您可加前后缀,或者只加前缀,或者只加后缀, 三种摸式" ;
    
47.         fixed_width = true ;
    
48.         fixed_height = true ;
    
49.         width = 30 ;
    
50.         height = 3 ;      
    
51.     }
    
52. ok_cancel ;
    
53. }
    

tet:dialog<br /> {<br /> label = "文字加前后缀";  <br />     :boxed_column<br />     {<br />      label = "前缀:" ;<br />      fixed_width = true ;<br />      width = 10 ;<br />         :edit_box<br />         {<br />             key = "Text1";<br />             label = " 前缀英文或英数字:" ;<br />             width = 8 ;<br />             height = 1 ;<br />             fixed_width = true ;            <br />         }        <br />         spacer_1; <br />     }    <br />     :boxed_column<br />     {<br />     label = "后缀:" ;<br />     fixed_width = true ;<br />     width = 10 ;<br />         :edit_box<br />         {<br />             key = "Text2";<br />             label = "                后缀英文:" ;<br />             width = 8 ;<br />             height = 1 ;<br />             fixed_width = true ;<br />         }<br />         :edit_box<br />         {<br />             key = "nume1";<br />             label = "                后缀数字:" ;<br />             width = 8 ;<br />             height = 1 ;<br />             fixed_width = true ;<br />         }<br />         spacer_1; <br />     }<br />     spacer_1; <br />     :text<br />     {<br />         key = "Label3" ;<br />         value = "说明:您可加前后缀,或者只加前缀,或者只加后缀, 三种摸式" ;<br />         fixed_width = true ;<br />         fixed_height = true ;<br />         width = 30 ;<br />         height = 3 ;       <br />     }<br /> ok_cancel ;<br /> }<br />

sachindkini

edata 发表于 2014-1-6 17:55
====================================

; error: no function definition: TET_DL2

edata

sachindkini 发表于 2014-1-6 20:50
; error: no function definition: TET_DL2

less a "("

2. 
   
3. 
   
4. (defun c:tt2 nil
   
5. 
   
6.   ;(setvar "cmdecho" 0)
   
7. 
   
8.   (TET_DL2)
   
9. 
   
10.   (princ)
    
11. 
    
12. )
    
13. 
    
14. (defun TET_DL2(/ txt1 num1 txt2 en end_1 old_name new_name)
    
15. 
    
16.     (setq dcl_id (load_dialog "TET.dcl"))
    
17. 
    
18.     (new_dialog "tet" dcl_id)      
    
19. 
    
20.     (action_tile "accept" "(ok_KK)(done_dialog 1)")
    
21. 
    
22.      (setq dd(start_dialog))
    
23. 
    
24.       (if (= dd 1)
    
25. 
    
26.       (ok_ch2)
    
27. 
    
28.       )   
    
29. 
    
30.     (unload_dialog dcl_id)
    
31. 
    
32.   )
    
33. 
    
34. ;;------------------------------------------------
    
35. 
    
36. (defun ok_KK()
    
37. 
    
38.     (setq txt1 (get_tile "Text1"))   
    
39. 
    
40.     (setq txt2 (get_tile "Text2"))   
    
41. 
    
42.     (setq num1 (ATOF (get_tile "nume1") ))      
    
43. 
    
44.   );;;ok_ext
    
45. 
    
46. (defun ok_ch2()
    
47. 
    
48.   (princ "\n按顺序选择:")
    
49. 
    
50.    (if (setq ss(ssget '((0 . "*text"))))
    
51. 
    
52.        (while(setq en (ssname ss 0))      
    
53. 
    
54.        (setq en_1 (entget   en))
    
55. 
    
56.        (setq old_name (assoc 1 en_1))
    
57. 
    
58.    (cond
    
59. 
    
60.          ((AND (/= txt1 "")  (/= txt2 "") (/= num1 0.0))
    
61. 
    
62.            (setq new_name (strcat txt1 "-" (cdr old_name) "-" txt2 (RTOS num1 2) ))
    
63. 
    
64.            )         
    
65. 
    
66.          ((AND (/= txt1 "")(= txt2 "")(= num1 0.0))
    
67. 
    
68.           (setq        new_name (strcat txt1 "-" (cdr old_name) ))
    
69. 
    
70.            )        
    
71. 
    
72.           ((AND (= txt1 "") (/= txt2 "") (/= num1 0.0))
    
73. 
    
74.           (setq        new_name (strcat (cdr old_name) "-" TXT2 (RTOS num1 2) ))
    
75. 
    
76.          )
    
77. 
    
78.          ((AND (= txt1 "") (= txt2 "") (/= num1 0.0))
    
79. 
    
80.           (setq        new_name (strcat (cdr old_name) "-" (RTOS num1 2) ))
    
81. 
    
82.          )
    
83. 
    
84.          ((AND (= txt1 "") (/= txt2 "") (= num1 0.0))
    
85. 
    
86.           (setq        new_name (strcat (cdr old_name) "-" TXT2 ))
    
87. 
    
88.          )
    
89. 
    
90.    );;end cond
    
91. 
    
92.          (setq en_1 (subst (cons 1 new_name) (assoc 1 en_1) en_1))
    
93. 
    
94.          (entmod en_1)        
    
95. 
    
96.          (if (/= num1 0.0)
    
97. 
    
98.               (setq num1 (+ num1 1))
    
99. 
    
100.              )
     
101. 
     
102.          (setq ss(ssdel en ss))
     
103. 
     
104.     );;end while
     
105. 
     
106.      )
     
107. 
     
108.        (princ)   
     
109. 
     
110. )
     
111. 
     
112. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
113. 
     
114. (defun c:tet nil
     
115. 
     
116.   ;(setvar "cmdecho" 0)
     
117. 
     
118.   (TET_DL)
     
119. 
     
120.   (princ)
     
121. 
     
122. )
     
123. 
     
124. (defun TET_DL(/ txt1 num1 txt2 en end_1 old_name new_name)
     
125. 
     
126.     (setq dcl_id (load_dialog "TET.dcl"))
     
127. 
     
128.     (new_dialog "tet" dcl_id)      
     
129. 
     
130.     (action_tile "accept" "(ok_KK)(done_dialog 1)")
     
131. 
     
132.      (setq dd(start_dialog))
     
133. 
     
134.       (if (= dd 1)
     
135. 
     
136.       (ok_ch)
     
137. 
     
138.       )   
     
139. 
     
140.     (unload_dialog dcl_id)
     
141. 
     
142.   );;end TET_DL
     
143. 
     
144.   
     
145. 
     
146. ;;------------------------------------------------
     
147. 
     
148. (defun ok_ch()
     
149. 
     
150.    (while
     
151. 
     
152.       (setq en (entsel "\n 选取文字:"))
     
153. 
     
154.        (setq en_1 (entget (car en)))
     
155. 
     
156.        (setq old_name (assoc 1 en_1))
     
157. 
     
158.    (cond
     
159. 
     
160.          ((AND (/= txt1 "")  (/= txt2 "") (/= num1 0.0))
     
161. 
     
162.            (setq new_name (strcat txt1 "-" (cdr old_name) "-" txt2 (RTOS num1 2) ))
     
163. 
     
164.            )         
     
165. 
     
166.          ((AND (/= txt1 "")(= txt2 "")(= num1 0.0))
     
167. 
     
168.           (setq        new_name (strcat txt1 "-" (cdr old_name) ))
     
169. 
     
170.            )        
     
171. 
     
172.           ((AND (= txt1 "") (/= txt2 "") (/= num1 0.0))
     
173. 
     
174.           (setq        new_name (strcat (cdr old_name) "-" TXT2 (RTOS num1 2) ))
     
175. 
     
176.          )
     
177. 
     
178.          ((AND (= txt1 "") (= txt2 "") (/= num1 0.0))
     
179. 
     
180.           (setq        new_name (strcat (cdr old_name) "-" (RTOS num1 2) ))
     
181. 
     
182.          )
     
183. 
     
184.          ((AND (= txt1 "") (/= txt2 "") (= num1 0.0))
     
185. 
     
186.           (setq        new_name (strcat (cdr old_name) "-" TXT2 ))
     
187. 
     
188.          )
     
189. 
     
190.    );;end cond
     
191. 
     
192.          (setq en_1 (subst (cons 1 new_name) (assoc 1 en_1) en_1))
     
193. 
     
194.          (entmod en_1)        
     
195. 
     
196.          (if (/= num1 0.0)
     
197. 
     
198.               (setq num1 (+ num1 1))
     
199. 
     
200.              )                  
     
201. 
     
202.     );;end while
     
203. 
     
204.        (princ)   
     
205. 
     
206. );;end ok_ch

<br /> <br /> (defun c:tt2 nil<br /> <br />   ;(setvar "cmdecho" 0)<br /> <br />   (TET_DL2)<br /> <br />   (princ)<br /> <br /> )<br /> <br /> (defun TET_DL2(/ txt1 num1 txt2 en end_1 old_name new_name)<br /> <br />     (setq dcl_id (load_dialog "TET.dcl"))<br /> <br />     (new_dialog "tet" dcl_id)       <br /> <br />     (action_tile "accept" "(ok_KK)(done_dialog 1)")<br /> <br />      (setq dd(start_dialog))<br /> <br />       (if (= dd 1)<br /> <br />       (ok_ch2)<br /> <br />       )    <br /> <br />     (unload_dialog dcl_id)<br /> <br />   )<br /> <br /> ;;------------------------------------------------<br /> <br /> (defun ok_KK()<br /> <br />     (setq txt1 (get_tile "Text1"))    <br /> <br />     (setq txt2 (get_tile "Text2"))   <br /> <br />     (setq num1 (ATOF (get_tile "nume1") ))       <br /> <br />   );;;ok_ext<br /> <br /> (defun ok_ch2()<br /> <br />   (princ "\n按顺序选择:")<br /> <br />    (if (setq ss(ssget '((0 . "*text"))))<br /> <br />        (while(setq en (ssname ss 0))      <br /> <br />        (setq en_1 (entget   en))<br /> <br />        (setq old_name (assoc 1 en_1))<br /> <br />    (cond <br /> <br />          ((AND (/= txt1 "")  (/= txt2 "") (/= num1 0.0))<br /> <br />            (setq new_name (strcat txt1 "-" (cdr old_name) "-" txt2 (RTOS num1 2) ))<br /> <br />            )          <br /> <br />          ((AND (/= txt1 "")(= txt2 "")(= num1 0.0))<br /> <br />           (setq        new_name (strcat txt1 "-" (cdr old_name) ))<br /> <br />            )        <br /> <br />           ((AND (= txt1 "") (/= txt2 "") (/= num1 0.0))<br /> <br />           (setq        new_name (strcat (cdr old_name) "-" TXT2 (RTOS num1 2) ))<br /> <br />          )<br /> <br />          ((AND (= txt1 "") (= txt2 "") (/= num1 0.0))<br /> <br />           (setq        new_name (strcat (cdr old_name) "-" (RTOS num1 2) ))<br /> <br />          )<br /> <br />          ((AND (= txt1 "") (/= txt2 "") (= num1 0.0))<br /> <br />           (setq        new_name (strcat (cdr old_name) "-" TXT2 ))<br /> <br />          )<br /> <br />    );;end cond<br /> <br />          (setq en_1 (subst (cons 1 new_name) (assoc 1 en_1) en_1))<br /> <br />          (entmod en_1)        <br /> <br />          (if (/= num1 0.0)<br /> <br />               (setq num1 (+ num1 1))<br /> <br />              )<br /> <br />          (setq ss(ssdel en ss))<br /> <br />     );;end while<br /> <br />      )<br /> <br />        (princ)   <br /> <br /> )<br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> <br /> (defun c:tet nil<br /> <br />   ;(setvar "cmdecho" 0)<br /> <br />   (TET_DL)<br /> <br />   (princ)<br /> <br /> )<br /> <br /> (defun TET_DL(/ txt1 num1 txt2 en end_1 old_name new_name)<br /> <br />     (setq dcl_id (load_dialog "TET.dcl"))<br /> <br />     (new_dialog "tet" dcl_id)       <br /> <br />     (action_tile "accept" "(ok_KK)(done_dialog 1)")<br /> <br />      (setq dd(start_dialog))<br /> <br />       (if (= dd 1)<br /> <br />       (ok_ch)<br /> <br />       )    <br /> <br />     (unload_dialog dcl_id)<br /> <br />   );;end TET_DL<br /> <br />   <br /> <br /> ;;------------------------------------------------<br /> <br /> (defun ok_ch()<br /> <br />    (while<br /> <br />       (setq en (entsel "\n 选取文字:"))<br /> <br />        (setq en_1 (entget (car en)))<br /> <br />        (setq old_name (assoc 1 en_1))<br /> <br />    (cond <br /> <br />          ((AND (/= txt1 "")  (/= txt2 "") (/= num1 0.0))<br /> <br />            (setq new_name (strcat txt1 "-" (cdr old_name) "-" txt2 (RTOS num1 2) ))<br /> <br />            )          <br /> <br />          ((AND (/= txt1 "")(= txt2 "")(= num1 0.0))<br /> <br />           (setq        new_name (strcat txt1 "-" (cdr old_name) ))<br /> <br />            )        <br /> <br />           ((AND (= txt1 "") (/= txt2 "") (/= num1 0.0))<br /> <br />           (setq        new_name (strcat (cdr old_name) "-" TXT2 (RTOS num1 2) ))<br /> <br />          )<br /> <br />          ((AND (= txt1 "") (= txt2 "") (/= num1 0.0))<br /> <br />           (setq        new_name (strcat (cdr old_name) "-" (RTOS num1 2) ))<br /> <br />          )<br /> <br />          ((AND (= txt1 "") (/= txt2 "") (= num1 0.0))<br /> <br />           (setq        new_name (strcat (cdr old_name) "-" TXT2 ))<br /> <br />          )<br /> <br />    );;end cond<br /> <br />          (setq en_1 (subst (cons 1 new_name) (assoc 1 en_1) en_1))<br /> <br />          (entmod en_1)        <br /> <br />          (if (/= num1 0.0)<br /> <br />               (setq num1 (+ num1 1))<br /> <br />              )                   <br /> <br />     );;end while<br /> <br />        (princ)   <br /> <br /> );;end ok_ch

longer1000

批量操作才是王道

MENGZE

楼主，程序很好，要做到加减前缀后缀都可以，这样进退自由想加就加想减就减，毕竟在工作需要中编辑文字没有固定式（不可能只加不减），框选批量修改才好，我看了你的截图，我想了想一个一的点文字多的话要到什么时候？希望楼主再接再厉完善程序，为在一线绘图的绘图员造福！！！！！

773786668

刚看到，不知道能不能添加文字或者特殊符号，先顶！了

paulpipi

批量操作才是王道