[求助]：以下代码的几个问题

sailorjt

2. 
   
3.   [FONT=courier new]
   
4. (defun c:TC(/ en1 en1_data en1_type fountain_content en2 en2_data en2_type   en2_content copy_content)   
   
5.   (setvar "cmdecho" 0)         
   
6.   (while (/= en1_type "TEXT")
   
7.   (setq en1 (entsel "\n选取源文字:"))
   
8.     (setq en1_data (entget (car en1)))
   
9.     (setq en1_type (cdr (assoc 0 en1_data)))
   
10.     )      
    
11.       (setq fountain_content(cdr (assoc 1 en1_data)))
    
12.    
    
13.    (while (/= en2_type "TEXT")
    
14.   (setq en2 (entsel "\n选取目标文字"))
    
15.     (setq en2_data (entget (car en2)))
    
16.     (setq en2_type (cdr (assoc 0 en2_data)))
    
17.     )
    
18.       (setq en2_content (assoc 1 en2_data))
    
19.       (setq copy_content (cons 1 fountain_content))
    
20.       (setq en2_data (subst copy_content en2_content en2_data))              
    
21.       (entmod en2_data)
    
22.   (prin1)
    
23.   )
    
24.    (prompt "**************<< C:TC >>**************")   
    
25.   (prin1)
    
26. 
    
27.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:TC(/ en1 en1_data en1_type fountain_content en2 en2_data en2_type   en2_content copy_content)    <br />   (setvar "cmdecho" 0)          <br />   (while (/= en1_type "TEXT")<br />   (setq en1 (entsel "\n选取源文字:")) <br />     (setq en1_data (entget (car en1)))<br />     (setq en1_type (cdr (assoc 0 en1_data)))<br />     )      <br />       (setq fountain_content(cdr (assoc 1 en1_data))) <br />     <br />    (while (/= en2_type "TEXT")<br />   (setq en2 (entsel "\n选取目标文字"))<br />     (setq en2_data (entget (car en2)))<br />     (setq en2_type (cdr (assoc 0 en2_data)))<br />     )<br />       (setq en2_content (assoc 1 en2_data))<br />       (setq copy_content (cons 1 fountain_content))<br />       (setq en2_data (subst copy_content en2_content en2_data))              <br />       (entmod en2_data)<br />   (prin1)<br />   )<br />    (prompt "**************<< C:TC >>**************")   <br />   (prin1)<br /> <br />   [/FONT]<br />

以上的代码可以实现文字A到文字B复制，但是有些问题：
1.想法是选取图元，如果非TEXT类，则继续选择；现在用EN1_TYPE，虽然也能达到目的，但是en1_type无法确定初始值；并且感觉这样的循环并不好。
2.选取园元，虽然达到了只选取TEXT类，但如果没有选中，则为提示错误并且退出，而我的想法是继续选择，如何解决？
3.无法框选（最好是框选后筛选文字类）；
还有其它蛮多问题。
我是初学LISP，希望各位能多指教，谢谢。

zml84

1.在尽量少改代码的原则下，依照您的要求作了点修改。修改后代码如下：
2.至于框选，你可以将entsel换作SSGET，后边再对选择集中的实体进行编历并处理即可。
  但我建议“源文字”不要框选，而“目标文字”采用框选较好。
3.大家都是学习者，有问题探讨，这样进步就快了。

2. 
   
3.   [FONT=courier new]
   
4. (defun c:TC (/                   en1                 en1_data      en1_type
   
5.              fountain_content                 en2               en2_data
   
6.              en2_type           en2_content         copy_content
   
7.             )
   
8.   (setvar "cmdecho" 0)
   
9.   (setq en1_type "")
   
10.   (setq en2_type "")
    
11. 
    
12.   (while (/= en1_type "TEXT")
    
13.     (while (= (setq en1 (entsel "\n选取源文字:")) nil))
    
14.     (setq en1_data (entget (car en1)))
    
15.     (setq en1_type (cdr (assoc 0 en1_data)))
    
16.   )
    
17.   (setq fountain_content (cdr (assoc 1 en1_data)))
    
18. 
    
19.   (while (/= en2_type "TEXT")
    
20.     (while (= (setq en2 (entsel "\n选取目标文字:")) nil))
    
21.     (setq en2_data (entget (car en2)))
    
22.     (setq en2_type (cdr (assoc 0 en2_data)))
    
23.   )
    
24.   (setq en2_content (assoc 1 en2_data))
    
25.   (setq copy_content (cons 1 fountain_content))
    
26.   (setq en2_data (subst copy_content en2_content en2_data))
    
27.   (entmod en2_data)
    
28.   (prin1)
    
29. )
    
30. (prompt "**************<< C:TC >>**************")
    
31. (prin1)
    
32. 
    
33.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:TC (/                   en1                 en1_data      en1_type<br />              fountain_content                 en2               en2_data<br />              en2_type           en2_content         copy_content<br />             )<br />   (setvar "cmdecho" 0)<br />   (setq en1_type "")<br />   (setq en2_type "")<br /> <br />   (while (/= en1_type "TEXT")<br />     (while (= (setq en1 (entsel "\n选取源文字:")) nil))<br />     (setq en1_data (entget (car en1)))<br />     (setq en1_type (cdr (assoc 0 en1_data)))<br />   )<br />   (setq fountain_content (cdr (assoc 1 en1_data)))<br /> <br />   (while (/= en2_type "TEXT")<br />     (while (= (setq en2 (entsel "\n选取目标文字:")) nil))<br />     (setq en2_data (entget (car en2)))<br />     (setq en2_type (cdr (assoc 0 en2_data)))<br />   )<br />   (setq en2_content (assoc 1 en2_data))<br />   (setq copy_content (cons 1 fountain_content))<br />   (setq en2_data (subst copy_content en2_content en2_data))<br />   (entmod en2_data)<br />   (prin1)<br /> )<br /> (prompt "**************<< C:TC >>**************")<br /> (prin1)<br /> <br />   [/FONT]<br />

sailorjt

谢谢