CAD二次开发教程(AUTOLISP).pptVIP

Cad二次开发--AUTOLISP 入门 一、LISP编程语言概述 AutoLISP是由Autodesk公司开发的一种LISP程序语言（LISP是List Processor的缩写）。第一篇关于LISP的参考文献是由John McCarthy 在1960年4月的《ACM通讯》中发表的。 除了FORTRAN和COBOL， 大多数在六十年代早期开发出来的语言都过时了，可是 LISP却生下来，并且已经成为人工智能（AI）的首选 程序序言。AutoLISP解释程序位于AutoCAD软件包中， 然而AutoCAD R2.17及更低版本中并不包含 AutoLISP解释程序，这样，只有通过AutoCAD Ｒ2.18及更高版本才可以使用AutoLISP语言。 AutoCAD软件包中包含大多数用于产生图形的命令，但仍有某些命令末被提供。例如，AutoCAD中没有在图形文本对象内绘制矩形及作全局改变的命令。通过AutoLISP，你可以使用AutoLISP程序语言编制能够在图形文本对象内绘制矩形或作全局选择性改变的程序。事实上，可以用AutoLISP编制任何程序，或把它嵌入到菜单中，这样定制你的系统会取得更高的效率。 二、基本语法 1、一个表达式必须使用配对的括号。 2、数学运算 1.加法 格式(+ num1 num2 num3...) 此函数（＋）计算加号（＋）右边所有数字的和(+ num1 num2 num3...) 2. 减法 格式(- num1 num2 num3...） 此函数（－）从第一个数中减去第二个数（num1-num2） 4.除法 格式（ / num1 num2 num3…） 此函数（／）用第一个数除以第二个数。如果多于两个数，就用第一个数除以其后所有数的乘积［num1/（num2 × num3 ×...）］ 3、关系表达式 1.等于 格式（= atom1 atom2…） 该函数（=）检查两个元素是否相等。若相等，条件为真，函数返回Ｔ。同样，若指定的元素不相等，条件为假，函数返回nil 2.不等于 格式（／= atom1 atom2…） 该函数（／=）检查两个元素是否不相等。若不相等，条件为真，函数返回Ｔ。同样，若指定的元素相等，条件为假，函数返回nil。 3.小于 格式（＜atom1 atom2…） 该函数（＜）检查第一个元素（atomｌ）是否小于第Ｈ个元素（atomＺ）。若为真，函数返回Ｔ，否则返回nil。 4.小于等于 格式(＜= atom1 atom2...） 该函数(=)检查第一个元素(atom1)是否小于等于第二个元素(atom2),若是，函数返回Ｔ，否则返回nil。 5.大于 格式（＞ atom1 atom2…） 该函数（＞）检查第一个元素(atom1) 是否大于第二个元素（atom2）。若是，函数返回Ｔ，否则返回nil。 6.大于等于 格式（＞= atom1 atom2…） 该函数(=)检查第一个元素（atom1）的值是否大于等于第二个元素（atom2）。若是，函数返回Ｔ，否则返回nil。 三、基本函数 1.defun函数 defun函数用于在AutoLISP程序中定义函数，其格式为： (defun name［argument］） 其中name………………函数名 argument…………参数列表 示例： (defun ADNUM（），定义了一个函数ADNUM，此函数无参数，也无局部变量（ Local symbols）。这就意味着程序中用到所有变量均为全局变量。全局变量的值在程序结束时不会丢失。 (defun ADNUM (ａb c)，定义了一个含有三个参数ａ、 ｂ和c的函数ADNUM。变量ａ、 ｂ、 ｃ从程序外部获取它们的值。 (defun ADNUM（/ａ ｂ），定义了一个含有两个局部变量ａ和ｂ的函数ADNUM。局部变量在程序的执行期间保留其值，而且只能在它所在的程序中使用。 (defun Ｃ：ADNUM（），在函数名前加上Ｃ：后，此函数就可以通 过在AutoCAD的Command：提示符后输入其函数名来执行。如果没有使用Ｃ：，函数名