计算机辅助绘图与设计-AutoCAD 2006 第3版 教学课件 ppt 作者 赵国增 主编 第二十一章

1、第二十一章 AutoLISP语言,AutoCAD系统提供了AutoLISP语言编程，它是广泛应用的人工智能语言（Common LISP） 的简化版本。AutoLISP语言是使用LISP语法并加入AutoCAD系统命令而编成一体的高级程序设计语言。因而，AutoLISP语言为AutoCAD系统提供了二次开发的功能。AutoLISP语言实际上是一组AutoCAD命令，利用这些命令可以建立自己的应用程序。AutoCAD命令和AutoLISP之间唯一的区别是，在使用AutoLISP时，必须遵循一些特定的规则，但这些规则是十分容易学习和掌握的。学习AutoLISP语言不需要求有很多的计算机编程方面的知识，只需要具有AutoCAD系统命令的基本规则即可，例如，如何启动命令和如何使用命令选项等。AutoLISP语言，除LISP的语法及习惯用法外，还加入了一些配合 AutoCAD系统使用的特有函数。,第一节 AutoLISP语言基础知识,第二节 AutoLISP语言常用函数介绍,第三节 AutoLISP语言的编程实例,思考题,第一节 AutoLISP语言基础知识,AutoLISP语言作为比较完整的编程

2、语言，提供了强大的二次开发工具，利用AutoLISP编制各种程序，可以为AutoCAD系统增加新的命令，也可以为各专业编制图形数据库。随着版本的提高，AutoLISP语言处理功能得到更进一步的增强，它可以充分利用高档微机具有的扩展内存（EXTEND DRAM）来运行更大AutoLISP 的程序、使用更大的数据量，为开发运行在AutoCAD环境下的绘图应用软件提供了更强有力的支持。 在AutoCAD采用了Common LISP最相近的语法和习惯约定，它仅是一个很小的子集，有许多特定的函数。 一、AutoLISP语言的数据类型 AutoLISP语言的数据有表、符号、字符串、实型数、整型数、子程序Subrs（builtfunctions）等。 1整型数 整型数是一个不带小数点的数字，它由“0,1,2,.,9,+,-”共十二个字符组成，其值在 -32768+32767之间。 2实型数 实型数是带有小数点的双精度浮点数，有十进制表示法和科学表示法两种。应注意绝对 值小于1的实型数的小数点左侧必须有前导0，不能直接以小数点开始；也不能以小数点结尾来直接表示实数，如：实数5.0不能写成5.。,第一节

3、 AutoLISP语言基础知识,3字符串 字符串是由一对双引号（“”）括起来的字符序列组成，这对双引号是字符串的定界符。 在AutoLISP中，“符号”和“变量”这两个词的意义相同，用于存储数据。一般以字母作为符号的开头。例如：XX,Point1,y-1等，都是合法的符号。 4表型 表是指一对相匹配的左、右圆括号之间的有序集合。表中的每一项称为表的元素，表中的元素可以是整数、实数、字符串子符，也可以是另一个表。各元素之间用一个空格来分隔。 二、AutoLISP程序的一般知识 1.AutoLISP语言的特点 AutoLISP采用的是所谓“前缀表示法”，即把运算符号放在表的第一个元素的位置，后面为其它的参数。这一点与其它高级语言，如：BASIC、C等语言不同。例如：算式5+4在 AutoLISP中要写成： (+54) 把68的值赋给变量X要写成： (setqX(*68) 其中，代表一个空格，以下含义相同。,第一节 AutoLISP语言基础知识,2.求值 每个AutoLISP程序的核心是求值程序，求值程序读入输入行，对其进行计算，然后返回计算结果。下面是AutoLISP的求值过程： 1)整型

