文本替换

yn1985321 · 发表于 2014-5-24 09:56:10

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

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

×

(defun c:th()
(setvar "cmdecho" 0)
(setq a (entsel"选取要替换的文字:\n"))
(setq a_dat (entget (car a)))
(setq hd_list (assoc 1 a_dat))
(setq old_hd (cdr hd_list))
;选择新值
(setq b (entsel"选取新的文字:\n"))
(setq b_dat (entget (car b)))
(setq bd_list (assoc 1 b_dat))
(setq new_bd (cdr bd_list))
;替换
(setq new_bd_list (cons 1 new_bd))
(setq a_dat (subst new_bd_list hd_list a_dat))
(entmod a_dat)
(command "erase" b "")
(prin1)
)

yxianfo · 发表于 2014-6-3 09:39:16

若要将“选取的新文字”保留下来呢？

xvjiex · 发表于 2021-6-22 00:36:08

感谢分享文本替换！

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

[每日一码] 文本替换

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