[原创]：编写重复性函数

ohmylove

下面这个程序运行以后 ，你就可以用1－255之间的任何数字作为命令来修改物体颜色了。不过，本人绝对不推荐直接改颜色，这个仅仅是作为例子。
稍加改动就可以把程序变成用1－255之间的任何数字来修改物体的图层，这样会比直接修改颜色好一些。

[PHP]
(defun c:setcolor ( / i f)
        (setq i 1)
        (while (<= i 255)
                (setq f (strcat "(defun C:"
                                                                                (itoa i)
                                                                                "( )(setvar \"CMDECHO\" 0)(command \"change\" (ssget) \"\" \"p\" \"c\" "
                                                                                (itoa i)
                                                                                "\"\")(setvar \"CMDECHO\" 1)(princ))"
                                                )
                                        f (read f)
                                        i (1+ i)
                )
                (eval f)
        )
        (princ)
)
[/PHP]