用Autolisp对AutoCAD进行二次开发

《用Autolisp对AutoCAD进行二次开发》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、用AutoLISP对AutoCAD进行二次开发一、什么是CAD的二次开发？（为什么需要对CAD进行二次开发）我们在设计、绘图时采用AutoCAD、ProE、Solidwork、UG等设计软件，在复杂问题或特殊用途的设计中，各种软件的原有功能往往难以解决问题，例如CAD里没有直接绘制正弦曲线和抛物线等曲线的命令。因此，只是会使用各软件的基本功能是不够的，根据我们的特殊用途进行软件的用户化定制和二次开发，往往能够大大提高工作效率和技术水平。二、什么是AutoLisp？如何用其进行二次开发？AutoLISP是由Autodesk公司开发的一种LISP程序语言，LISP是ListProcessor的缩写

2、。通过autolisp编程，可以节省工程师很多时间。AutoLISP语言作为嵌入在AutoCAD内部的具有智能特点的编程语言，是开发应用AutoCAD不可缺少的工具。当前AutoCAD的二次开发工具主要有：VisualLisp（它是AutoLisp的集成开发环境）、VBA、ObjectARX和.NETAPI等，这里只介绍AutoLisp。下面由浅入深地介绍一下如何应用AutolLisp进行二次开发。最简单的应用是在命令行中编写和执行lisp语句，进行简单的计算、绘图、查询等操作。稍复杂些的就要把语句（代码）放到扩展名为lsp的文件中，用的时候先加载到CAD中，然后输入自定义的函数名执行。当开发

3、的程序越来越多，就需要进行有效的管理，使我们能方便的找到和应用这些程序。到那个程度的时候就需要用到用户自定义的工具按钮、菜单和对话框了。图1根据程序数量选择二次开发形式（1）在命令行中编写和执行程序例1：(+23)例2：(setqa2)(setqb3)(+ab)例3：(setqa2)(setqb3)(+ab)例4：(setqp1(list00))(setqp2(list200200))(command“line”p1p2“”);;语句之间不空格例5：(setqp1(list00))(setqp2(list200200))(command“line”p1p2“”);;语句之间空格;;表示语句（程

4、序代码）的注释（2）用lisp文件编写和执行程序第一步：在文本中编写和保存AutoLISP程序，文件扩展名为.lsp(defunc:sin(/lplpxlpyNxstep);;c:和自定义函数名sin之间不能有空格(initget1)(setqlp(getpoint"Leftpoint:")lpx(carlp)lpy(cadrlp))(initget7)(setqN(getint"Nnumberofcyles:"))(setqx0step0.02)(command"pline")(While(

5、x))))(setqx(+xstep)))(command"line"lp(list(+lpx(*2Npi))lpy)"")(command"line"lp(listlpx(+lpy2))(listlpx(-lpy2))"");;注意这里用的是空的双引号“”，中间不空格(command))第二步：AutoLISP程序的加载和运行在命令行中输入appload（或ap），在弹出的“加载/卸载应用程序”对话框中选择第一步保存的*.lsp文件。单击“加载”à “关闭”。执行自定义函数前先将“对象捕捉”功能关闭。运行自定义函数的过程和执行CAD标准函数（命令）是一样的，只要在命令行中输入函数名即可。（3

6、）添加用户工具按钮工具按钮能够快速、高效启动AutoLisp的应用程序。为了更方便的管理和应用我们的lisp应用程序。我们要学会创建用户自定义工具栏，并向新工具栏中添加新的工具按钮，点击这些按钮便可以很方便地执行我们自己定义的应用程序。第一步：创建新工具栏将鼠标移动到任意一个工具按钮上，单击鼠标右键。在弹出的菜单最下端找到“自定义(C)...”对话框，左键单击。弹出“自定义用户界面”对话框。右键单击工具栏图标新建一个用户自定义工具栏，命名这个新工具栏。第二步：向新工具栏添加按钮在“自定义用户界面”对话框的左下角的命令列表栏中单击“新建”按钮建立一个新命令。按住左键不放，将新的命令按钮拖到第一步

7、新建的工具栏内。这样工具栏里便添加了第一个命令，用此方法可以给工具栏添加多个新按钮。第三步：定制工具按钮属性新的工具按钮刚添加到工具栏内的时候是不能执行命令的，需要给它添加属性。在“自定义用户界面”对话框的右侧可以编辑按钮的图像和属性。其中最重要的是“特性”里的“宏”一栏。将上面pwx.lsp文件的路径和命令名输入到“宏”后面的文本框内，例如：^C^C^P(load"/F:/AutolispPro