Autolisp教程.ppt

《Autolisp教程.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实习九二次开发技术§9.1themethodofAutoCADexploitation用脚本script文件（*.SCR）开发图形库；用AutoLISP语言开发绘图新命令；用objectARX(AutoCADRuntimeExtension)开发用图形数据交换文件（*.DXF）与高级语言程序交换图形数据信息，从外部开发应用程序。用VBA(VisualBasicApplication)开发§9.2AutoLISP&VisualLISPAutoLISP是专门用于对AutoCAD进行定制、二次开发的非结构化程序设计语言，它嵌套于AutoCAD内部，不仅具有一般高级语言

2、的基本结构与功能，而且具有强大的图形处理功能。VisualLISP是一个用AutoLISP语言进行程序开发的软件工具，它为使用AutoLISP语言进行程序开发提供一个集成开发环境，用户可方便地编写程序代码，调试程序。§9.3VisualLISPIntegratedexploitationenvironment在AutoCAD环境中，1.可以用VLISP命令启动VisualLISP；2.选择“工具”AutoLISP“VisualLISP编辑器”，9.3VisualLISPIntegratedexploitationenvironment菜单栏标准工具栏“调试”工具

3、栏“搜索”工具栏“视图”工具栏控制台窗口跟踪窗口状态栏“工具”工具栏通过VisualLISP集成开发环境的新建文件按钮新建一个文件或通过打开文件按钮打开已有文件后，在VisualLISP集成开发环境中会显示文本编辑器，如下图所示：文本编辑器§7.3VisualLISPIntegratedexploitationenvironment一、LoadandruntheAutoLISPprograminVisualLISPIntegratedexploitationenvironment1、LoadtheAutoLISPprogram1）启动VisualLISP集成开发

4、环境；2）编写新程序或打开已有的LISPAutoLISP程序；3）选择“工具”“加载编辑器中的文字”，即可2、RunAutoLISPprogram1)“defunc:<函数名>”格式定义：$提示符后键入：(c:函数名)后按Enter键，即可运行;2)“defun<函数名>”格式定义：_$:(函数名)需要参数时在函数名与参数间应加空格§9.4LoadandruntheAutoLISPprogram编程求1到100的整数相加之和。§9.4LoadandruntheAutoLISPprogram二、在AutoCAD环境中加载、运行AutoLISP程序1、加载AutoL

5、ISP程序选择“工具”AutoLISP“加载”命令，即执行APPLOAD命令，AutoCAD将弹出“加载/卸载应用程序”对话框，实现程序的加载或卸载；或在Command命令提示符下直接输入APPLOAD命令也可实现上述功能。如下图§9.4LoadandruntheAutoLISPprogram2、运行AutoLISP函数加载AutoLISP程序后以“defunc:<函数名>”格式定义的函数：Command命令提示符下键入函数名，按Enter键即可执行该函数；以“defun<函数名>”格式定义函数：则需在Command命令提示符下键入用括号括起来的函数名，（需要参

6、数时在函数名与参数间应加空格），按Enter键后可执行该函数。§9.5AutoLISPprogrammeProgramfileandframeofAutoLISPAutoLISP以ASC码文本格式保存.LSPAutoLISP采用“前缀表示法”：(setqX(*(+AB)(+CD))X=（A+B）*(C+D)在控制台窗口中或AutoCAD的命令窗口中输入一个表达式后按Enter键，可显示出表达式的值。§7.5AutoLISPprogramme二、thedatatypeofAutoLISPAutoLISP的数据类型通常有整数型(IN)、实数型(REAL)、字符串(

7、STR)、符号（或变量）(SYM)、表(LIST)、文件描述符、AutoCAD选择集、AutoCAD图元名、VLA对象等，其中前4种称为原子。§9.6AutoLISPfunction一、CommonsAutoLISPfunction1、赋值函数assignmentfunction(setq<符号1><表达式1>[符号2][表达式2]...)依次将各表达式的值赋给对应的符号2、数值计算函数countingfunction(+[numbernumber]...)返回所有数值的总和(-[numbernumber]...)从第一个数值中减去第二个和后面的数值，返回差值(

8、*[numbernumb