AutoLISP和Visual LISP.ppt

LISP（List Processing，表处理解释语言）诞生于20世纪50年代末期，是人工智能学科领域广泛应用的程序设计语言。 AutoLISP语言是Autodesk公司为用户提供的在AutoCAD平台上进行二次开发的早期语言。 AutoLISP不仅具备一般高级基本结构与功能，而且还具有强大的图形处理功能。由于AutoLISP易于掌握，因此，是AutoCAD用户使用较为广泛的编程语言之一 Visual LISP，对AutoLISP是一次重大改进，增强了AutoCAD的二次开发能力。可使用户方便地用AutoLISP语言进行程序开发中的编写程序代码、调试程序等操作。Visual LISP包括文本编辑器、格式编排器、语法检查器、源代码调试器、检验和监视工具、文件编译器、工程管理系统、上下文相关帮助与自动匹配功能和智能化控制台等。 3.1.2.（if 测试条件表达式 表达式1 [表达式2]） 若测试条件表达式结果为真，执行表达式1，否则，执行表达式2。 测试条件 表达式 表达式1 成立 表达式2 测试条件 表达式 表达式1 成立 不成立 (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。先分析下列程序代码： (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.1.3. (progn 表达式...) 该函数将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.4 循环结构 1. (repeat 整数n 表达式 …) 重复执行n次，对所有的表达式求值，返回最后一个表达式的计算结果。例如： (setq a 1 b 100) (repeat 10 (setq a (1+ a)) 其它表达式 … (setq b (+ 10 b)) ) 执行结果：a等于11，b等于200，返回值为200。 2. (while 测试式 表达式 …) 若测试结果不为nil，执行各表达式, 直至测试结果为nil。例如： (setq i 1 a 10) (while (= i 10) (setq a (+ a 10)) 其它表达式 … (setq i (1+ i )) ) 执行结果：i等于11，a等于110，返回值为11。 每调用一个函数，都会得到