[编程申请]：将多个不同字串改为一个相同字串

hechao

2. (defun c:doit(/ txt1 nmtxt1 list1 txt2 nmtxt2 list2)
   
3.     (setq txt1 (entsel "\n选择第一文字:"))
   
4.     (while (or (null txt1) (if txt1 (/= (cdr (assoc 0 (entget (car txt1)))) "TEXT")))
   
5.            (setq txt1
   
6.                    (entsel "\n没有选中, 重选:")
   
7.            )
   
8.     )
   
9.     (setq nmtxt1 (car txt1))
   
10.     (setq list1 (entget nmtxt1))
    
11.     (redraw nmtxt1 3)
    
12.          
    
13.     (setq txt2 (entsel "\n选择第二文字:"))
    
14.     (while (or (null txt2) (if txt2 (/= (cdr (assoc 0 (entget (car txt2)))) "TEXT")))
    
15.            (setq txt2
    
16.                    (entsel "\n没有选中, 重选:")
    
17.            )
    
18.     )
    
19.     (setq nmtxt2 (car txt2))
    
20.     (setq list2 (entget nmtxt2))
    
21.     (redraw nmtxt2 3)
    
22.     (entmod (subst (assoc 1 list1) (assoc 1 list2) list2))
    
23. )

(defun c:doit(/ txt1 nmtxt1 list1 txt2 nmtxt2 list2)<br />     (setq txt1 (entsel "\n选择第一文字:"))<br />     (while (or (null txt1) (if txt1 (/= (cdr (assoc 0 (entget (car txt1)))) "TEXT")))<br />            (setq txt1 <br />                    (entsel "\n没有选中, 重选:")<br />            )<br />     )<br />     (setq nmtxt1 (car txt1)) <br />     (setq list1 (entget nmtxt1))<br />     (redraw nmtxt1 3)<br />           <br />     (setq txt2 (entsel "\n选择第二文字:"))<br />     (while (or (null txt2) (if txt2 (/= (cdr (assoc 0 (entget (car txt2)))) "TEXT")))<br />            (setq txt2 <br />                    (entsel "\n没有选中, 重选:")<br />            )<br />     )<br />     (setq nmtxt2 (car txt2)) <br />     (setq list2 (entget nmtxt2))<br />     (redraw nmtxt2 3)<br />     (entmod (subst (assoc 1 list1) (assoc 1 list2) list2))<br /> )

whtiger

试验了，可以