求一简单的命令，文字A和B互换，请大家帮忙

zzc83

选择文字里面 B改成A  A改成B

夏生生

思路差不多，拿着改改吧

1. (DEFUN C:NN (/ ENT txt)
   
2.   (while (SETQ ENT (ENTGET (CAR (ENTSEL)))
   
3.                txt (CDR (ASSOC 1 ENT))
   
4.          )
   
5.     (if        (wcmatch txt "[AB]*")
   
6.       (if (vl-string-search "G" txt)
   
7.         (ENTMOD        (SUBST (CONS 1 (vl-string-subst "A" "B" txt))
   
8.                        (ASSOC 1 ENT)
   
9.                        ENT
   
10.                 )
    
11.         )
    
12.         (ENTMOD        (SUBST (CONS 1 (vl-string-subst "B" "A" txt))
    
13.                        (ASSOC 1 ENT)
    
14.                        ENT
    
15.                 )
    
16.         )
    
17.       )
    
18.       (princ "\n头字符非AB，请重新选择")
    
19.     )
    
20.   )
    
21.   (prin1)
    
22. )

复制代码

hao3ren

http://bbs.mjtd.com/thread-95287-1-1.html

zzc83

谢谢 夏生生，已经可以用了