文字替换

小师傅

请问各位前辈，我有数据“100+300 JK 100X300 ML"要怎样才能一次性替换成“ 300+100 JK 300X100 NT"?我学习了很多大侠的贴子，但是目前只能一次替换一个数据，比如，第一次替换为“300+100 JK 100X300 ML",第二次替换为“300+100 JK 300X100 ML".第三次替换为”300+100 JK 300X100 NT".我用ssget选择数据第一次替换后，生成了新的数据，我又要用ssget再次选择，请问要怎样才能将替换一次性完成呢？？？？？

fl202

为何不能多次替换？

又或者不替换，直接抽取原数据内文字，组成新的文字即可。

小师傅

fl202 发表于 2015-7-22 08:51
为何不能多次替换？

又或者不替换，直接抽取原数据内文字，组成新的文字即可。

是这样的 每个数据都会有不一样，有多种组合，我也想多次替换，可我第一次用(setq ss(ssget '((0 . "*text") (1 . "*ML*"))))选择替换后，第二次我用(command "select" SS "")
(setq ss3 (ssget "_p" '((0 . "*TEXT") (1 . "*+*"))))就不能选择第一次替换生成的新数据了，我尝试用 （setq s0(entlast))
.....
(while (setq s0 (entnext s0))
    (setq ss (ssadd s0 ss))
  )把替换后生成的数据加入到选择集又不成功，请大师指教

edata

(defun c:tt()
  (setq str "100+300 JK 100X300 ML")
  (setq str(vl-string-subst "300+100" "100+300" str ))
  (setq str(vl-string-subst "300X100" "100X300" str ))
  (setq str(vl-string-subst "NT" "ML" str ))
  )

小师傅

edata 发表于 2015-7-22 12:09
(defun c:tt()
  (setq str "100+300 JK 100X300 ML")
  (setq str(vl-string-subst "300+100" "100+300" ...

请edata帮我看看像附件里的这种情况，有时有几百个数据，怎样一次性替换呢,"X"前后数据互换，"+"前后数据互换，"ML"替换为“NT”,“NT”替换为“ML”,多谢

edata

1. ;;X,+,nt,ml文本交换
   
2. ;;by edata @mjtd 2015-7-22
   
3. (defun c:tt(/ elist en new_str ss str)
   
4.   (princ "\n选择包含X,+,nt,ml的文本")
   
5.   (if(setq ss(ssget '((0 . "text")(1 . "*+*,*X*,*NT*,*ML*"))))
   
6.     (while (setq en (ssname ss 0))
   
7.       (setq elist(entget en))
   
8.       (setq str(cdr(assoc 1 elist)))
   
9.       (setq new_str (sk_change_str str))
   
10.       (entmod(subst(cons 1 new_str)(assoc 1 elist)elist))      
    
11.       (setq ss(ssdel en ss))
    
12.       )
    
13.     )
    
14.   (princ)
    
15.   )
    
16. ;;X,+,nt,ml字符交换
    
17. (defun sk_change_str (str / i lst s  str1 a lst+ lstnt lstx str+ strx)  
    
18.   (setq lst (sk_brstr str " ") str1 "")  
    
19.   (while(setq a(car lst))
    
20.     (cond
    
21.       ((wcmatch a "*X*")
    
22.        (setq lstx(sk_brstr a "X"))
    
23.        (setq strx(strcat (cadr lstx) "X" (car lstx)))
    
24.        (setq str1(strcat str1 " " strx))
    
25.        )
    
26.       ((wcmatch a "*+*")
    
27.        (setq lst+(sk_brstr a "+"))
    
28.        (setq str+(strcat (cadr lst+) "+" (car lst+)))
    
29.        (setq str1(strcat str1 " " str+))
    
30.        )
    
31.       ((wcmatch a "*NT*")
    
32.        (setq lstnt(vl-string-subst "ML" "NT"  a ))      
    
33.        (setq str1(strcat str1 " " lstnt))
    
34.        )
    
35.       ((wcmatch a "*ML*")
    
36.        (setq lstnt(vl-string-subst "NT" "ML"   a ))      
    
37.        (setq str1(strcat str1 " " lstnt))
    
38.        )
    
39.       (t  (setq str1(strcat str1 (if (/= str1 "") " " "") a)))
    
40.       )      
    
41.     (setq lst(cdr lst))
    
42.     )
    
43.   (if (/= str1 "") str1 nil)
    
44. )
    
45. ;;字符串分割by edata
    
46. (defun sk_brstr        (str br / I LST S STR1)
    
47.   (setq        i 0
    
48.         lst '()
    
49.         str1 ""
    
50.   )
    
51.   (while (and (setq s (substr str (setq i (1+ i)) 1)) (/= s ""))
    
52.     (if        (/= s br)
    
53.       (setq str1 (strcat str1 s))
    
54.       (if (/= str1 "")
    
55.         (setq lst  (cons str1 lst)
    
56.               str1 ""
    
57.         )
    
58.       )
    
59.     )
    
60.   )
    
61.   (if (/= str1 "")
    
62.     (setq lst  (cons str1 lst)
    
63.           str1 ""
    
64.     )
    
65.   )
    
66.   (setq lst (reverse lst))
    
67. )
    
68. (vl-load-com)
    
69. (princ)

;;X,+,nt,ml文本交换<br /> ;;by edata @mjtd 2015-7-22 <br /> (defun c:tt(/ elist en new_str ss str)<br />   (princ "\n选择包含X,+,nt,ml的文本")<br />   (if(setq ss(ssget '((0 . "text")(1 . "*+*,*X*,*NT*,*ML*"))))<br />     (while (setq en (ssname ss 0))<br />       (setq elist(entget en))<br />       (setq str(cdr(assoc 1 elist)))<br />       (setq new_str (sk_change_str str))<br />       (entmod(subst(cons 1 new_str)(assoc 1 elist)elist))      <br />       (setq ss(ssdel en ss))<br />       )<br />     )<br />   (princ)<br />   )<br /> ;;X,+,nt,ml字符交换<br /> (defun sk_change_str (str / i lst s  str1 a lst+ lstnt lstx str+ strx)  <br />   (setq lst (sk_brstr str " ") str1 "")  <br />   (while(setq a(car lst))<br />     (cond<br />       ((wcmatch a "*X*")<br />        (setq lstx(sk_brstr a "X"))<br />        (setq strx(strcat (cadr lstx) "X" (car lstx)))<br />        (setq str1(strcat str1 " " strx))<br />        )<br />       ((wcmatch a "*+*")<br />        (setq lst+(sk_brstr a "+"))<br />        (setq str+(strcat (cadr lst+) "+" (car lst+)))<br />        (setq str1(strcat str1 " " str+))<br />        )<br />       ((wcmatch a "*NT*")<br />        (setq lstnt(vl-string-subst "ML" "NT"  a ))       <br />        (setq str1(strcat str1 " " lstnt))<br />        )<br />       ((wcmatch a "*ML*")<br />        (setq lstnt(vl-string-subst "NT" "ML"   a ))       <br />        (setq str1(strcat str1 " " lstnt))<br />        )<br />       (t  (setq str1(strcat str1 (if (/= str1 "") " " "") a)))<br />       )       <br />     (setq lst(cdr lst))<br />     )<br />   (if (/= str1 "") str1 nil)<br /> )<br /> ;;字符串分割by edata <br /> (defun sk_brstr        (str br / I LST S STR1)<br />   (setq        i 0<br />         lst '()<br />         str1 ""<br />   )<br />   (while (and (setq s (substr str (setq i (1+ i)) 1)) (/= s ""))<br />     (if        (/= s br)<br />       (setq str1 (strcat str1 s))<br />       (if (/= str1 "")<br />         (setq lst  (cons str1 lst)<br />               str1 ""<br />         )<br />       )<br />     )<br />   )<br />   (if (/= str1 "")<br />     (setq lst  (cons str1 lst)<br />           str1 ""<br />     )<br />   )<br />   (setq lst (reverse lst))<br /> )<br /> (vl-load-com)<br /> (princ)

lucas_3333

edata 发表于 2015-7-22 17:00

虽然此主题感觉是乱来, 通用性不强,
但是E大写出了一个通用性的程序 ,
思路清晰, 结构清晰! 非常值得学习
让我等望尘莫及.....

lucas_3333

edata 发表于 2015-7-22 17:00

我也来凑凑热闹, 没有E大的做参考, 我是整不出来的, 再次感谢E大!

1. (defun c:tt2(/ _swaptext ss en elist str)
   
2. (defun _swaptext ( strobj / patlist str len pos)
   
3.   (setq str strobj patlist '("###X###" "###+###"))
   
4.   (mapcar '(lambda (pat / match)
   
5.       (if (wcmatch str (strcat "*" pat "*"))
   
6.         (setq len (strlen str) pos (1+ (vl-string-position (ascii (substr pat 4 1)) str))
   
7.        str (vl-string-subst
   
8.       (strcat (substr str (1+ pos) 3) (substr str pos 1) (substr str (- pos 3) 3) )
   
9.       (substr str (- pos 3) 7)  str )))) patlist)
   
10.   (cond
    
11.     ((wcmatch str "*NT*")(setq str (vl-string-subst "ML" "NT" str)))
    
12.     ((wcmatch str "*ML*")(setq str (vl-string-subst "NT" "ML" str))))
    
13.   str
    
14. );;end_swaptext
    
15. (if(setq ss (ssget "x" '((0 . "TEXT"))))
    
16.    (while (setq en (ssname ss 0))
    
17.         (setq elist(entget en))
    
18.         (setq str(cdr(assoc 1 elist)))
    
19.         (setq elist (subst (cons 1 (_swaptext str)) (assoc 1 elist) elist))
    
20.         (entmod elist)
    
21.         (setq ss(ssdel en ss))
    
22.    );;end_while
    
23.   );;end_if
    
24. (princ)
    
25. );;end_defun

(defun c:tt2(/ _swaptext ss en elist str)<br /> (defun _swaptext ( strobj / patlist str len pos)<br />   (setq str strobj patlist '("###X###" "###+###"))<br />   (mapcar '(lambda (pat / match)<br />       (if (wcmatch str (strcat "*" pat "*"))<br />         (setq len (strlen str) pos (1+ (vl-string-position (ascii (substr pat 4 1)) str))<br />        str (vl-string-subst<br />       (strcat (substr str (1+ pos) 3) (substr str pos 1) (substr str (- pos 3) 3) )<br />       (substr str (- pos 3) 7)  str )))) patlist)<br />   (cond<br />     ((wcmatch str "*NT*")(setq str (vl-string-subst "ML" "NT" str)))<br />     ((wcmatch str "*ML*")(setq str (vl-string-subst "NT" "ML" str))))<br />   str<br /> );;end_swaptext<br /> (if(setq ss (ssget "x" '((0 . "TEXT"))))<br />    (while (setq en (ssname ss 0))<br />         (setq elist(entget en))<br />         (setq str(cdr(assoc 1 elist)))<br />         (setq elist (subst (cons 1 (_swaptext str)) (assoc 1 elist) elist))<br />         (entmod elist)<br />         (setq ss(ssdel en ss))<br />    );;end_while <br />   );;end_if<br /> (princ)<br /> );;end_defun

lucas_3333

惭愧，大侠不敢当，菜鸟一枚，问题解决了,网页右边有个黄色的按钮，将此题状态置为已解决吧。

xyp1964