[LISP程序]：一个批量定义函数的示例

zml84

[php]
;;;      eval函数示例------定义以表中元素为名称的命令
;;;日期：zml84 于 2008-03-31
;;;============================================================
;;;功能：定义系列命令，用于快速修改颜色
(defun C:TT (/ LST I A B)
    (setvar "CMDECHO" 0)
    (setq LST '(1 2 3 4 5 6 7 8 9)) ;_可以修改该表
    (princ "\n定义命令")
    (foreach I LST
        (setq A        (itoa I)
              B        (list
                    'defun
                    (read (strcat "C:" A))
                    (list '/ 'ss)
                    (list 'if
                          (list 'setq 'SS (list 'ssget))
                          (list 'command "_.change" 'SS "" "p" "c" I "")
                    )
                    (list 'princ)
                )
        )
        (eval B)
        (princ (strcat "  " A))
    ) ;_结束 foreach
    (princ "  完成！")
    (princ)
) ;_结束 defun
;;;============================================================
;|;;后话：看eval的功能说明是：返回一个AutoLISP表达式的求值结果。
        但每个表达式均返回结果，从这方面去想，这个函数似乎无多大用处；
        而事实上，通过灵活的组织其参数就可以达到意想不到的完美效果。
        上面的代码就是一个经典的应用。
;;|;
[/php]
姊妹篇：http://zml84.blog.sohu.com/47331560.html

firstintimate

也可以利用evall和read定义数组，不过这样定义程序会拉的很长