求教如何连续实现交换功能

bzhyong

2. (defun c:maa()
   
3. (setvar "cmdecho" 0)
   
4. (setq en1 (entsel "选取源文本："))
   
5. (setq en_data (entget (car en1)))
   
6. (setq old_rad_list (assoc 1 en_data));取得旧半径列表
   
7. 
   
8. (setq en2 (entsel "选取目标文本："))
   
9. (setq en_data2 (entget (car en2)))
   
10. (setq new_rad_list (assoc 1 en_data2));取得旧半径列表
    
11. 
    
12. 
    
13. (setq en_data2 (subst  old_rad_list new_rad_list  en_data2))
    
14. (entmod en_data2)
    
15. (prin1)
    
16. )
    
17. (prompt "maa交换文本内容:")

(defun c:maa()<br /> (setvar "cmdecho" 0)<br /> (setq en1 (entsel "选取源文本："))<br /> (setq en_data (entget (car en1)))<br /> (setq old_rad_list (assoc 1 en_data));取得旧半径列表<br /> <br /> (setq en2 (entsel "选取目标文本："))<br /> (setq en_data2 (entget (car en2)))<br /> (setq new_rad_list (assoc 1 en_data2));取得旧半径列表<br /> <br /> <br /> (setq en_data2 (subst  old_rad_list new_rad_list  en_data2))<br /> (entmod en_data2)<br /> (prin1)<br /> )<br /> (prompt "maa交换文本内容:")

代码如上。功能为把文字复制到另一个文字中。每次只能复制一次，求教如何刷一次源文本，连续可以选取目标文本

bssurvey

試試這個
(defun c:maa()
(setvar "cmdecho" 0)
(setq en1 (entsel "选取源文本："))
(setq en_data (entget (car en1)))
(setq old_rad_list (assoc 1 en_data));取得旧半径列表

(while (setq en2 (entsel "选取目标文本："))
(setq en_data2 (entget (car en2)))
(setq new_rad_list (assoc 1 en_data2));取得旧半径列表


(setq en_data2 (subst  old_rad_list new_rad_list  en_data2))
(entmod en_data2)
)
(prin1)
(setvar "cmdecho" 1)
)

(prompt "maa交换文本内容:")[/code]代码如上。功能为把文字复制到另一个文字中。每次只能复制一次，求教如何刷一次源文本，连续可以选取目标文本