5.Autolisp基本知识.docVIP

实验报告具体内容一般应包括：一、实验目的和要求;二、实验原理;三、主要仪器设备(软件);四、实验内容及实验数据记录;五、实验数据处理与分析;六、问题与建议 一、 实验目的 掌握Autolisp基本知识。 二、 实验内容 1. 利用AutoLISP语言进行数据运算。 2. 在AutoLISP中进行三角函数的运算。 3. 掌握基本的AutoLISP函数及其应用。 4. 加载并运行AutoLISP程序。 5. 使用Load/UnloadApplications（加载/卸载应用程序）对话框。 三、 实验仪器、设备及材料 数字计算机，AutoCAD绘图软件。 四、 实验步骤 （1）数学运算 在任何编程语言中，数学运算都是一种很重要的功能。绝大多数在编程和数学运算中经常使用的数学功能在AutoLISP中都可以实现。可以使用AutoLISP进行加、减、乘、除，还可以找到采用弧度表示的角度的正弦、余弦、反正切等。在AutoLISP 中还有许多其他运算功能，本节我们将详细讨论大部分经常使用的功能。 加运算 语法：（+num1 num2 num3...） 减运算 语法：（- num1 num2 num3...） 乘运算 语法：（* num1 num2 num3 ...） 除运算 语法：（/ num1 num2 num3 ...） （2）增量、减量和绝对值 增量 语法：（1+ number） 减量 语法：（1- number） 绝对值 语法：（abs number） （3） 三角函数 正弦（sin） 语法：(sin angle) 余弦（cos） 语法：(cos angle) 反正切（atan） 语法：（atan num1） （4）关系运算 等于 语法：(= atom1 atom2...) 不等于 语法：(/= atom1 atom2...) 小于 语法：( atom1 atom2 ...) 小于等于 语法：(= atom1 atom2....) 大于 语法：( atom1 atom2...) 大于等于 语法：(= atom1 atom2...) （5） defun、setq、getpoint和Command函数 defun函数 defun函数用于在AutoLISP程序中定义一个函数。其语法如下：(defun name [argument]) 其中：Name - - - - - - - - - - - - - -函数名。Argument - - - - - - - - -参数表。 setq函数 setq函数用于为一个变量赋值。其语法如下：(setq Name Value [Name Value] - - - - ) 其中：Name - - - - - - - - - - - - - - - -变量名。Value - - - - - - - - - - - - - - -赋给变量的值。 getpoint函数 getpoint函数等待用户为一个点输坐标值X、Y或X、Y、Z。坐标可以用键盘或是屏幕光标输入。其语法如下：(getpoint [point] [prompt]) 其中：point . - - - - - - - - -输入点或选择点。prompt - - - - - - - -在屏幕上的提示文字。 Command函数 使用Command函数可在AutoLISP程序中执行标淮的AutoCAD命令。AutoCAD命令名称和选项必需放在双引号中。其语法如下：(Command“commandname”) 其中：Command - - - -- - - - AutoLISP函数。Command name------AutoCAD 命令。 例1 编写一个程序，该程序可提示输入一个三角形的三个点，并可通过这三个点画线以形成一个三角形，如图所示。 例1图 三角形（P1,P2,P3） AutoLISP程序清单如下： ;This program will prompt you to enter three points ;of a triangle from the keyboard,or select three poiints ;by using the screen cursor.P1,P2,P3 are triangle corners. (defun c:TRIANG1() (setq P1(getpoint\n Enter first point of Tr