选择一个原广西，然后选择你所要修改的文本，这样所有你选择的文本将会与你{dy}次选择的文本的内容一样。
(defun c:thwb()
(setar “cmdecho”0)
(command “undo” “group”)
(princ”n选择替换内容:”)
(setq c1 (single_select ‘((0 . “TEXT”)) T))
(if c1
(redraw c1 3)
)
(setq text1 (cdr (assoc 1 (entget c1))))
(setq number1 (entget c1))
(setq text1 (cons 1 text1))
(princ “n请选择要替换的文本:”)
(setq a (ssget ‘((0 . “TEXT”))))
(setq n (sslength a))
(setq number 0)
(repeat n
(setq a1 (ssname a number))
(setq a11 (entget a1))
(setq number1 a11)
(setq a11 (cdr (assoc 1 a11)))
(setq text11 (subst text1 (assoc 1 number1) number1))
(entmod text11)
(setq number (1+ number))
)
(redraw c1 4)
(command “undo” “end”)
(setar”cmdecho”1)
(princ)
)

标签： , ,

免责声明
本站部分文章来源于网络收集，包括本站原创及部分转贴自互连网 , 文章的版权属于原作者。如果本站中有内容侵犯了您的权利，我们将协助您及有关部门xx相关内容并查找IP记录，但我们不承担任何责任。
由于您在使用或传播中如果出现任何问题和由此造成的任何损失，本站将不承担任何责任。利用本网站的内容以及导致的任何法律争议和后果与本站无关。
未尽事宜以网站{zx1}公告和相关法律为准。
请自觉遵守上述声明。谢谢合作。
这篇文章发布于 2010年05月20日，星期四，11:16 上午，归类于 。 您可以跟踪这篇文章的评论通过 feed。 评论和Pings都被关闭。