CAD课件 第14章 AutoLISP语言初步.ppt

《CAD课件 第14章 AutoLISP语言初步.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第14章AutoLISP语言初步AutoLISP是由Autodesk公司开发的一种LISP程序语言（LISP是ListProcessor的缩写），并且已经成为人工智能（AI）的首选程序语言。现在，已经有数以百计的第三方软件开发人员使用AutoLISP语言编制各种应用程序软件包。14.1VisualLISP编辑器调用：执行“工具/AutoLISP/VisualLISP编辑器”，弹出VisualLISP编辑器对话框:文本编辑窗口跟踪窗口VisualLISP控制台（在窗口中直接输入某个AutoLISP变量名，再按回车键，可查看该变量的值。）调试：工具/检查编辑器中的文字工具/加

2、载编辑器中的文字14.2加载和运行AutoLISP程序执行“工具/AutoLISP/加载”，或在命令行键入Appload（AP），弹出[加载/卸载应用程序]对话框；或在命令行键入（Load”文件名”），即利用AutoLISP函数加载程序。14.3.1数学运算功能函数1.（十数值数值…）返回：累计实数或整数数值2.（一数值数值…）返回：差值3.（*数值数值…）返回：所有数值乘积4.（/数值数值…）返回：第一个数值除以第二个以后数值的商5.（1+数值）返回：数值+16.（1-数值）返回：数值-17.（abs数值）返回：数值的绝对值8.（atan数值）返回：反正切值9.（cos

3、角度）返回：角度的余弦值，角度值为弧度14.3AutoLISP函数10.（exp数值）返回：数值的指数11.（log数值）返回：数值的自然对数值12.（max数值数值…）返回：数值中的最大值13.（min数值数值…）返回：数值中的最小值14.pi常数∏，其值约为3.141592615.（sin角度）返回：角度的正弦值，角度值为弧度16.（sqrt数值）返回：数值的平方根14.3.2函数处理、定义功能函数1.（eval表达式）返回：表达式的执行结果2.（exit）强制退出目前的应用程序3.（quit）强制退出目前的应用程序4.（defun名称自变量列表表达式．）自定函数或子

4、程序例：(defun ADNUM（/ａｂ）定义了一个含有两个局部变量ａ和ｂ的函数ADNUM。局部变量在程序的执行期间保留其值，而且只能在它所在的程序中使用。(defun Ｃ：ADNUM（）在函数名前加上Ｃ：后，此函数就可以通过在AutoCAD的Command：提示符后输入其函数名直接执行。如果没有使用Ｃ：，函数名则必须置于圆括号中。14.3.3检验与逻辑运算功能函数1.（=表达式1表达式2）比较表达式1是否等于式2，适用数值及字符串2.（／=表达式1表达式2）比较表达式1是否不等于表达式23.（＜表达式1表达式2)比较表达式1是否小于表达式24.（＜=表达式1表达式2）比

5、较表达式1是否小于等于表达式25.（＞表达式1表达式2）比较表达式1是否大于表达式26.（＞=表达式1表达式2）比较表达式1是否大于等于表达式214.3.4判断式、循环相关功能函数1.（If＜比较式＞＜表达式1＞＜表达式2＞）检算比较式结果，如果为真，执行＜表达式1＞，否则执行＜表达式2＞2.（Repeat次数[<表达式＞＜表达式＞…］）根据函数中指定的次数n反复求解表达式，变量n必须为整数。3.（While＜比较式＞＜表达式＞…）求解一个测试条件，若该条件为真（表达式不返回nil），while语句后边的操作将反复执行，直到该测试条件返回nil。4.（Cond＜比较式1＞

6、＜表达式1＞＜比较式2＞＜表达式2＞＜比较式3＞＜表达式3＞)多条件式的if整合功能5.（Progn<表达式1＞<表达式2＞…）连接其中的表达式为一组，常用于配合if、cond等函数示例1：(Repeatn(Command"circle"cr)(setqr(+rd)))示例2：(if(>yl0.0);绘制封头与槽本体间的预留值(progn(command"line"p1py1"")(command"line"p2py2"")(command"line"p3py3"")(command"line"p4py4"")))示例3：(setqinc(/(*2pi)n));根据法兰孔

7、数计算各法兰孔间角度(setqang0);设定角度变量初始值为0(setqr(/dh2));计算法兰孔内径;建立循环绘制各法兰孔(While(