主用、备用互相替换

zhengchuan

能否框选文字（单行和多行），将文字中的主用两个字改成备用，同时将备用两个字改成主用呢？

张和平

额，，，做工作不能这么懒的哦，，你先把主用替换成主*用，然后把备用替换成主用，然后把主*用替换成备用，就好了么，，，

lengyunfeng

程序如下:

2. (defun c:zbth (/)
   
3.   (setq os (getvar "osmode"))
   
4.   (setvar "osmode" 0)
   
5.   (setvar "cmdecho" 0)
   
6.   (princ "\n请选择要替换的文字对象:")
   
7.   (setq obj (ssget))
   
8.   (setq        len (sslength obj)
   
9.         m   0
   
10.   )
    
11.   (repeat len
    
12.     (setq name (ssname obj m))
    
13.     (setq objdata (entget name))
    
14.     (setq class (cdr (assoc 0 objdata)))
    
15.     (if        (or (= class "TEXT") (= class "MTEXT"))
    
16.       (progn
    
17.         (setq old (assoc 1 objdata))
    
18.         (setq old_text (cdr old))
    
19.         (setq num (strlen old_text))
    
20.         (setq n        1
    
21.               new_text ""
    
22.         )
    
23.         (while (<= n num)
    
24.           (setq text (substr old_text n 2))
    
25.           (if (and (or (= text "主") (= text "备"))
    
26.                    (= (substr old_text (+ 2 n) 2) "用")
    
27.               )
    
28.             (progn
    
29.               (if (= text "主")
    
30.                 (setq text "备用")
    
31.                 (setq text "主用")
    
32.               )
    
33.               (setq n (+ n 4))
    
34.             )
    
35.             (setq n (+ n 2))
    
36.           )
    
37.           (setq new_text (strcat new_text text))
    
38.         )
    
39.         (setq new (cons 1 new_text))
    
40.         (setq objdata (subst new old objdata))
    
41.         (entmod objdata)
    
42.       )
    
43.     )
    
44.     (setq m (1+ m))
    
45.   )
    
46.   (setvar "osmode" os)
    
47.   (prin1)
    
48. )

(defun c:zbth (/)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setvar "cmdecho" 0)<br />   (princ "\n请选择要替换的文字对象:")<br />   (setq obj (ssget))<br />   (setq        len (sslength obj)<br />         m   0<br />   )<br />   (repeat len<br />     (setq name (ssname obj m))<br />     (setq objdata (entget name))<br />     (setq class (cdr (assoc 0 objdata)))<br />     (if        (or (= class "TEXT") (= class "MTEXT"))<br />       (progn<br />         (setq old (assoc 1 objdata))<br />         (setq old_text (cdr old))<br />         (setq num (strlen old_text))<br />         (setq n        1<br />               new_text ""<br />         )<br />         (while (<= n num)<br />           (setq text (substr old_text n 2))<br />           (if (and (or (= text "主") (= text "备"))<br />                    (= (substr old_text (+ 2 n) 2) "用")<br />               )<br />             (progn<br />               (if (= text "主")<br />                 (setq text "备用")<br />                 (setq text "主用")<br />               )<br />               (setq n (+ n 4))<br />             )<br />             (setq n (+ n 2))<br />           )<br />           (setq new_text (strcat new_text text))<br />         )<br />         (setq new (cons 1 new_text))<br />         (setq objdata (subst new old objdata))<br />         (entmod objdata)<br />       )<br />     )<br />     (setq m (1+ m))<br />   )<br />   (setvar "osmode" os)<br />   (prin1)<br /> )

tianyi1230

源泉有个图元互换的功能，除了支持图元互换位置外，还可以支持文字内容互换

tianyi1230

张和平 发表于 2013-8-5 09:02
额，，，做工作不能这么懒的哦，，你先把主用替换成主*用，然后把备用替换成主用，然后把主*用替换成备用， ...

希望张工写个批量文字内容互换的插件，
先框选（或者点选）要原换文字，再框选（或者点选）想换文字，
确定完成。

zhengchuan

张和平 发表于 2013-8-5 09:02
额，，，做工作不能这么懒的哦，，你先把主用替换成主*用，然后把备用替换成主用，然后把主*用替换成备用， ...

张工，我原来也是这么做的。不过，画图速度能快点就快点啦

zhengchuan

lengyunfeng 发表于 2013-8-5 09:41
程序如下:

谢谢！真的很好用。

张和平

zhengchuan 发表于 2013-8-5 15:21
张工，我原来也是这么做的。不过，画图速度能快点就快点啦

好吧。。。。。