[编程申请]：有两个数字，想将其中一个的数值替换成另一个的数值，并删除。谢谢

zelotous · 发表于 2005-4-15 12:00:53

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

有两个数字，想将其中一个的数值替换成另一个的数值，并删除。谢谢

xyp1964 · 发表于 2005-4-16 20:38:38

不太明白，试试是否可行？
[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

;;;两个数字，将其中一个的数值替换成另一个的数值，并删除。
(defun c:test ()
  (cmdla0)
  (setq txt1 (ustr 1 "\n旧数值" txt1 nil)
txt2 (ustr 1 "\n新数值" txt2 nil)
SS1 (ssget "X" (list '(0 . "TEXT") (cons 1 txt1)))
SS2 (ssget "X" (list '(0 . "TEXT") (cons 1 txt2)))
i -1
  )
  (while (setq s1 (ssname ss1 (setq i (1+ i))))
(sub_upd s1 1 TXT2)
  )
  (command "erase" ss2 "")
  (cmdla1)
)[/php]

qiaqiadeng · 发表于 2005-5-6 16:29:06

可以将其中第二个文字替换成第一个文字的内容

(defun c:xt()
(setq w1 (entget (car (entsel "\n请选择源文字")) '("ACAD")));选择对象1
  (setq neirong (assoc '1 w1));获得源文字的内容

  (setq n 0)
(while (< n 100)
    (setq w2 (entget (car (entsel "\n请选择要修改的文字")) '("ACAD")));选择对象2
(setq w2 (subst neirong (assoc '1 w2) w2))
(entmod w2)
  (setq n (+ n 1))

)
  nil
)

要想删除，请改进

ln2127105 · 发表于 2005-5-24 00:14:45

TSSD

qiaqiadeng · 发表于 2005-5-25 09:50:41

本人再提供一个很少有人用的命令，无需编程，先框选要查找的范围，然后执行“find”命令，输入要替换的文字内容，然后点取“全部选择（T）”所要查找的文字就可以全部选中，然后阁下如需做任何操作，就是你的事了。

ln2127105 · 发表于 2005-6-3 20:22:15

很不错的命令

WongFoling · 发表于 2020-5-16 18:56:56

打开了额

账号		自动登录	找回密码
密码			立即注册

[编程申请]：有两个数字，想将其中一个的数值替换成另一个的数值，并删除。谢谢

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子