关于规则的对象名如何赋值给其他对象
例如已得到对象a1,a2,a3,a4,a............a1000,(对象为字符串)如何用循环
repeat 把 a1到a1000输出 (其他也行最好用repeat)
测试代码：
(defun c:DX ()
(setq a1 "第1个字符串")
(setq a2 "第2个字符串")
(setq a3 "第3个字符串")
(setq a4 "第4个字符串")
(setq a5 "第5个字符串")
(setq I 1 N 5)
(repeat N
(setq kkk (read(strcat "a" (itoa I))))
(print kkk)
(setq I (1+ I))
)
)
输出结果：
我想要输出结果是
第1个字符串
第2个字符串
第3个字符串
第4个字符串
第5个字符串
(defun c:dx ()
(setq i 1)
(repeat 1000
(set (read(strcat "A" (itoa i)))
(strcat "第" (itoa i) "个字符串"))
(setq i (1+ i))
)
(setq i 1)
(repeat 1000
(print (eval(read(strcat "A" (itoa i)))))
(setq i (1+ i))
)
(princ)
)
页:
[1]