替换文字并删除原文本

gogozb

2. defun c:tt7 (/ e e1 en1 en2 n)
   
3.   ;被替换的文字
   
4.   (setq en1 (car(entsel "\n 选择要被替换的文字："))) ;取图元 ,下面的扩展
   
5.   (setq e (entget en1)) ;取属性
   
6.   (setq n (cdr(assoc 1 e))) ;取文字内容
   
7.   ;源文字
   
8.   (setq en2 (car(entsel "\n 选择源文字："))) ;取图元 ,下面的扩展
   
9.   (setq e1 (entget en2)) ;取属性
   
10.   (setq n (cdr(assoc 1 e1))) ;取文字内容
    
11.   ;替换
    
12.   (setq e (subst(cons 1 n)(assoc 1 e) e))
    
13.     ;重绘
    
14.   (entmod e)
    
15.   (command "_.erase" en2 "")
    
16.   (princ)  
    
17. )

defun c:tt7 (/ e e1 en1 en2 n)<br />   ;被替换的文字<br />   (setq en1 (car(entsel "\n 选择要被替换的文字："))) ;取图元 ,下面的扩展<br />   (setq e (entget en1)) ;取属性<br />   (setq n (cdr(assoc 1 e))) ;取文字内容<br />   ;源文字<br />   (setq en2 (car(entsel "\n 选择源文字："))) ;取图元 ,下面的扩展<br />   (setq e1 (entget en2)) ;取属性<br />   (setq n (cdr(assoc 1 e1))) ;取文字内容<br />   ;替换<br />   (setq e (subst(cons 1 n)(assoc 1 e) e))<br />     ;重绘<br />   (entmod e)<br />   (command "_.erase" en2 "")<br />   (princ)  <br /> )

lxl217114

感谢分享，点赞。。。

jun353835273

2. (defun c:tt7 (/ e e1 e2 en1 en2 n )
   
3.   ;被替换的文字
   
4.   (if (and  (setq  e1 (entsel "\n 选择要被替换的文字："))
   
5.       (setq  e2 (entsel "\n 选择源文字：")))
   
6.     (progn
   
7.   (setq en1 (car e1)) ;取图元 ,下面的扩展
   
8.   (setq e (entget en1)) ;取属性
   
9.   (setq n (cdr(assoc 1 e))) ;取文字内容
   
10.   ;源文字
    
11.   (setq en2 (car e2)) ;取图元 ,下面的扩展
    
12.   (setq e1 (entget en2)) ;取属性
    
13.   (setq n (cdr(assoc 1 e1))) ;取文字内容
    
14.   ;替换
    
15.   (setq e (subst(cons 1 n)(assoc 1 e) e))
    
16.     ;重绘
    
17.   (entmod e)
    
18.   (entdel en2)
    
19.   )
    
20.   (princ "么有选的哇!")
    
21. )
    
22.   (princ)  
    
23. )

(defun c:tt7 (/ e e1 e2 en1 en2 n )<br />   ;被替换的文字<br />   (if (and  (setq  e1 (entsel "\n 选择要被替换的文字："))<br />       (setq  e2 (entsel "\n 选择源文字：")))<br />     (progn<br />   (setq en1 (car e1)) ;取图元 ,下面的扩展<br />   (setq e (entget en1)) ;取属性<br />   (setq n (cdr(assoc 1 e))) ;取文字内容<br />   ;源文字<br />   (setq en2 (car e2)) ;取图元 ,下面的扩展<br />   (setq e1 (entget en2)) ;取属性<br />   (setq n (cdr(assoc 1 e1))) ;取文字内容<br />   ;替换<br />   (setq e (subst(cons 1 n)(assoc 1 e) e))<br />     ;重绘<br />   (entmod e)<br />   (entdel en2)<br />   )<br />   (princ "么有选的哇!")<br /> )<br />   (princ)  <br /> )

给你改了下，加了判断更可靠。 最后删除的可以用entdel 尽量不要command

paulpipi

挺实用，感谢分享

酷酷提

请问一下，这个一般是用在什么样的情况呢？

中国梦

谢谢楼主分享

gogozb

jun353835273 发表于 2023-1-14 09:02
给你改了下，加了判断更可靠。 最后删除的可以用entdel 尽量不要command

多谢指教！

Klein

这个代码什么情况下会用，内容格式刷？

e2002

有时候需要删除Source对象，有时候需要删除Target对象，有时候需要Swap两个对象的Content...
可以继续改进这个代码，实现这些不同模式的过程中切换。

一个实用的功能，可以持续在工作的实践中不断改进和扩展。上次发现有几个程序，最初是1998年写的，到现在改了十多个版本了。

vladimir

非常不错的代码，谢谢楼主分享啊。