AutoCAD辅助设计基础与应用 教学课件 彭超 王杰鹏 第11章 AutoCAD二次开发技术.doc

《AutoCAD辅助设计基础与应用 教学课件 彭超 王杰鹏 第11章 AutoCAD二次开发技术.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第11讲AutoCAD二次开发技术第11讲AutoCAD二次开发技术245第11讲AutoCAD二次开发技术一、教学目的本讲主要学习AutoCAD二次开发技术。二、知识要点1.VisualLISP的界面。2.LISP/VLISP程序的编译。3.LISP/VLISP程序的调试方法。三、教学重点、难点及其解决方法1.熟悉各功能区的作用。解决方法：教师课堂演示+学生上机实际操作2.Command函数中的一些说明。解决方法："line"对应line；"0,0"对应0,0；空双引号""代表按回车键。3.逻辑错误。解决方法：应详细

2、掌握计算机语言，平常多看多练。四、教学过程11.1VisualLISP的界面初步AutoLISP是AutoCAD所支持的一种内嵌式高级编程语言。使用AutoLISP可以直接调用几乎所有的AutoCAD命令，使用户能够充分地对AutoCAD进行二次开发。1.功能使用AutoLISP语言可以对AutoCAD进行二次开发。2.执行命令方式命令行：VLISP菜单：选择【工具】→【AutoLISP】→【VisualLISP编辑器】命令3.操作步骤选择【工具】→【AutoLISP】→【VisualLISP编辑器】菜单命令，弹出【V

3、isualLISP】对话框，如图11.1所示。245第11讲AutoCAD二次开发技术图11.VisualLISP对话框4.参数说明菜单区：由此执行VLISP编辑命令。常用工具按钮区：可快速地执行常用的VLISP编辑命令。程序编辑窗口区：在此编辑LISP、VLISP、DCL等程序源代码文件。控制台窗口区：在此可执行许多VLISP语法命令。状态栏区：用于显示目前环境的状态。11.2撰写LISP/VLISP程序初步AutoLISP允许用户把每一条AutoLISP语句有机地组合起来，以文件的形式来执行其功能，这类文件称为Au

4、toLISP程序。11.2.1AutoCAD程序部分可以按以下步骤来进行整个AutoLISP程序的编写与执行。➊启动AutoCAD2008，然后选择【工具】Ø【AutoLISP】Ø【VisualLISP编辑器】命令。➋在程序编辑窗口中输入以下文本（注意：以下每一条语句前面的数字例如（1）、（2）等是为了方便稍后的语法说明，并非程序的正文文本）。(1);;;HelloWorldAutoLISPProgram-------firstlisp.lsp(2);;;function:drawacircleandprint"Hel

5、loWorld"(3)(4)(defunc:firstlisp(/centerptradius)(5)(setvar"cmdecho"0)(6)(setqcenterpt(list1001000))(7)(setqradius50)(8)(command"circle"centerptradius)(9)(prompt"HelloWorld!")(10)(princ)(11))分析：程序的第（1）、（2）行是批注，以分号“；”开头的表示此行为批注。批注行是不执行的，用来提醒或者说明该程序的设计重点或者设计内容。第（4）

6、行是命令的定义语法，后面括号内斜线后面的变量名称表示该变量是暂时性的变量。第（5）行用来设定245第11讲AutoCAD二次开发技术cmdecho系统变量为0，cmdecho系统变量用来控制当AutoLISP的Command函数执行时，AutoCAD是否显示提示与输入。第（6）、（7）行表示将圆的圆心与半径的值分别指派给变量centerpt与radius。第（8）行则是调用AutoCAD的circle命令，并根据centerpt与radius的值来执行画圆操作。第（9）行表示要在程序编辑窗口区中打印出“HelloWor

7、ld!”的字样。第（10）行是第（9）行的动作执行命令。第（11）行是第（4）行的对称括号。11.2.2VLISP程序部分可以按照以下的步骤进行整个VLISP程序的编写与执行。➊启动AutoCAD2008，然后选择【工具】Ø【AutoLISP】Ø【VisualLISP编辑器】命令。➋在程序编辑窗口中输入以下的程序文本（注意：以下每一条语句前面的数字例如（1）、（2）等是为了方便稍后的语法说明，并非程序的正文文本）。(1);;;HelloWorldVisualLISPProgram------firstvlisp.lsp

8、(2);;;function:drawacircleandprint"HelloWorld"(3)(4)(defunc:firstlisp(/centerptradius)(5)(setvar"cmdecho"0)(6)(vl-load-com)(7)(setqacadObject(vlax-get-acad-object))(8