关于规则的对象名如何赋值给其他对象

weiqi

例如已得到对象a1,a2,a3,a4,a............a1000,(对象为字符串)

如何用循环
repeat 把 a1到a1000输出    (其他也行最好用repeat)

测试代码：

1. (defun c:DX ()
   
2. (setq a1 "第1个字符串")
   
3. (setq a2 "第2个字符串")
   
4. (setq a3 "第3个字符串")
   
5. (setq a4 "第4个字符串")
   
6. (setq a5 "第5个字符串")
   
7. (setq I 1 N 5)
   
8. 
   
9. (repeat N
   
10. (setq kkk (read(strcat "a" (itoa I))))  
    
11.   (print kkk)
    
12. (setq I (1+ I))
    
13. )
    
14. )
    
15. 
    
16. 
    

(defun c:DX ()<br /> (setq a1 "第1个字符串")<br /> (setq a2 "第2个字符串")<br /> (setq a3 "第3个字符串")<br /> (setq a4 "第4个字符串")<br /> (setq a5 "第5个字符串")<br /> (setq I 1 N 5)<br /> <br /> (repeat N <br /> (setq kkk (read(strcat "a" (itoa I))))  <br />   (print kkk)<br /> (setq I (1+ I))<br /> )<br /> )<br /> <br /> <br />

输出结果：




我想要输出结果是
第1个字符串
第2个字符串
第3个字符串
第4个字符串
第5个字符串

ZZXXQQ

1. (defun c:dx ()
   
2. (setq i 1)
   
3. (repeat 1000
   
4.   (set (read(strcat "A" (itoa i)))
   
5.        (strcat "第" (itoa i) "个字符串"))
   
6.   (setq i (1+ i))
   
7. )
   
8. (setq i 1)
   
9. (repeat 1000
   
10.   (print (eval(read(strcat "A" (itoa i)))))
    
11.   (setq i (1+ i))
    
12. )
    
13. (princ)
    
14. )
    

(defun c:dx ()<br /> (setq i 1)<br /> (repeat 1000<br />   (set (read(strcat "A" (itoa i)))<br />        (strcat "第" (itoa i) "个字符串"))<br />   (setq i (1+ i))<br /> )<br /> (setq i 1)<br /> (repeat 1000<br />   (print (eval(read(strcat "A" (itoa i)))))<br />   (setq i (1+ i))<br /> )<br /> (princ)<br /> )<br />