[原创]：乱谈：defun 函数的本质

秋枫

各位有没有试想过如果AutoLISP不支持defun函数怎么办。
有没有想过defun 函数与setq, set函数的关系？

试一下：

2. [FONT=courier new]
   
3. (setq test '(nil (princ "\nThis is a test line")(princ)))
   
4. [/FONT]

[FONT=courier new]<br /> (setq test '(nil (princ "\nThis is a test line")(princ)))<br /> [/FONT]

与

2. [FONT=courier new]
   
3. (defun test ()
   
4.   (princ "\nThis is a test line")
   
5.   (princ)
   
6. )
   
7. [/FONT]

[FONT=courier new]<br /> (defun test ()<br />   (princ "\nThis is a test line")<br />   (princ)<br /> )<br /> [/FONT]

所以，Autolisp函数本身就是一个表，完全可以用赋值语句来定义函数。
（但AutoCAD2000以上的版本合并了vitalLISP, 这里对defun函数赋予了一定的编译内容，因此，为了兼容表形式，另提供了defun-q 函数）

试试看，定义一个立方函数，即cube(x)=x^3

2. [FONT=courier new]
   
3. (setq cube '((x) (* x x x)))
   
4. [/FONT]

[FONT=courier new]<br /> (setq cube '((x) (* x x x)))<br /> [/FONT]

调用它：

1. [FONT=courier new]
   
2. (cube 10)
   
3. [/FONT]

复制代码

aeo

早就有这样写的,
以前为了加密就这么写.


这是mapcar.net里的一段:
里面errorTemplate就是这样的.

2. 
   
3. (defun startErrorHandler(name undoMode varsToSave /  ErrorTemplate saveList)
   
4.   (setq errorTemplate
   
5.   '( (msg / name undo savedVars previousHandler)   
   
6.       (while(>(getvar "cmdactive")0)(command))
   
7.       (princ(strcat "\n"name": previous Handler = "))
   
8.       (princ previousHandler)
   
9.       (command"_undo""_end")
   
10.       (if undo(command"_u"))
    
11.       (foreach pair savedVars
    
12.         (setvar(car pair)(cdr pair))
    
13.         (princ
    
14.           (strcat"\n"name": Setze ""
    
15.                      (car pair)"" zur點k auf "))
    
16.         (princ(cdr pair))
    
17.       )
    
18.       (setq *error* previousHandler)
    
19.       (if msg
    
20.         (progn
    
21.           (princ(strcat"\n" name ": "" msg """))
    
22.           (if previousHandler(previousHandler msg))
    
23.         )
    
24.       )
    
25.     )
    
26.   )
    
27.   ;************
    
28.   (command"_undo""_begin")
    
29.   (foreach pair varsToSave
    
30.     (setq saveList
    
31.       (cons
    
32.         (cons(car pair)(getvar(car pair)))
    
33.         saveList
    
34.       )
    
35.     )
    
36.     (setvar(car pair)(cdr pair))
    
37.   )
    
38.   (setq *error*
    
39.     (append
    
40.       (list(car ErrorTemplate))
    
41.       (if undomode'((setq undo 'T)))
    
42.       (list
    
43.         (list 'setq
    
44.           'PreviousHandler
    
45.           (cons'quote(list *error*))
    
46.         )
    
47.       )
    
48.       (list(list 'setq 'name name))
    
49.       (list
    
50.         (cons'setq
    
51.           (cons'savedvars
    
52.             (list(cons'quote(list savelist)))
    
53.           )
    
54.         )
    
55.       )
    
56.       (cdr ErrorTemplate)
    
57.     )
    
58.   )
    
59. )
    
60. (defun endErrorHandler( / )
    
61.   (*error* nil)
    
62. )
    

<br /> (defun startErrorHandler(name undoMode varsToSave /  ErrorTemplate saveList)<br />   (setq errorTemplate<br />   '( (msg / name undo savedVars previousHandler)   <br />       (while(>(getvar "cmdactive")0)(command))<br />       (princ(strcat "\n"name": previous Handler = "))<br />       (princ previousHandler)<br />       (command"_undo""_end")<br />       (if undo(command"_u"))<br />       (foreach pair savedVars<br />         (setvar(car pair)(cdr pair))<br />         (princ<br />           (strcat"\n"name": Setze ""<br />                      (car pair)"" zur點k auf "))<br />         (princ(cdr pair))<br />       )<br />       (setq *error* previousHandler)<br />       (if msg<br />         (progn<br />           (princ(strcat"\n" name ": "" msg """))<br />           (if previousHandler(previousHandler msg))<br />         )<br />       )<br />     )<br />   )<br />   ;************<br />   (command"_undo""_begin")<br />   (foreach pair varsToSave<br />     (setq saveList<br />       (cons<br />         (cons(car pair)(getvar(car pair)))<br />         saveList<br />       )<br />     )<br />     (setvar(car pair)(cdr pair))<br />   )<br />   (setq *error*<br />     (append<br />       (list(car ErrorTemplate))<br />       (if undomode'((setq undo 'T)))<br />       (list<br />         (list 'setq<br />           'PreviousHandler<br />           (cons'quote(list *error*))<br />         )<br />       )<br />       (list(list 'setq 'name name))<br />       (list<br />         (cons'setq<br />           (cons'savedvars<br />             (list(cons'quote(list savelist)))<br />           )<br />         )<br />       )<br />       (cdr ErrorTemplate)<br />     )<br />   )<br /> )<br /> (defun endErrorHandler( / )<br />   (*error* nil)<br /> )<br />