主用、备用互相替换
能否框选文字（单行和多行），将文字中的主用两个字改成备用，同时将备用两个字改成主用呢？ 额，，，做工作不能这么懒的哦，，你先把主用替换成主*用，然后把备用替换成主用，然后把主*用替换成备用，就好了么，，， 程序如下:(defun c:zbth (/)(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(princ "\n请选择要替换的文字对象:")
(setq obj (ssget))
(setq len (sslength obj)
m 0
)
(repeat len
(setq name (ssname obj m))
(setq objdata (entget name))
(setq class (cdr (assoc 0 objdata)))
(if (or (= class "TEXT") (= class "MTEXT"))
(progn
(setq old (assoc 1 objdata))
(setq old_text (cdr old))
(setq num (strlen old_text))
(setq n 1
new_text ""
)
(while (<= n num)
(setq text (substr old_text n 2))
(if (and (or (= text "主") (= text "备"))
(= (substr old_text (+ 2 n) 2) "用")
)
(progn
(if (= text "主")
(setq text "备用")
(setq text "主用")
)
(setq n (+ n 4))
)
(setq n (+ n 2))
)
(setq new_text (strcat new_text text))
)
(setq new (cons 1 new_text))
(setq objdata (subst new old objdata))
(entmod objdata)
)
)
(setq m (1+ m))
)
(setvar "osmode" os)
(prin1)
) 源泉有个图元互换的功能，除了支持图元互换位置外，还可以支持文字内容互换 张和平 发表于 2013-8-5 09:02 static/image/common/back.gif
额，，，做工作不能这么懒的哦，，你先把主用替换成主*用，然后把备用替换成主用，然后把主*用替换成备用， ...
希望张工写个批量文字内容互换的插件，
先框选（或者点选）要原换文字，再框选（或者点选）想换文字，
确定完成。 张和平 发表于 2013-8-5 09:02 static/image/common/back.gif
额，，，做工作不能这么懒的哦，，你先把主用替换成主*用，然后把备用替换成主用，然后把主*用替换成备用， ...
张工，我原来也是这么做的。不过，画图速度能快点就快点啦 lengyunfeng 发表于 2013-8-5 09:41 static/image/common/back.gif
程序如下:
谢谢！真的很好用。 zhengchuan 发表于 2013-8-5 15:21 static/image/common/back.gif
张工，我原来也是这么做的。不过，画图速度能快点就快点啦
好吧。。。。。
页:
[1]