定义命令可不可以简化

mcxiangxin

定义命令可不可以简化：

我想把1-256的数字定义成改变颜色的命令．如果常规来定义(defun c:1 () ......)(defun c:2 () ......)  ．．．(defun c:256 () ......)这样太麻烦了，有没有什么方法可以简化这样的定义呢？　

caoyin

(defun c:test (/ i s)
  (repeat (setq i 257)
    (setq  i (1- i) s (itoa i))
    (eval (read (strcat "(defun c:" s "() (setvar \"cecolor\" \"" s "\")(princ))")))
  )
)

mcxiangxin

高手，非常感谢

高级用户

学习了

3. (defun c:test()
4. (setq a1 "中")
5. (setq a2 "华")
6. (setq a3 "人")
7. (setq a4 "民")
8. (setq a5 "共")
9. (setq a6 "和")
10. (setq a7 "国")
11. (setq i 1)
12. (repeat 7
13.   (setq x (strcat "a" (itoa i)))
14.   (setq y (strcat "b" (itoa i)))
15.   (eval (read (strcat "(setq " y " " x ")" )))
16.   (setq i (+ i 1))
17. )
18. (alert (strcat b1 b2 b3 b4 b5 b6 b7))
19. )

(defun c:test() (setq a1 "中") (setq a2 "华") (setq a3 "人") (setq a4 "民") (setq a5 "共") (setq a6 "和") (setq a7 "国") (setq i 1) (repeat 7   (setq x (strcat "a" (itoa i)))   (setq y (strcat "b" (itoa i)))   (eval (read (strcat "(setq " y " " x ")" )))   (setq i (+ i 1)) ) (alert (strcat b1 b2 b3 b4 b5 b6 b7)) )