当前位置：文档之家 › LISP语法

LISP语法

  • 格式：pdf
  • 大小：143.21 KB
  • 文档页数：14

下载文档原格式

  / 14

合集下载

LISP循环语句

LISP循环语句
(setq b (- b 1))
(if (= b 0)(setq d nil))
(command "Text" pnt1 a "0" e)
(setq pnt1 (list (car pnt1)(- (cadr pnt1) c)))
(setq b (getreal "\nNumber of text lines:"))
(setq c (getdist pnt1 "\nLine Spacing:"))
(setq d "T")
(while d
(setq e (getstring 1 "\nEnter Text:"))
(princ)
)
�
(setq test 1)
(while (<= test 10)
(some-func test)
(setq test (1+ test)
)
例2.下面的程序根据用户提供的文本高度、文本行数以及行间距往图形中写文本。
)
)
3. if
一. 功能
根据对条件的判断，对不同的表达式进行求值。
二. 格式
(if testexpr thenexpr [elesexpr])
三. 说明
如果testexpr的求值结果为非空，则对thenexpr进行求值；否则，对elsexpr进行求值。if函数返回所选择的表达式的值。如果没有elseexpr表达式且testexpr是nil，那么，if函数返回nil。
(defun Tex (/ pnt1 a b c d e f)
(graphscr)

LISP算术运算函数

LISP算术运算函数

LISP算术运算函数累加函数＋(+ N1 N2 N3 …Ni)求任意个整数和实数的和。

（1）Ni可以是整型和实型常数、变量以及返回值为整数和实数的表达式，不允许为其他类型。

⽽且每⼀个变量必须有值，不能为nil。

（2）Ni全部为整型时，函数值为整型，但应防⽌整数越界；Ni全部为实型时，函数值为实型；Ni既有整型⼜有实型时，函数返回值为实型。

累减函数－(- N1 N2 N3 …Ni)如果只有⼀个参数(-N)，相当于取与N符号相反的数；如果有多个参数，相当于N1-N2-N3-…-Ni。

同累加函数。

累乘函数*(* N1 N2 N3 …Ni)如果只有⼀个参数(* N)，相当于1*N；如果有多个参数，相当于N1*N2*N3*…*Ni。

同累加函数。

累除函数/(/ N1 N2 N3 …Ni)如果只有⼀个参数(/ N)，相当于N/1；如果有多个参数，相当于N1/(N2*N3*…*Ni)。

（1）⼀般调⽤规则同累加函数。

（2）如果参数全部为整型，函数值为整数。

但在执⾏整除运算时，商的⼩数部分被舍去，⽽不是四舍五⼊为整数。

（3）除了被除数N1外，N2，N3，…，Ni中不允许出现0。

加⼀函数1+(1+ N)相当于N+1。

（1）参数可以为整型或实型。

（2）该函数值虽然等同于(+ N 1)，但加⼀函数的运算速度快，常⽤在步长为1的循环中。

减⼀函数1-(1- N)相当于N-1。

同加⼀函数。

绝对值函数Abs (abs N)求整型或实型常数、变量或表达式的绝对值。

平⽅根函数Sqrt (sqrt N)求整型或实型常数、变量或表达式的平⽅根。

（1）参数的值必须⼤于等于0。

（2）不管参数的值是整型或实型，Sqrt函数的返回值均为实型。

幂函数Expt (expt x y)求xy的值，x为底数，y为指数。

若x、y均为整型，函数值为整型；否则，函数值为实型。

指数函数Exp(exp x)求ex的值。

⾃然对数Log (log x )求⾃然对数lnx的值。

LISP语言

LISP语言

(setq R ' (Rule4 (if (animal flies) (animal lays eggs)) (then (animal is bird)) ) )

取前提：
(setq z (cdadr R))
练习
给出结果： (setq A 'B)
(setq N '(set A '(+ 5 8))) (eval N)
(Rule_6
(if (Integer x) (GZ x) ) (then (Natural x) ) )
5.1.1 LISP 语言特点 3、数据类型唯一（基本 LISP） 数原子
原子
S-表达式
表
文字原子
例
函数定义： (defun hanoi ( x y z n ) (cond ((= n 1) (move_disk x y)) (T (hanoi x z y (- n 1)) (move_disk x y) (hanoi z y x (- n 1))) ) )
2、不求值、赋值、再求值函数 ①不求值函数guote (guote try) 'try ②赋值 (set 'A 'B) (set A 10) (setq A 10)
A == B B == 10 A == 10
③再求值（二次求值） (setq A 'B) A == B (setq B 'C) B == C (eval A) C (setq M (+ 2 5) M == 7 (setq N '(+ 2 5) N == (+ 2 5)
(second '( A B C D)) B (CAR (CDDR ' (A B C D))) C

LISP概览

LISP概览

AUTOLISP实例常用函数（十数值数值…）返回：累计实数或整数数值（一数值数值…）返回：差值（* 数值数值…）返回：所有数值乘积（/ 数值数值…）返回：第一个数值除以第二个以后数值的商（= 表达式1 表达式2）比较表达式1是否等于式2，适用数值及字符串（＞表达式1 表达式2）比较表达式1是否＞大于表达式2（＞= 表达式1 表达式2）比较表达式1是否大于等于表达式2（and 表达式1 表达式2…）返回：逻辑and的结果pi 常数∏，其值约为3．1415926（assoc 关键元素联合列表）根据关键元素找寻联合列表中关系信息（append 列表列表……）结合所有列表成一个列表（angle 点1 点2）取得两点的角度弧度值(car 列表)返回列表中的第一个元素，通常用来求X坐标（cdr 列表）返回：除去第一个元素后的列表（cadr 列表）返回列表中的第二个元素，通常用来求y坐标（caddr 列表）返回列表中的第三个元素，通常用来求Z坐标（command ”AutoCAD命令”…）超重量级函数，调用执行 AutoCAD命令（distance 点1 点2）取得两点的距离(eq 表达式1 表达式2）比较表达式1与表达式2是否相同，适用列表比较（实际相同）（entget 对象名称［应用程序列表］）取出对象名称的信息列表（entdel 对象名称）删除或取消删除对象(entlast）取出图形信息中的最后一个对象（getdist ［基点］［提示］）请求输入一段距离（getPoint ［基点］［提示］）请求输入一个点的坐标（getreal ［提示］请求输入一个实数（getstring [提示］）请求输入一个字符串（inters 点1 点2 点3 点 4［模式］）取得两条线的交点（length 列表）返回：列表内的元素数量（list 元素元素…）返回：将所有元素合并为一列表（max 数值数值…）返回：数值中的最大值（min 数值数值…）返回：数值中的最小值（nth n 列表）返回：列表的第n个元素（polar 基点弧度距离）按照极坐标法取得另一坐标点（progn 表达式1 表达式2…）连接其内的表达式为一组，常用于配合if、cond等函数（setq符号1 表达式1［符号2表达式2］…）设定表达式结果给各符号（subst 新项旧项列表）返回：替换新旧列表后的列表（一）关于从选择对象中获取信息假设有一条直线：如右图所示：1：选择一个对象 (setq a (entsel))选择对象: (<图元名: 7ef860d8> (1054.61 606.392 0.0)) 2：获取图元名 (car a) 或（setq b (car a)）<图元名: 7ef860d8>3: 获取坐标（cdr a）或（setq c (cdr a)）((1054.61 606.392 0.0)) （此时为一个集合非坐标）（seta d (car c)）(1054.61 606.392 0.0)4: 获取X坐标值 (setq X (car d)) 1054.61获取Y坐标值（setq Y (cadr d)） 606.392获取Z坐标值（setq Z (caddr d)） 0.05：关于图元的信息内容以直线为例（entget b）或 (setq d (entget d)) ((-1 . <图元名: 7ef860d8>) (0 . "LINE") (330 . <图元名: 7ef84cf8>) (5 . "123")(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbLine") (10832.092 691.499 0.0) (11 1309.43 517.764 0.0) (210 0.0 0.0 1.0))大括号内12项，分别以括号括起。

LISP语言教程(1)

LISP语言教程(1)
quote
(quote x)返回x.为了可读性我们把(quote x)简记为'x.
> (quote a)
a
> 'a
a
> (quote (a b c))
(a b c)
atom
(atom x)返回原子t如果x的值是一个原子或是空表,否则返回().在Lisp中我们按惯例用原子t表示真,而用空表表示假.
> (atom 'a)
(cond ((atom z)
(cond ((eq z y) x)
('t z)))
('t (cons (subst x y (car z))
(subst x y (cdr z))))))
偶然地我们在这儿看到如何写cond表达式的缺省子句.第一个元素是't的子句总是会成功的.于是
(cond (x y) ('t z))
等同于我们在某些语言中写的
if x then y else z
一些函数
既然我们有了表示函数的方法,我们根据七个原始操作符来定义一些新的函数.为了方便我们引进一些常见模式的简记法.我们用cxr,其中x是a或d的序列,来简记相应的car和cdr的组合.比如(cadr e)是(car(cdr e))的简记,它返回e的第二个元素.
示例
假设我们要定义函数(subst x y z),它取表达式x,原子y和表z做参数,返回一个象z那样的表,不过z中出现的y(在任何嵌套层次上)被x代替.
> (subst 'm 'b '(a b (a b c) d))
(a m (a m c) d)
我们可以这样表示此函数
(label subst (lambda (x y z)

Lisp常用函数

Lisp常用函数
范例：
CODE:
(DEFUN factorial (N)
(COND ((= N 0) 1)
(T (* N (factorial (- N 1))))
)
)
使用时候：
(factorial 5)
传回结果：
120
Lisp常用函数
Lisp语法及变量皆不分大小写(case insensitive)。
NIL
空串行，相当于'()。另外真伪值表示时，T表真，NIL表伪。只要是任何不是NIL (空串行)的值，真伪值都表示真。
QUOTE
CODE:
(QUOTE参数)
将参数直接传回，不做任何评估动作。可用' (单引号)取代
SETQ, SETF, LET
CODE:
(LIST参数1 ........ )
将若干参数，当作是新串行的元素，形成新串行。
注：APPEND除了最后一个之外的参数皆需为串行，而LIST不用。
NULL
CODE:
(NULL参数)
判断参数是否为空串行(NIL)。
ATOM, LISTP, NUMBERP, ZEROP
CODE:
(ATOM参数)
(LISTP参数)
(NUMBERP参数)
(ZEROP参数)
判断参数是否为atom(原子), list(串行), number(数字), zero(0)，ZEROP的参数必须为数字。
LENGTH
CODE:
(LENGTH参数串行)
计算参数串行内的元素有几个。
REVERSE
CODE:
(REVERSE参数串行)
(to be continued... )
IF, COND
CODE:

lisp命令

lisp命令(defun c:rt ()(command "rotate"))旋转作者:翁政(defun c:ff ()(command "offset"))偏移(defun c:v ()(command "move"))移动(defun c:g ()(command "line"))直线(defun c:gg ()(command "pline"))多线(defun c:q ()(command "bhatch" "p" "s"))实体填充(defun c:cc ()(command "copy"))复制(defun c:c ()(command "circle"))圆(defun c:a ()(command "arc"))圆弧(defun c:f ()(command "fillet"))圆角(defun c:dt ()(command "dtext"))文字编辑(defun c:t ()(command "text"))文字(defun c:sc ()(command "scale"))比例缩放(defun c:tr ()(command "trim"))修剪(defun c:x ()(command "explode"))分解(defun c:ar ()(command "array"))陈列(defun c:e ()(command "_erase"))删除(defun c:cc1 ()(command "copy" "l" "" "@"))连续复制(defun c:www ()(command "_browser"))用IC连机，DOS调用内部命令(defun c:w ()(command "matchprop"))(defun c:d ()(command "_TXTALIGN"))对齐文字(defun c:dq ()(command "_dimaligned"))对齐标注(defun c: ()(command ""))(defun c: ()(command ""))-1.先选择弧，就可求得弧的半径和弧圆心的坐标。

lisp语言入门

Lisp语言入门Lisp是一门历史悠久的语言，全名叫LISt Processor，也就是“表处理语言”，它是由John McCarthy于1958年就开始设计的一门语言。

和Lisp同时期甚至更晚出现的许多语言如Algo等如今大多已经消亡，又或者仅仅在一些特定的场合有一些微不足道的用途，到现在还广为人知的恐怕只剩下了Fortran和COBOL。

但唯独Lisp，不但没有随着时间而衰退，反倒是一次又一次的焕发出了青春，从Lisp分支出来的Scheme、ML等语言在很多场合的火爆程度甚至超过了许多老牌明星。

那么这颗常青树永葆青春的奥秘究竟在哪里呢？如果你只接触过C/C++、Pascal这些“过程式语言”的话，Lisp可能会让你觉得十分不同寻常，首先吸引你眼球（或者说让你觉得混乱的）一定是Lisp程序中异常多的括号，当然从现在的角度来讲，这种设计的确对程序员不大友好，不过考虑到五六十年代的计算机处理能力，简化语言本身的设计在那时算得上是当务之急了。

Lisp的基本语法很简单，它甚至没有保留字（有些语言学家可能对这一点有异议，别怕，我听你们的），它只有两种基本的数据，仅有一种基本的语法结构就是表达式，而这些表达式同时也就是程序结构，但是正如规则最简单的围棋却有着最为复杂的变化一样，Lisp使用最基本的语言结构定义却可以完成其它语言难于实现的、最复杂的功能。

废话少说，现在我们就来看看Lisp语言中的基本元素。

Lisp的表达式是一个原子(atom)或表(list)，原子(atom)是一个字母序列，如a b c；表是由零个或多个表达式组成的序列，表达式之间用空格分隔开，放入一对括号中，如：a b c()(a b c x y z)(a b(c)d)最后一个表是由四个元素构成的，其中第三个元素本身也是一个表。

正如算数表达式1+1有值2一样，Lisp中的表达式也有值，如果表达式e得出值v，我们说e返回v。

如果一个表达式是一个表，那么我们把表中的第一个元素叫做操作符，其余的元素叫做自变量。

LISP使用说明

1.TXGX-修正单行文字、多行文字或块属性的小数位。

2.(defun rtos2(number mode n/st gst sn ln cn dn)函数：RTOS函数的增强版，将指定的数字字符串转换为指定小数位的数字字符串；st为要处理的字符串，n为要保留的小数位数。

3.2PLI--显示二维多段线上各顶点的坐标值。

4.3PLI--显示三维多段线上各顶点的三维坐标值。

5.AAPL--该程序主要用于绘制横断面图时计算填挖方面积。

6.(defun aa4p(x1y1x2y2x3y3x4y4/)函数：给定四点计四点确定两直线之间的填挖方面积。

7.PLTR--将二维多段线顶点按相反顺序排列.8.BBG-标注标高9.SY2-拾取一个标高文本和一个点来设置坐标系.10.MBG-制作标高块BG.11.MBX-制作标高块BX.12.MBXY-制作标高块BXY13.GX-更新坐标标注.14.M2T-多行文本转换为单行文本。

15.SY-拾取已标注好的标高块来设置坐标系.16.BBX－标宽度17.BXY—标坐标18.SXY—根据标注好的坐标块设置坐标值。

19.RDTX2--拾取单行文本,多行文本的文本值。

20.GMT--规范化多行文字(command"-style""chbz""isocp.shx,hhztxt.shx""0""0.7""0""N""N")21.GMT2--增强版的规范化文字22.BR1---指定一点将所穿越的实体截断23.BBR----指定两点将所穿越的实体截断.24.BZWB----根据标注文字位置坐标，文字方向及标注文本字符串来进行文本标注25.DMTR----将横断面图中的断面线转换为平面图中的三维点线。

26.EZ—将指定点标高设置为当前标高。

很好用的结构lisp

(defun c:u1 ()(princ "\n设置角度")(setq p1 (getpoint "\n起点:"))(setq p2 (getpoint "\n终点:"))(command "ucs" "z" p1 p2 ))(defun c:u2 () (command "ucs" "w" ))(defun c:u3 ()(princ "\n设置角度")(setq p1 (getpoint "\n起点:"))(setq p2 (getpoint "\n终点:"))(command "ucs" "z" p1 p2 "plan" ""))(defun c:us () (command "ucs" "w" "plan" ""))(defun c:zd () (command "zoom" "d"))(defun c:hz ()(princ)(command "-layer" "f" "*" "t" "hatch" "" "DRAWORDER" "all" "" "b" "-layer" "t" "*" "") )(defun c:ep()(command "explorer"))(defun c:as ()(setq p1 (getpoint "\n起点:"))(setq p2 (getpoint p1 "\n下一点:"))(command "line" p1 p2 pause "trim" ""))(defun C:Pu (/ gnList doc groups g)(princ"\n此程序搜索不包含任何物体的空组并清除之\n")(princ)(setq doc (vla-get-activedocument (vlax-get-acad-object))) (setq groups (vla-get-groups doc))(vlax-for g groups(princ "\n分析组：")(princ (vla-get-name g))(if (= (vla-get-count g) 2)(progn(princ (strcat "......删除空组" (vla-get-name g)))(vla-delete g))))(command "purge" "all" "" "n"))(defun c:sd (/ a b ent ent2 elist etype oldval bltxt entdata btxt ostr pt oltxt)(princ "\n ******* 文字替换程序******* Writen by 赵")(princ "\n 请选择复制源文字目标:")(setq ent (nentsel))(if (= ent nil)(setq oldval (getstring "\n 请输入文字:" c))(progn(setqent2 entelist (entget (car ent))etype (cdr (assoc 0 elist)))(setq oldval (cdr (assoc 1 elist)))(princ "\n ")(princ "\n复制文字内容为: ")(princ oldval)))(setq q 9)(while q(princ "\n ")(setq bltxt (nentsel "\n请选择需要替换的文字目标:"))(if (= bltxt nil)(setq q nil)(progn(setq entdata (entget (car bltxt))btxt (cdr (assoc 1 entdata))ostr btxt)(setq elist (entget (car bltxt)))(setq etype (cdr (assoc 0 elist)));; (setq oltxt (car (assoc 1 elist)))(setq oltxt (cdr (assoc 1 elist)))(if (= etype "ATTRIB")(progn(setq pt (cadr bltxt))(command ".attedit" "" "" "" "" pt "" "V" "R" oldval "n") )(progn(setq btxt oldval)(entmod (subst (cons 1 btxt) (assoc 1 entdata) entdata))(if (setq bltxt (car (reverse (cadddr bltxt))))(entupd bltxt))))))(princ "\n原文字为:")(princ oltxt)(princ ". 已被替换为: ")(princ oldval)(princ " ."))(princ));(defun c:ef (/ p1 p2 ); (princ "\n画钢筋"); (setq p1 (getpoint "\n起点:")); (setq p2 (getpoint p1 "\n下一点:")); (setq clayer (getvar "clayer")); (command "layer" "m" "rein" ""); (command "pline" p1 "w" "40" "" p2; PAUSE); (setvar "clayer" clayer); (princ););(defun c:pu (); (princ); (command "purge" "all" "" "n"););(defun C:cf (); (princ "改变目标为指定层\n"); (setq p (ssget)); (setq 1("thin"); 2("text"); 3("dim"); ); (setq lay (getstring "输入目标层名: ")); (command "change" p "" "p" "la" lay ""););打开所有层;(defun c:laa ( )(command "layer" "on" "*" ""));copy layer entities to another layer;layer copy(defun c:lac (/ ss nm e la)(print "<拷贝到另一层> obj:")(setq ss(ssget))(setq nm (car (entsel "\n target objects for new layer:"))e (entget nm)la (cdr (assoc 8 e)))(command "copy" ss "" "0,0" "0,0" "change" ss "" "p" "la" la "") );设目标实体所在图层为当前层并关其它层(defun c:lao (/ e n n1 nn)(setq e (car (entsel "\nobject for layer/on:"))n (cdr (assoc 8 (entget e))) n1 n nn n)(while (setq e (car (entsel "\nobject for orther layer/on:"))) (setq n (cdr (assoc 8 (entget e)))nn (strcat nn "," n)))(command "layer" "s" n1 "off" "*" "" "on" nn ""));设目标实体所在图层(defun c:las (/ e)(setq e (car (entsel "\nobject for layer-set:"))lan (cdr (assoc 8 (entget e))))(command "layer" "s" lan ""));解锁目标实体所在图层;(defun c:lau (/ e n); (while (setq e (car (entsel "\nobject for unlock-layer:"))); (progn; (setq n (cdr (assoc 8 (entget e)))); (command "layer" "u" n "");)));(vl-load-com)(defun dxf(a b)(cdr(assoc a b)))(command"undo""group")(if(and(setq ss(ssget '((0 . "INSERT"))))(setq new(getstring "\n名称:"))(not(tblsearch "block" new)))(progn(setq old(dxf 2(entget(ssname ss 0))))(command "-insert" old '(0 0) "1""1" 0)(command "explode"(entlast))(command "-block" new '(0 0)"P" "")(setq j 0)(repeat(sslength ss)(setq e(ssname ss j)en(entget e)en(subst(cons 2 new)(assoc 2 en)en))(entmod en)(setq j(1+ j)))))(command"undo""end")(princ))(defun C:Z=0 ()(setvar "cmdecho" 0)(princ "\n正在处理图形数据,请稍候...")(command "_.UCS" "")(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "") (princ "\nOK,已将所有图元的标高值即Z坐标归零.")(setvar "cmdecho" 1)(princ));end (defun C:Z=0 ())(defun c:os()(princ )(command "osmode" 695))(defun C:mk (/ ss )(princ "\nSelect objects: ")(setvar "blipmode" 1)(setq ss (ssget))(setq p1 (getpoint "\n起点:"))(setq p2 (getpoint "\n下一点:"))(command "mirror" ss "" p1 p2 "y" )(setvar "blipmode" 0))(defun C:OI ()(setvar "blipmode" 1)(setq ss (ssget))(setq d (getdist "\n距离<250>:"))(if (null d)(setq d 250.0))(setq p1 (getpoint "哪侧:"))(command "OFFSET" d ss p1 "")(setvar "blipmode" 0)(command "erase" "p" ""))(DEFUN C:Z0 (/ SSS1 n s1 old1 new1 s2 old2 new2 ) (prompt "\\n\\r 加载Z轴坐标归零程序。

  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
描述：在条件为真时执行循环动作 语法：dowhile condition program 参数： 返回： 例子：(set `n 0)
(dowhile (greater 5 (set `n (n+1)))
(printstr “time:” n “\n”) )
Cond
描述：多分支选择语句，遇到第一个为真的条件执行相应的动作 语法：cond
Read
描述：lisp 程序暂停并等待用户在键盘上的输入
语法：（read） 参数： 返回：输入的表达式 例子：（set `a(read)）键入 helloword 并回车，则 a 的值为 helloword
运算符，逻辑预算
And
描述：求一个表的各个成员真（T）假（NIL）值，当遇到 NIL 时停止求值即 返回 NIL，否则返回最后一个真值。 语法：and 成员 1 成员 2 …….. 参数： 返回： 例子：（and 1 2 NIL 3 4）判断到 NIL 时返回
(set `a “aaaa”) (set `b “bb”) (implode a b)返回 aaaabb
六．文件处理语句
Loadfile
描述：装载一个 lisp 文件 语法：loadfile filename 参数：filename 文件名 返回：返回文件的内容 例子：（loadfile test6）
Setp
描述：设置局部变量 语法： 参数： 返回： 例子：同 set
Unset
描述：取消全局变量或局部变量的设置 语法：unset `name 参数：name 变量名 返回：变量名 例子：（unset `str）
Define defun
描述：定义一个函数 语法：define fun_name(fun_argv)
(set `x (+ x 1)) (goto LOOP) )#注意：标号 LOOP 不能在 goto 语句所在 的 prog 之外
表处理语句
Car
描述：求一个表的第一个成员 语法：car table 参数： 返回：第一个成员，可能是一个原子也可能是一个表 例子：（set `table `((abc 123 )(bcd 334)(ddf 223))）
* times
描述：先分别求各个表的值，再求左右表的积 语法：* 表 1 表 2…….
Times 表 1 表 2 参数： 返回： 例子：（* 1.1 2 3）值为 6.6
（* 3）值为 3 （+ 1 2 （* 2.1 4）值为 11.4
/ divde
描述：先分别求各个表的值，再以左结合方式求所有表之间的商 语法：/ 表 1 表 2….. 参数： 返回： 例子：(/ 16 8 2)值为 1
Defun fun_name(fun_argv) 参数：fun_name 函数名
Fun_argv 函数的参数列表 返回：函数名 例子：（
String
描述：将某个值转换成字符串型 语法：string value 参数：value 被转换的值 返回：被转换后的值 例子：（set `a 12）声明数值型变量 a=12
(condition1 program1) (condition2 program2) ………………….. 参数： 返回：如果没有符合条件的语句，返回 NIL，如果成功的条件只含有一个元 素，那么这个元素本身的值就是返回值。 例子：（cond
(errno (return NIL)) (T （return（car pkg））) )
filestat
描述：返回文件的相关状态 语法：filestat filename 参数：filename 文件名
返回：若文件不存在返回 NIL，否则，返回一个有五个成员的表 第一个成员:文件名 第二个成员：文件属性 c 代表字符特殊设备，b 代表块特殊设备 p 代 表 FIFO 缓冲区，d 代表目录，-代表除了上述几种文件的文件 第三个成员：文件最后修改日期 第四个成员；文件最后修改时间 第五个成员；文件长度
数据类型，数据定义
Set
描述：设置全局变量 语法：set `name value 参数：name 变量名；value 变量值 返回：变量值 例子：(set `str “this is a string”)#声明一个字符串 str 其值为 this is a string
(set `number 1234)#声明一个数值型变量 number 其值为 1234
Min
描述： 语法： 参数： 返回： 例子：参照 max
Greaterp
描述：比较两个值的大小 语法：greaterp value1 value2 参数： 返回：若 value1 > value2 返回 T，否则返回 NIL 例子：
Lessp
描述：比较两个值的大小 语法：greaterp value1 value2 参数： 返回：若 value1 < value2 返回 T，否则返回 NIL 例子：
(set `value (car table)) value 的值为（abc 123） (set `value (car (car tabe))) value 的值为 abc
Cdr
描述：求一个表除去第一个成员后的所有成员 语法：cdr table 参数： 返回：除去第一个成员后的所有成员，一定是一个表 例子：
(+ a 123) 正确 (set `a(string a))将 a 转换成字符串型 (+ a 123)错误
Number
描述： 语法： 返回： 例子：参照 string
数据输入输出
Print
描述：显示表 语法： 参数： 返回： 例子： （set `a `(d b e)）
(print a) ( set `d “lhw”) (print d)
(Putvalue “dd” 56 table)返回((aa:12)(bb:23)(cc:34)(dd:56))
Getvalue
描述：根据一个成员的名字从表中取回它的值 语法：getvalue name table 参数：name 名字
Table 表名 返回：返回成员的值 例子：(set `table `((“aa” 12)(“bb” 23)(“cc” 34)))
Prog
描述：声明一个过程，在这个过程中可以声明局部变量 语法：prog 语句 参数： 返回： 例子：（prog（）
（set `x (* x 3)） (printstr “runx=” x) )
Goto
描述：无条件转向语句 语法：goto 语句标号 参数： 返回： 例子：（set `x 1）
(prog () LOOP (printstr “x=” x) (and (greatrt 10 x)
Cons
描述：表的构造器，作用于一张表，向其中插入一个新的第一元素 语法：cons table1 table2 参数：table1 新的第一元素，table2 被作用的表 返回：插入新元素的表 例子：（set `table1 “hello”）
(set `table2 “world”) (set `table3(cons(table1 table2)))table3 的值为(hello:world)
explode
描述：把一个原子拆成一个表 语法：explode atom 参数：atom 被拆的原子 返回：拆开后形成的表 例子：（set `a def）
(set `b (explode a))#b 为（d e f） （set `c (car b)） 返回 d
Implode
描述：把若干原子合成一个原子 语法：implode atom1 atom2 …… 参数：atom1 atom2…..原子名 返回：合成后的原子 例子：（implode `a `b `c）返回 abc
Value 要截掉的某个数 返回：截掉后的数 例子：（prec 2 8.4676）其值为 8.46
（prec 3 8.4676）其值为 8.467 （prec 2 8）其值为 8.00
Max
描述：对所有表分别求值，再返回其中最大值 语法：max 表 1 表 参数： 返回：最大值 例子：（max 2 8.46 8 2.2 (+1 2)（- 4 3））其值为 8.46
Savefile
描述：将一个表保存到文件中 语法：savefile filename table 参数：filename 文件名字
Table 表名 返回：保存的内容 例子：1）（set `table `(a b c)）
(savefile test.txt table)#则 text.txt 的内容为（a b c） 2)(savefile test.txt (eval (load test2.txt))) #test.txt 和 test2.txt 内容相同
Eval
描述：求表的值 语法：eval 表 参数： 返回： 例子：（eval (+ 2 3)返回值为 5
（set `fun `(print “hello word”)） (eval fun)返回 hello word
Atom
描述：判断一个对象是否为一个原子（表中最小单元） 语法：atom object 参数：object 被判断的对象 返回：若为原子返回 T，否则返回 NIL 例子：（set `a “dd”）
Or
描述：求一个表的真（T）假（NIL）值，当遇到真值时停止求值即返回真值， 否则返回 NIL 语法：or 表 1 表 2 。。。。 参数： 返回： 例子：（or 1 2 NIL 3 4）当判断到 1 时即返回
Not
描述：对一个表达式求非 语法：not 表达式 参数： 返回： 例子：
+ plus
描述：先分别求各个表的值，再求所有表的和 语法：+ 表 1 表 2……..
Equal
描述：先对两个表分别求值，在判断这两个值是否相等 语法：equal 表 1 表 2 参数： 返回：若相等返回 T，否则返回 NIL 例子：（equal 2 3）返回 NIL