Visual-LISP程序设计(第2版)第3章程序的流程控制与AutoLISP文件.ppt

第3章 程序的流程控制和 AutoLISP文件 3.1 程序的流程控制 AutoLISP程序的流程通过流程控制函数控制。 3.1.1 分支结构 1. (cond (测试表达式1 结果表达式1) [(测试表达式2 结果表达式2)] …) 该函数从第一个子表起，计算每一个子表的测试表达式，直至有一个子表的测试表达式成立为止，然后计算该子表的结果表达式，并返回这个结果表达式的值。 例如，当 i 小于等于1时，n=1；小于等于2时，n=4；小于等于3时，n=10；其它情况下n=100。用cond函数实现变量n和i 之间以上关系的源代码如下： 测试表达式1 结果表达式1 测试表达式2 结果表达式2 测试表达式n 结果表达式n 成立 成立 成立 不成立 不成立 不成立 测试表达式1 结果表达式1 测试表达式2 结果表达式2 测试表达式n 结果表达式n 成立 成立 成立 不成立 不成立 不成立 T（其余） 结果表达式 (setq n(cond ((<= i 1) 1) ((<= i 2) 4) ((<= i 3) 10) (t 100) ) ) 说明：该函数类似于C语言的switch语句， 最后一个测试表达式“t（或T）”相当于C语言的“default”，指其余的情况，例如i 等于5时，n等于100，也可以缺少这个测试表达式。与C语言switch语句不同的是，若某一测试表达式成立，即返回相应结果表达式的值，不再向下测试。例如，上述表达式中，若i 等于0，已满足第一个测试表达式(<= i 1)，返回结果表达式的1，最后结果是n等于1，运算结束。 2.（if 测试条件表达式 表达式1 [表达式2]） 若测试条件表达式结果为真，执行表达式1，否则，执行表达式2。例如： (if (> a 1) (setq b 2) ) 该表达式的含义是；如果a 大于 1，则b等于2，否则不作任何计算，求值结束。 (if (> a 1) (setq b 2) (setq b 3) ) 该表达式的含义是；如果a 大于 1，则b等于2，否则b等于3，求值结束。 注意：该函数最多只有3个变元，即测试条件表达式、表达式1和表达式2。先分析下列程序代码： 测试条件 表达式 表达式1 成立 表达式2 测试条件 表达式 表达式1 成立 不成立 (if (> a 1) (setq b 2) (print (＋ b a)) (setq b 4) (print b) ) 该程序段的本意是，若条件成立，b等于2，然后打印a与b之和，否则b等于4，然后打印b。但是在执行该程序段时，首先检查if函数变元的数量，第1个变元是测试条件表达式，它对应表达式(> a 1)，第2个变元是条件成立时执行的表达式，它对应表达式(setq b 2)，第3个变元是条件不成立时执行的表达式，它对应表达式(print (＋ b a)) ，那么后面的两个表达式就是多余的变元，因此显示“too many arguments（变元太多）”的出错信息。 若将该程序段改写为以下代码： (if (> a 1) ((setq b 2) (print (＋ b a)) ) ((setq b 4) (print b) ) ) 用括号将条件成立或不成立的多个表达式括起，虽然变元的数量改为3个，但会出现“error: bad function: 2”的出错信息。原因是在计算条件成立的表达式时，首先计算内层表(setq b 2)，将其返回值“2”作为外层表的函数名，显然这是一个坏的函数名。利用progn函数可以很好地解决了本程序段存在的问题。 3. (prong 表达式...) 该函数将n个表达式组合起来，作为if函数的一个表达式。在执行时，按顺序计算n个表达式,返回最后一个表达式的计算结果。例如： (if (> a 1) (progn (setq b 2) (print (＋ b a)) ) (progn (setq b 4) (print b) ) ) 该程序段的执行过程是，若条件成立，b等于2，然后打印a与b之和，返回a与b之和；若条件不成立，b等于4，然后打印4，返回4。 3.1.2 循环结构 1. (repeat 整数n 表达式 …) 重复执行n次，对所有的表达