1、 Lisp 教程一Lisp 基础知识二对话框基础一基本知识 第 1 节 -基本知识AutoLISP 是一种针对扩充及自订 AutoCAD 函数机能而产生,以 LISP 为基础的程序设计语言.LISP 本身于 50年代末期出现,是一种擅于处理串行文字(List of Processing),属第四代人工智能(Artificial Intelligence)的计算机语言.目的是令使用者充份利用 AutoCAD 进行开发,直接增加及修改 AutoCAD 指令. AutoLisp 语言建基于普通的 LISP 语言上,并扩充了许多适用于 CAD 的特殊功能而形成. 是一种能以直译方式(不须先行编译 )亦
2、可于 AutoCAD 内部执行的直译性程序语言. 程序容易学习及撰写,程序即使出错亦不会对操作系统(如 DOS,WINDOWS)有不良影响. 数据及程序均统一以串行 (List)结构表示. 可直接调用几乎全部的 AutoCAD 命令. 既具备一般高级语言的基本结构和功能,亦有一般高级语言没有的强大图形处理能力. 内建于 AutoCAD 应用程序,不须另行购买; 亦不须使用特定的编辑器或开发环境. 可配合 AutoCAD 提供的 PDB,建立 DCL(Dialog Control Language)文件创建对话框. 缺点 : 执行速度较 ObjectArx(旧称 ARX,以 C 或 C+程序开发
3、,取代以前的 ADS)程序慢; 原程序不易保护;对低阶的硬件数据不易存取.第 2 节 -函数 (Function)在 AutoLISP 程序语言中所有的成份都是以函数的形式出现,AutoLISP 程序就是顺序执行连串的函数.函数的运行过程就是对函数的求值(结果) 过程; 函数的基本语法如下:(函数名称 参数 1 参数 2)e.g. (PRINC “AutoLISP Programming“)每一个完整的函数必须包在一对小括号( )内,左边为开括号,右边为关括号;如有若干数量的开括号,则一定有同等数量的关括号对应. 左边开括号后紧随函数名称. 函数名称与参数之间,或参数与参数之间须最少留一个空格
4、. 函数可有一个或多个参数(也可能没有参数), 视该函数而定 . 函数名称不分大小写,即大小写字母视为相同. 第 3 节 -数据型态 (Data Type)整数 (INT)没有小数字的数值,32 位有号数,范围从+2,147,483,647 到-2,147,483,648实数 (REAL)带小数字的数值,以倍精度浮点格式储存(最少 14 位小数) e.g. 12.5 当数值在 1 与-1 之间时,必须加上前导零 e.g. 0.05 可以科学记号表示 : 在 E 或 e 后加上次方值 e.g. 4.1e-6 字符串 (STR)一般文字,其前后必须加上双引号 “ e.g. “AutoCAD“ 控制
5、字符或脱逸码必须为小写,且须在字符前加上反斜线 e.g. “AutoCAD“ 像素名称 (ENAME)是指定给图文件内对象的指针(Pointer,为 16 进位的数字卷标)e.g. 像素名称在图文件内是唯一的,不会重复对象的像素名称只在目前作业中有效,再开启图档时,会指定新的像素名称予该对象档案 (FILE)以 OPEN 函数所开启档案的指针,作为其它函数(读写该档案 )的自变量选集 (PICKSET)用 SSGET 等函数建立的一个或多个对象的集合或群组转化 (VARIANT)可将像素名称转换为可与 ActiveX 配搭使用的 VLA-Object 对象符号 (SYM)用以储存静态数据的名称
6、;例如内建或使用者定义的函数 符号名称不分大小写,可由任意长度的可打印字符组成;但下列的字符除外: 左括号 ( 右括号 ) 句点 . 单引号 双引号 “ 分号 ; 表 (LIST)亦称为串行,是放在一对小括号 ( ) 内,一个或多个元素的有序集合 e.g. (1.0 “Lisp“ ( ) (5.6 7) 元素可以是字符串,符号,整数或实数;也可以是另一个表 元素与元素之间要用空格隔开,但元素与小括号之间则可以不隔空格 为便于存取表内各元素,每个元素均有其序号;从表的左边开始,第一个元素序号为 0,依此类推 表的大小即为其顶层元素的数量(内层嵌套式的表,视为单一元素) 点对(Dotted Pai
7、r)亦是表的一种 ;表内有 2 个元素,中间以一圆点分隔,且元素与圆点之间亦须以空格分开 若表内没有任何元素,称为空串行或空表;以 ( ) 或 (NIL) 表示第 4 节 -变数 (Variable)为程序执行中动态储存数据的符号名称;主要分为 2 类:区域(Local)变量 又称为局部变量 ;该变量只在该程序段落中有效,不能为其它程序使用全域(Global)变量 又称为整体变量;变量在所有程序段落中均可使用变量名称与符号的限制相同,使用时宜采用有意义及易于辨别的名称 变量在赋值或使用前无须先行设定 相同的变量可以储存不同型态的数据(但同一时间内只可储存一种型态) 在指定新的数据之前,变量储存
8、的内容会保持不变 赋值将数据给予指定的变量储存 以内建函数 SETQ 进行(可用于绘图模式的指令行或 AutoLISP 程序),其语法如下: (SETQ 变量名称 1 资料 1 变量名称 2 资料 2 )e.g. (SETQ NAME “David“ AGE 37 WEIGHT 72.5 POINT (LIST 10 20)在函数名称之后,各参数以两个一组,每组左边为变量名称,右边为存入变量的数据 亦可将变量名称赋以空值(NIL) : e.g. (SETQ OCCUPATION NIL)要显示变量所储存的数据,可以使用内建函数 PRINC(可用于绘图模式的指令行或 AutoLISP 程序),其
9、语法如下 : (PRINC 变量名称 )e.g. COMMAND : (PRINC NAME) Result : David“David“ 在绘图模式中,亦可于指令行中使用感叹号 ! 来显示变量内容,或作为指令选项的输入值;语法如下 : !变量名称e.g. COMMAND : !NAME Result : “David“ 在 Visual LISP 的主控台窗口中,于提示符号 _$ 后键入要显示的变量名称 _$变量名称e.g. _$NAME要检查变量所储存的数据型态,可使用内建函数 TYPE;语法如下: (TYPE 变量名称)e.g. COMMAND : (TYPE NAME) Result
10、: STR 若检查的变量没有储存数据,则会传回 NIL第 5 节 -练习 (Exercises)将四个坐标分别存入四个变量中,并以 LINE 或 PLINE 指令,配合四个坐标变量,画出正四边形. COMMAND : (SETQ POINT1 (LIST 0 0) POINT2 (LIST 0 10) POINT3 (LIST 10 10) POINT4 (LIST 10 0) COMMAND : LINE ;直线段指令 COMMAND : !POINT1 ;第一点 (左下角起点) COMMAND : !POINT2 ;第二点 (左上角) COMMAND : !POINT3 ;第三点 (右上角
11、) COMMAND : !POINT4 ;第四点 (右下角) COMMAND : C ;自动联机至起点以关闭四边形 画圆 : 将圆心坐标及半径长度分别存入两个变量中 (变量名称及数据型态自订) COMMAND : (SETQ CEN (LIST 0 0) RAD 20) ;将圆心点设为坐标 0,0;半径为 20 COMMAND : CIRCLE ;执行划圆指令 Specify center : !CEN ;在提示后以变量 CEN 响应输入 Specify radius : !RAD ;在提示后以变量 RAD 响应输入 将不同型态的数据,分多次存入相同的变数内;每次均以 PRINC 及 TYPE
12、 函数显示变量内容及其数据型态 COMMAND : (SETQ TEMP 1.2) ;将实数 1.2 存入变数 TEMP COMMAND : !TEMP Result : 1.2 COMMAND : (TYPE TEMP) Result : REAL COMMAND : (SETQ TEMP “AutoLISP“) ;将字符串存入变量 TEMP COMMAND : !TEMP Result : “AutoLISP“ COMMAND : (TYPE TEMP) Result : STR 二数值资料第 1 节 -基本运算加函数(+ 数值参数 1 数值参数 2 )e.g. (+ 2.5 4 6) R
13、esult : 12.5 函数的结果为各参数之总和 若仅提供一个参数,则以 0 加上此参数的结果为返回值 若没有提供任何参数则传回 0;各参数须为整数或实数型态 若所有参数均为整数,结果亦为整数;若其中一个参数为实数型态,结果会转换为实数 减函数(- 数值参数 1 数值参数 2 )e.g. (- 10 2 3) Result : 5 结果为第一个(最左边)参数减去其右边各参数的总和 若只提供一个参数,返回值为 0 减去该参数的结果 若没有提供任何参数则传回 0;各参数须为整数或实数型态 若所有参数均为整数,结果亦为整数;若其中一个参数为实数型态,结果会转换为实数 乘函数(* 数值参数 1 数值
14、参数 2 )e.g. (* 2 3 4) Result : 24 结果为所有参数的乘积 若只提供一个参数,则返回值为该参数乘以 1 的结果 若没有提供任何参数则传回 0;各参数须为整数或实数型态 若所有参数均为整数,结果亦为整数;若其中一个参数为实数型态,结果会转换为实数 除函数(/ 数值参数 1 数值参数 2 )e.g. (/ 24 2 3) Result : 4 结果为第一个(最左边)参数除以其右边各参数的乘积 若仅提供一个参数,则返回值为该参数除以 1 的结果 若没有提供任何参数则传回 0;各参数须为整数或实数型态 若所有参数均为整数,结果亦为整数;若其中一个参数为实数型态,结果会转换为
15、实数 注意 : 在本篇教程中,各函数的数值参数 ,均可以变量(储存值只可以是整数或实数,且不可以是空值 nil)取代第 2 节 -练习 (Exercises)计算式 (2+4)*3COMMAND : (* 3 (+ 2 4) Result : 18 计算式 (50-8*5)/4COMMAND : (/ (- 50 (* 8 5) 4) Result : 2 注意 : 上式的正确答案应是 2.5,因为函数中的各参数均为整数,所以传回的结果亦为整数递增及递减递增(1+ 数值参数 )e.g. (1+ 2) Result : 3 递减(1- 数值参数 )e.g. (1- 4) Result : 3 三
16、角函数 (Trinagular Function)正弦值(SIN 弧度参数)e.g. (SIN 1) Result : 0.841471 余弦值(COS 弧度参数)e.g. (COS 1) Result : 0.540302 反正切值(ATAN 弧度参数)e.g. (ATAN 1) Result : 0.785398 第 3 节 -其它数值处理次方值(EXPT 数值参数 次方值 )e.g. (EXPT 2 4) Result : 16 若参数及次方值两个均为整数,返回值亦是整数;若其中一个为实数,结果为实数 开方根(SQRT 数值参数 )e.g. (SQRT 30) Result : 5.47
17、723 绝对值(ABS 数值参数 )e.g. (ABS -123) Result : 123 余数(REM 数值参数 1 数值参数 2 )e.g. (REM 50 26 5) = (REM (REM 50 26) 5) Result : 4 将参数 1 整除参数 2 的余数若参数多于 2 个时,则会将余数再整除下一个参数,再得出余数;依此类推若其中一个参数为实数时,则结果为实数;否则为整数 最大公约数(GCD 数值参数 1 数值参数 2 )e.g. (GCD 81 57) Result : 3 两个参数均必须为整数值型态 自然对数(LOG 数值参数 )e.g. (LOG 3.5) Result
18、 : 1.25276 是 EXP 函数的反函数;传回值为实数型态 自然反对数(EXP 数值参数 )e.g. (EXP 1.25276) Result : 3.49999 是 LOG 函数的反函数 ;传回值为实数型态 第 4 节 -数值资料转型实数转整数(FIX 数值参数 )e.g. (FIX 12.56) Result : 12 只会截去小数部份(小数字不会 4 舍 5 入) 整数转实数(FLOAT 数值参数 )e.g. (FLOAT 12) Result : 12.0 整数转字符串(ITOA 数值参数 )e.g. (ITOA -17) Result : “-17“ 数值转字符串(RTOS 数
19、值参数 模式 小数字 )e.g. (RTOS 17.23333 2 3) Result : 12.266 若不设定模式,则依系统变量 LUNITS 的设定值转换数值为字符串 若不设定小数字,则依系统变量 LUPREC 的设定值转换 模式设定值可以是下列数值之一 : 1 = 科学记号 2 = 十进制 3 = 英呎及十进制英吋 4 = 英呎及分数位英吋 5 = 分数 当选用的模式为 3,4 或 5,则传回的字符串受系统变量 UNITMODE 影响 弪度转字符串(ANGTOS 角度参数 模式 小数字 )e.g. (ANGTOS 0.785398 0) Result : “45“e.g. (ANGTO
20、S 0.785398 4) Result : “N 45d E“ 若不设定模式,则依系统变量 AUNITS 的设定值转换数值为字符串 若不设定小数字,则依系统变量 AUPREC 的设定值转换 模式设定值可以是下列数值之一 : 0 = 度 1 = 度/分/秒 2 = 分度量 3 = 弪度 4 = 土地测量单位 当选用的模式为 4,则传回的字符串受系统变量 UNITMODE 影响 反函数为 ANGTOF;参阅第 5 篇教程 第 5 节 -数值资料检查数值(NUMBERP 数值参数 )e.g. (NUMBERP -3.45) Result : Te.g. (NUMBERP “AutoLISP“) R
21、esult : nil 注意 : 在范例的传回值中,T 表示函数的结果为真( 成立),nil 表示结果为假(不成立)负数值(MINUSP 数值参数 )e.g. (MINUSP -3.45) Result : Te.g. (MINUSP 0) Result : nile.g. (MINUSP 3.45) Result : nil 零值(ZEROP 数值参数 )e.g. (ZEROP 0) Result : T e.g. (ZEROP 3.45) Result : nil 其它应用最大值(MAX 数值参数 1 数值参数 2 )e.g. (MAX -88 5 2) Result : 5 若没有提供任
22、何参数,则传回值为 0最小值(MIN 数值参数 1 数值参数 2 )e.g. (MIN -88 5 2) Result : -88 若没有提供任何参数,则传回值为 0第 6 节 -练习 (Exercises)计算下列算式 : (+ 1234567890 1234567890) Result : -1825831516 上式中两个数值参数均为整数,而结果值大于整数型态所能容许之范围;固导致发生溢位问题,产生无效的结果.修正算式如下 : 只要将其中一个参数改为实数型态即可 .(+ 1234567890.0 1234567890) Result : 2.46914e+009 计算下列算式 : (+
23、9876543210 1234567890) Result : 1.11111e+010 上式中两个数值参数均为整数,但其中一个(第一个) 参数巳大于整数型态所能容许之范围 ;系统会自动将此参数先行转为实数型态才计算.计算下列算式 : (FIX (SQRT (+ 1 (MAX 20 10 40 30) Result : 6 - 最先执行的是最内层的算式 (MAX 20 10 40 30) ,求出最大值为 40- 其次执行加函数,将 MAX 函数所得的最大值加 1,结果为 41- 再利函数 SQRT,将 41 开方根 ,结果为 6.4031- 最后使用 FIX 函数,截去其小数字,得到最后的结果
24、为 6 三程序设计第 1 节 -使用者定义函数是将一群表示式组合成一个函数或指令 可应用于绘图模式的指令行提示,Visual LISP 主控台,或供其它自定义函数内的表示式呼叫使用 AutoLISP 原始程序代码均以纯文字格式存盘,扩展名为 LSP(2000 版可编译成扩展名为 FAS 的档案 可以一般文字编辑器进行开发,如 DOS 的 EDIT,WINDOWS 的 WORD 或 WORDPAD 等 一个自定函数内最少要有一个表达式 在原程序文件(LSP)里,自定义函数以 DEFUN 函数开始;其语法如下 :(DEFUN C: 函数名称 ( 自变量串行 . / 局部变数串行 . ) 表达式 .
25、)在呼叫带有自变量的自定函数时,必须同时提供与定义函数时,同等数量的参数,使各参数传入自定函数的各自变量中 自变量被视为一种特殊类型的局部变量,无法用于该自定函数以外的其它函数 若自定函数中无须设定任何自变量,亦必须以空串行 ( )加在函数名称之后 若有提供局部变量,必须以斜线 / 加在局部变量的开头(即使前面没有自变量串行) 各自变量,斜线,局部变量之间要以空格分隔;但与左右小括号之间则不须以空格分开 若自变量串行中有相同名称的自变量出现,则会忽略第一个以后的相同自变量;变数亦是一样 若在函数名称前加上 C:,表示该函数可以在绘图模式的指令行提示下,其执行方式与内建函数相同; 亦可以在任何内
26、建命令(执行中)的提示后,以通透方式执行(但须将函数名称包在一对小括号中) 若在函数名称前没有加上 C:,在指令行提示下,必须将函数名称包在一对小括号中才可执行 不可以在执行一自定函数时,以通透方式执行另一自定函数 第 2 节 -加载程序自定函数在使用前,都要将其所在的程序文件(扩展名为 LSP)加载才可执行 ACAD.LSP 程序文件(预设在 SUPPORT 子目录内)会在启动 AutoCAD 时自动加载 (LOAD “程序文件名称“ 加载失败 )e.g. (LOAD “TEST“)若程序文件之文件名为 LSP,则在程序文件名称之后,可以不加上扩展名 若有需要,系统会顺序尝试其它的扩展名 :
27、 VLX FAS LSP 若程序文件不在系统的支持目录下,则需在文件名前加上目录路径注意 : 必须以正斜线 / 或两个反斜线 作为目录的分隔符 可以在加载失败的参数中提供字符串,以供加载失败时显示;亦可提供有效的自定函数,该函数在加载程序文件失败时会被执行 e.g. (LOAD “TEST“ “Load Fail“) 或 (LOAD “TEST“ (DOERROR)注意 :在程序文件加载后,在提示行显示的返回值,一般是该程序文件中,最后被定义的函数名称 或是在程序文件内没有包含在自定函数中,最后一个表达式的执行结果 第 3 节 -练习 (Exercises)启动文字编辑器,编写一 AutoLI
28、SP 程序作两个同心圆 (第 1 个圆半径为 50,第 2 个圆半径为 80),程序代码如下所示 : (DEFUN C: 2CIRCLE () (SETQ CEN (LIST 0 0) RAD 50) (COMMAND CIRCLE CEN RAD) (COMMAND CIRCLE CEN (+ RAD 30) - 输入后以纯文字格式存盘(C:TEST.LSP) - 在 AutoCAD 绘图模式的指令行提示后,用 LOAD 函数将程序文件加载 COMMAND : (LOAD “C:/TEST“) - 在指令行提示后,输入程序( 函数)名称执行 COMMAND : 2CIRCLE 程序说明1 使
29、用 DEFUN 建立自定函数的名称,并用 SETQ 函数将中心点(LIST 0 0)存入变数 CEN,半径(50)存入变数RAD 中 2 使用 COMMAND 函数执行 AutoCAD 内建指令 CIRCLE,并以变量 CEN(圆的中心点)及变数 RAD(圆的半径)回应 3 与第 2 行大致相同,但在指定其半径时,先将储存半径的变量加 30,使划出半径为 80 的圆;注意最右边的关括号,与第 1 行 DEFUN 左边的开括号是一对的 启动文字编辑器,开启 TEST.LSP 程序文件,复制 2CIRCLE 至新程序 2C,并改为传入自变量方式执行; 程序代码如下 : (DEFUN 2C (CEN
30、 RAD) (COMMAND CIRCLE CEN RAD) (COMMAND CIRCLE CEN (+ RAD 30) - 输入后以纯文字格式存盘 - 在 AutoCAD 绘图模式的指令行提示后,用 LOAD 函数将程序文件重新加载 - 在指令行提示后,输入程序( 函数)名称执行 COMMAND : (2C (LIST 0 0) 50) 第 4 节 -批注单行批注 分号 ;表示在分号右边(同一行)的字符均为批注,程序执行时会将其忽略多行批注 ;| |;表示在两个批注符号中间所有字符皆为批注,即使字符跨越多行关系运算在各个关系运算中,都会传回一逻辑值;若关系成立,传回 T,否则会传回 nil
31、 各参数可以是字符串,整数或实数型态;若以字符串进行比较,则会以字符串的 ASCII 码为准 若函数中只有一个参数,传回值恒为 T 等于函数(= 参数 1 参数 2 )会将参数 1 与其后各个参数比较,若全部相等则传回 T,否则传回 nil e.g. (= 2 2.0) Result : T e.g. (= “A“ CHR(65) Result : T 不等于函数(/= 参数 1 参数 2 )若参数 1 不等于其后任何一个参数,即传回 T e.g. (/= 1 2.0) Result : T e.g. (/= “a“ CHR(65) Result : T e.g. (/= 10 30 40 1
32、0 20) Result : T 小于函数( 参数 1 参数 2 )各参数顺序以 2 个为一组比较,若各组左边的参数均大于右边的参数,即传回 T e.g. ( 1 2) Result : nil e.g. ( “a“ CHR(65) Result : nil 小于或等于函数(= 参数 1 参数 2 )各参数顺序以 2 个为一组比较,若各组左边的参数均大于或等于右边的参数,即传回 T e.g. (= 1 2) Result : nil e.g. (= 2 2) Result : T e.g. (= “a“ CHR(65) Result : nil 第 5 节 -逻辑运算且运算(AND 表达式 )
33、若各表达式的传回值均为 T,函数即返回 T 值; 若其中一个传回值为 nil,函数传回 nil e.g. (AND ( 8 5) Result : T 或运算(OR 表达式 )若各表达式的传回值均为 nil,函数即返回 nil 值;若其中一个传回值为 T,函数传回 T e.g. (OR ( 1 2) ( 8 5) Result : T 否定运算(NOT 表达式 )若表达式的传回值为 T,函数即返回 nil 值; 相反若表达式传回值为 nil,函数传回 T 可用于检查传回值是否为 nil 另有一 NULL 函数与 NOT 函数功能相似 e.g. (NOT ( NUM 200) - 输入后存盘(纯
34、文字格式) - 在 AutoCAD 绘图模式的指令行提示符号后,使用 LOAD 函数重新加载程序文件 COMMAND : (LOAD “C:/TEST“) - 在 AutoCAD 绘图模式的指令行提示符号后,输入自定函数名称及参数执行 COMMAND : (AIR 175) Result : nil COMMAND : (AIR 215) Result : T 四流程控制第 1 节 -条件判断是利用条件函数,配合关系及逻辑运算所设定的一些准则,令程序自行分析,因应情况作出适当行动.单一条件(IF 条件表达式 是表达式 否表达式 )函数先检查条件表达式,若其传回值为 T,便会执行其后的是表达式
35、若有提供否表达式,且条件表达式的传回值为 nil,函数将不会执行 (跳过)是表达式而执行否表达式 若没有提供否表达式,且条件表达式的传回值为 nil 时 ,函数将不作任何事情 IF 函数可以巢状方式嵌套,即在是或否的表达式中加入另一个 IF 函数 练习 (Exercises)判断空气污染指数 : 大于 100 = Very High, 51 至 100 = High, 26 至 50 = Medium, 25 或以下 = Low - 启动编辑器,开启 C:/TEST.LSP 程序文件; 新增 AIR-1 自定函数,程序代码如下 : (DEFUN AIR-1 (NUM) (IF ( NUM 10
36、0) (PRINC “Very High“) (IF (AND ( NUM 50) ( NUM 25) ( NUM 50) (PRINC (IF ( NUM 100) “Very high“ “High“) (PRINC (IF ( NUM 25) “Medium“ “Low“) (PRINC) 程序说明1 设定函数名称,并将数据存入自变量 NUM 内;用 IF 函数判断变量 NUM 是否大于 50;若条件成立(变量 NUM 大于 50)时,再用另一个 IF 函数判断变量是否大于 100;若条件成立(变量 NUM 大于 100)时,使用 PRINC 函数显示字符串 Very High,否则显示
37、 High 2 若在第 1 个 IF 函数判断中,条件不成立(变量 NUM 不大于 50)时;再用另一个 IF 函数判断变量是否大于 25;若条件成立(NUM 大于 25)时,显示字符串 Medium,否则显示字符串 Low3 是一个没有提供任何自变量的 PRINC 函数; 用以抑制显示答案时尾部符加的 nil 或重复的传回值;而最右一个关括号,是用以对应第 1 行最左边的开括号 注意 : 第 1 行最后一个关括号是对应前面的 PRINC 函数,尾 2 的关括号则是对应 IF 函数 (判断 NUM 是否大于100) 第 2 行最后一个关括号是对应第 1 行的 IF 函数 (判断 NUM 是否大
38、于 50),尾 2 的关括号则是对应 PRINC函数,尾 3 的关括号则是对应 IF 函数 (判断 NUM 是否大于 25) 最右边的关括号是对应第 1 行最左边的开括号 PROGN 函数在以上各范例中,执行的表达式均为单一的函数运算;若要在表达式中顺序执行一连串的函数,便要将各函数包含在一个 PROGN 函数内; 函数的传回值会是该 PROGN 函数中,最后一个表达式的运算结果 - 修改 TEST.LSP 程序文件的 AIR-1 程序,第 1 个 IF 函数如下,其余的 IF 函数请自行修改 e.g. (IF ( NUM 100) (PROGN (SETQ DISP “Very High“)
39、 (PRINC DISP)注意 : 最后一个关括号是对应前面的 IF 函数 (判断变量 NUM 是否大于 100) 尾 2 的关括号是对应 PROGN 函数 (用以包含 SETQ 及 PRINC 函数) 尾 3 的关括号是对应 PRINC 函数的 第 2 节 -条件判断多重条件(COND (条件表达式 是表达式) )函数会顺序检查各条件表达式;直到其中一个条件成立(传回 T),即执行该条件式所对应的是表达式每个条件表达式只对应一个是表达式,而没有否表达式若条件式成立且执行对应的是表达式后,则不会再对余下的其它条件表达式进行检查若只有条件表达式而没有对应之是表达式,则只会传回条件表达式的逻辑值若
40、没有提供任何条件表达式及是表达式,函数传回值恒为 nil 练习 (Exercises)新增程序 AIR-3,以改善上一课 AIR-1 程序; 用一个 COND 函数判断多个条件表达式 DEFUN AIR-3 (NUM) (COND ( NUM 200) (PRINC “Severe“) ( NUM 100) (PRINC “Very High“) ( NUM 50) (PRINC “High“) ( NUM 25) (PRINC “Medium“) ( NUM 0) (PRINC “Low“) (T (PRINC “Cannot Check“) (PRINC) 程序说明1 设定函数名称,并将数
41、据存入自变量 NUM 内;用 COND 函数进行多重判断 2 判断变量 NUM 是否大于 200,若条件成立,则显示 Severe 讯息;第 3 至 6 行依此类推 7 注意条件式为一个 T 字母,表示条件式恒为真(成立), 显示讯息 Cannot Check作用是当以上各条件式均不成立时(变量小于或等于 0),即执行此一表达式 第 3 节 -循环 (Loop)配合条件判断,关系及逻辑运算,令程序不断重复一些动作,以提高效率及减少重复动作时的人为错误可以多个循环形成巢状(嵌套式 )循环,即在一个循环内嵌套另一个 (或多个)循环指定的重复次数必须为正整数,亦可以是储存正整数的变量名称 重复指定次
42、数(REPEAT 重复次数 表达式 )e.g. (REPEAT 10 (PRINC “David“) ;重复显示 David 字符串 10 次 重复(WHILE 条件表达式 是表达式 )若条件表达式的传回值为 T,即会顺序执行函数内各表达式各表达式顺序执行完后,程序会返回函数的开头,重新检查条件表达式的传回值若条件表达式的传回值为 nil,函数内各表达式将不会被执行 e.g. (SETQ COUNT 1) ;将 1 存入变数 COUNT (WHILE (= COUNT 10) ;WHILE 函数并检查变量 COUNT 是否=10 (PRINC “David“) ;若条件成立则以 PRINC 函
43、数显示 David 字符串 (SETQ COUNT (1+ COUNT) ;变量 COUNT 递增 1,并将新值重新存入变量 COUNT 中取代原值 注意 : 第 4 行最右边的关括号 ,是对应第 2 行 WHILE 函数的开括号无限循环又称为死循环,即循环的条件判断式传回值恒为 T,令循环不断重复而无法结束;在上例中 : - 若 WHILE 函数的条件表达式设定为 (T) ;即条件永远成立 - 不作 SETQ 函数,或不将变量 COUNT 递增 ;变量 COUNT 储存值恒久不变,导致条件式永远成立 第 4 节 -练习 (Exercises)编写一程序 SUM 并将自变量存在 NUM 变量内,计算 1+2+3+4 至变数 NUM 的总和 (DEFUN SUM (NUM) (SETQ COUNT 1 TOTAL 0) (WHILE (= COUNT NUM) (SETQ TOTAL (+ TOTAL COUNT) COUNT (1+ COUNT) ) (PRINC TOTAL) (PRINC) 程序说明1 设定函数 SU