4、数、实型数、字符串、子程序以它本身的值作为结果。 2)符号以其当前约束值作为计算结果。 3)表是根据其第一个元素的类型进行计算。 3.表达式 AutoLISP程序由一系列符号表达式组成，最简单的程序可只有一个符号表达式，一个符号表达式可分写在多行，也可将多个表达式写在一行。例如： (DEFun plus(XY) (setqZ(+X(*XY) ) 就是三行构成一个符号表达式。 所有表达式都以左小括号“(”开始，最后以右小括号“)”结束。每个表达式都有一个返回值。表达式的参数可以是一个表达式，它的返回值将被外层表达式使用。 可以直接用AutoLISP表达式去响应AutoCAD的“Command:”以获得该表达式的值， 要检验一个表达式是否正确，这也是最简单的方法。 一旦输入不正确的表达式或从文件中读入不正确的表达式，系统会提示出错信息。较多 的情况是右括号不够，这时会显示提示：n，这里n为整数，意思是缺少n个小括号，只要键 入n个右小括号即可。,第一节 AutoLISP语言基础知识,4.变量 AutoLISP的变量有四类：整数、实数、字符串和表。变量的类型由它所赋的值自动确定，在赋值之前其

5、值一直保持不变。变量名的第一个字符必须是字母。 在AutoLISP中，用函数SETQ函数给变量赋值。 例如： (setqX6) 变量X的值是整数6。 (setqX18.0) 变量X1的值是实数8.0。 (setqst“Hello！”) 变量st的值是字符串Hello!。 (setqpoint(6886)或(setqpoint(LIST6886) 变量point的值是表(6886)。,第一节 AutoLISP语言基础知识,5说明 1)为使AutoLISP不对表求值，要在表的左小括号前加单引号“”或表内最左边加LIST。 2)在AutoLISP中，一个二维点用一个两个元素的表来表示，三维点用一个三维表来表示。 3）AutoLISP语言采用一对“（）”表示一个表格，表中有表，从里到外，处理每一个表，直到全部的表格处理结束，得出处理结果。 4）AutoLISP语言可以在提示符Command：下直接输入执行，也可以在文本编辑器或字处理软件中建立好，存为扩展名为.LSP的文件，再在AutoCAD中运行。后一种方式预先用APPLOAD命令将文件装载进AutoCAD系统中。 5）一对空的引号“”表示一

6、次回车。 6）符号“；”后面的内容为提示内容，程序不执行。,返回,第二节 AutoLISP语言常用函数介绍,AutoLISP提供一些预先定义的若干函数，每一个函数都是将函数名（大写或小写）作为表中的第一元素，把函数中的变量，作为表中后面的元素，这样就可以调用该函数。下面是 一些常用的简单函数介绍。 一、数值运算函数介绍 1.加函数（） 表达式为：（元素（数）元素（数） 这个函数返回所有数的总和，数可以是整型或实型。例如： （12） 返回 3 （1234.5） 返回10.500000 2.减函数（-） 表达式为：（元素（数）元素（数） 此函数是第一个数减去第二个数返回差，如果数多于两个，其返回值是用第一个数减去以后各数之和。例如： （50 40）返回10 （5040.02）返回8.000000,第二节 AutoLISP语言常用函数介绍,3.乘函数（*） 表达式：（* 元素数）元素（数） 此函数返回所有数的积。例如： （*23）返回 6 （*234.0）返回 24.00000 4.除函数（/） 表达式：（/元素（数）元素（数） 此函数第一个数被第二个数除，返回其商，若数多于两个，其返回值是

7、用第一个数除以其余各数之积。例如： （/502） 返回 25 （/100202.0）返回 2.500000 （/12）返回为0（因为是整型数相除） 5.返回加1 表达式：（1元素（数） 此函数返回加一的结果。 例如： （15） 返回6 （117.5） 返回16.500000,第二节 AutoLISP语言常用函数介绍,6.返回减1 表达式：（1元素（数） 此函数返回数减一的结果，例如： （15） 返回4 （116.5） 返回15.500000 二、关系函数介绍 1. 等于关系函数（=） 表达式：（参数参数） 此函数为等于关系函数，如果数值相等返回T，否则返回Nil（T表示“真”或“不空”； Nil表示“假”或“空”）。例如： （44.0） 返回T （5030） 返回Nil 2.不等于关系函数（/） 表达式：（/=参数参数） 此函数为“不等于”关系函数。如果数值不相等返回T，否则返回Nil。例如： （/1020） 返回T （/55） 返回Nil,第二节 AutoLISP语言常用函数介绍,3.小于关系函数（） 表达式：（参数参数） 此函数为“小于”函数。如果靠后的参数数值大于靠前的参数数值返

8、回T，否则返回Nil。例如： （1020） 返回T （55） 返回Nil （2015） 返回Nil 4.大于关系函数（） 表达式：（参数参数） 此函数为“大于”函数。如果靠后的参数数值小于靠前的参数数值返回T，否则返回Nil。例如： （5030） 返回T （1280） 返回Nil,第二节 AutoLISP语言常用函数介绍,5.大于等于关系函数（） 表达式：（参数参数） 此函数为“大于或等于”关系函数。如果靠后的参数数值小于或等于靠前的参数数值返回T，否则返回Nil例如： （10010） 返回T （5050） 返回T （317） 返回Nil 6小于等于关系函数（） 表达式：（参数参数） 此函数为“小于或等于”关系函数。如果靠后的参数数值大于或等于靠前的参数数值返回T，否则返回Nil例如： （10010） 返回Nil （5050） 返回T （317） 返回T,第二节 AutoLISP语言常用函数介绍,三、标准函数介绍 1.绝对值函数（abs） 表达式：（abs变量（数值） 此函数返回绝对值，数可以为整数型或实型。例如： （abs-100） 返回100 （abs-11.15） 返回11.15

9、 （setqa-15） （absa） 返回4 2.正弦函数（sin） 表达式：（sin角度） 此函数为正弦函数，其角度值为弧度。例如： （sin 1.0） 返回0.841471 3.余弦函数（cos） 表达式：（cos角度） 此函数为余弦函数，角度值为弧度。例如： （cos0.0） 返回1.0000,第二节 AutoLISP语言常用函数介绍,4.反正切函数（atan） 表达式：（atan 数1数2） 此函数为反正切函数，返回角度从到。例如： （atan1.0） 返回0.785398 （atan1.0-1） 返回2.35619 5.平方根函数（sqrt） 表达式：（sqrt 变量（数） 此函数返回数的平方根，其结果为实型数。例如： （sqrt4） 返回2.0 （sqrt（*88） 返回8.0 6幂函数（exp） 表达式：（exp变量） 此函数返回幂函数值。例如： （exp1）返回值2.71828 7对数函数（log） 表达式：（log变量） 此函数返回一个实数的自然对数。例如： （log64） 返回值4.15888,第二节 AutoLISP语言常用函数介绍,8取最大值函数（max） 表达式：（max变量变量） 此函数为取最大值函数。在所有的变量数值中取最大的变量参数值。例如： （max6490101） 返回值101 （max88（+120（*910） 返回值90 9最大公约数函数（gcd） 表达式：（gcd变量变量） 此函数为取最大公约数函数。在所有的变量数值中取最大的公约数，为整型数。例如： （gcd8（+48） 返回值8 四、赋值函数（setq） 表达式：（setq符号表达式） 此函数把表达式的值赋给符号。例如： （setqa5.

《计算机辅助绘图与设计-AutoCAD 2006 第3版 教学课件 ppt 作者 赵国增 主编 第二十一章》由会员E****分享，可在线阅读，更多相关《计算机辅助绘图与设计-AutoCAD 2006 第3版 教学课件 ppt 作者 赵国增 主编 第二十一章》请在金锄头文库上搜索。