1.定义AutoLISP函数
(defun 函数名(变元……/局部变量……)表达式)
（1）函数名与变量名的命名规则相同，不应与现有AutoLISP函数重名，否则，现有函数将被新定义的功能所取代。（2）变元即参数。即便没有变元也不能省略"()"。（3）局部变量。这里的局部变量是指局限于该函数内部所用的变量，只在该函数调用期间得到定义，调用结束，局部变量的值均为nil，同事释放所占存储空间。如不声明，它们则将成为全局变量。局部变量的声明不仅可以节省存储空间，还可以避免函数之间相互干扰。局部变量和变元之间用除号隔开。即使没有变元，也可以后局部变量说明，必须加除号。（4）表达式。用于描述该函数的运算。（5）返回值。最后一个表达式返回值即为该函数的返回值。
【例】定义一个已知圆柱体的半径和高，计算其体积的函数，源代码如下：
1 ( defun volume(r h / v) 2 ( setq v( * r r pi h)) 3 )
该函数的函数名是volume，两个变元r(半径)和h(高度)，有一个局部变量v，返回表达式( setq v( * r r pi h))的值。
2.调用AutoLISP函数
(函数名[变元]……)
3.递归定义AutoLISP函数
AutoLISP可以在一个函数内部定义另一个函数，也可以递归定义函数。
【例】定义阶乘函数。
4.调用AutoCAD命令
AutoLISP用command函数调用AutoCAD命令，其格式为：(command "AutoCAD命令" "命令所需的数据"……)
【例】绘制以（2,4）为圆心，5为半径的圆和（-2,-4）为圆心，5为半径的圆
(command "circle" "2,4" "5")
(command "circle" '(-2 -4) 5)
【例】已知p1,p2,p3为不在同一条直线上的三个点，利用这三个点画圆
1 (setq p1 '(100 100)) 2 (setq p2 '(-100 100)) 3 (setq p3 '(-100 -100)) 4 (command "circle" "3p" p1 p2 p3)
【例】绘制p1(0,0)到p2(10,0)的一段直线
(command "line" "0,0" "10,0" "") (command "line" '(0 0) '(10 0) "") (command "line" (list 0 0) (list 10 0) "")
最后的双引号代表一个回车或空格。（书上第13页【例2-6】的最后一种画线方法实验失败，所以就不写了）。
5.定义AutoCAD命令
用defun函数定义AutoCAD命令，格式如下：
(defun C:AutoCAD命令名 (/局部变量……) 表达式……)
定义AutoCAD命令与定义函数基本相同，不同之处有两点：（1）命令名前加"C:"。（2）变元表内没有变元，但可以有局部变量说明。此外，还要注意所定义的AutoCAD命令不应与现有的AutoCAD命令重名。