请高手相助！选择含分号的字符串，将分号“;”前后的文字互换

xuzhigangrene

如题！
如：B4f22;T3f20变成T3f20;B4f22

nzl1116

2. (defun AYL-ssClist (ss / EnLst n)
   
3.   (setq EnLst nil)
   
4.   (repeat (setq n (sslength ss))
   
5.     (setq EnLst (cons (ssname ss (setq n (1- n))) EnLst))
   
6.   )
   
7. )
   
8. (defun AYL-UMString (String Sustr / StrLst n Sustr0)
   
9.   (setq StrLst nil)
   
10.   (while (setq n (vl-string-search Sustr String))
    
11.     (setq Sustr0 (substr String 1 n)
    
12.           String (substr String (+ n (strlen Sustr) 1))
    
13.           StrLst (cons Sustr (cons Sustr0 StrLst))
    
14.     )
    
15.   )
    
16.   (apply 'strcat (cons String StrLst))
    
17. )
    
18. (defun c:tt (/ EntLst)
    
19.   (if (setq ss (ssget '((0 . "*Text"))))
    
20.     (progn
    
21.       (setq EntLst (AYL-ssClist ss)
    
22.             ss           nil
    
23.       )
    
24.       (mapcar
    
25.         (function
    
26.           (lambda (x / a b)
    
27.             (setq a (entget x)
    
28.                   b (assoc 1 a)
    
29.             )
    
30.             (entmod (subst (cons 1 (AYL-UMString (cdr b) ";")) b a))
    
31.           )
    
32.         )
    
33.         EntLst
    
34.       )
    
35.     )
    
36.   )
    
37.   (princ)
    
38. )

(defun AYL-ssClist (ss / EnLst n)<br />   (setq EnLst nil)<br />   (repeat (setq n (sslength ss))<br />     (setq EnLst (cons (ssname ss (setq n (1- n))) EnLst))<br />   )<br /> )<br /> (defun AYL-UMString (String Sustr / StrLst n Sustr0)<br />   (setq StrLst nil)<br />   (while (setq n (vl-string-search Sustr String))<br />     (setq Sustr0 (substr String 1 n)<br />           String (substr String (+ n (strlen Sustr) 1))<br />           StrLst (cons Sustr (cons Sustr0 StrLst))<br />     )<br />   )<br />   (apply 'strcat (cons String StrLst))<br /> )<br /> (defun c:tt (/ EntLst)<br />   (if (setq ss (ssget '((0 . "*Text"))))<br />     (progn<br />       (setq EntLst (AYL-ssClist ss)<br />             ss           nil<br />       )<br />       (mapcar<br />         (function<br />           (lambda (x / a b)<br />             (setq a (entget x)<br />                   b (assoc 1 a)<br />             )<br />             (entmod (subst (cons 1 (AYL-UMString (cdr b) ";")) b a))<br />           )<br />         )<br />         EntLst<br />       )<br />     )<br />   )<br />   (princ)<br /> )

xuzhigangrene

这个插件不好弄吗？各位大神帮帮忙吧~

xuzhigangrene

nzl1116 发表于 2013-6-26 19:20

很好用，满足了我的要求

yoyoho

nzl1116 发表于 2013-6-25 16:40

感謝 nzl1116 分享程序!