基于AutoLISP的快速生成模板外轮廓和标注外轮廓的AutoCAD二次开发.doc
《基于AutoLISP的快速生成模板外轮廓和标注外轮廓的AutoCAD二次开发.doc》由会员分享,可在线阅读,更多相关《基于AutoLISP的快速生成模板外轮廓和标注外轮廓的AutoCAD二次开发.doc(8页珍藏版)》请在三一办公上搜索。
1、基于AutoLISP的快速生成模板外轮廓和标注外轮廓的AutoCAD二次开发2011年2月第2期(总第147期)曲狂,lGUANGXIJOURNALOFLIGHTINDUSTRY计算机与信息技术基于AutoLISP的快速生成模板外轮廓和标注外轮廓的AutoCAD二次开发莫玉梅(肇庆科技职业技术学院,广东肇庆526114)【摘要】介绍用AutoLISP对AutoCAD进行二次开发,开发新命令,该命令能快速把模板的外轮廓及其尺寸和板的中心同时出现在画面上,将可以省去很多绘图时间,还可以减少错误的出现,使得绘图的效率大大提高.【关键词】AutoLISP;AutoCAD;二次开发【中图分类号】TP39
2、1.72【文献标识码】A【文章编号】10032673(2011)0262021前言AutoCAD是目前微机上应用最为广泛的通用交互式计算机辅助绘图与设计软件包.在工程设计各专业中,AutoCAD以其强大的图形支撑能力和开放的结构体系,无可争辩地成为CAD市场的龙头.随着CAD制图的普及,在AutoCAD上开发出的各专业软件也越来越多,但由于这些软件大多不是具体为用户量身定做,具有一定的普及适用性;或者由于用户各人习惯原因,不适用;或者达不到用户要求的高效率.针对上述问题,各行业的工程师应该利用相关的开发技术,开发符合各自设计工作特殊需要的应用程序,还有利于提高工作效率.AutoLISP语言是一
3、种嵌在AutoCAD内部的LISP编程语言,既具有一般高级语言的基本结构和功能,包括赋值,打印,条件,循环,文件等函数.又具备AutoCAD所特有的图形处理能力.利用AutoLISP语言编制的程序可以直接增加,修改和调用AutoCAD命令,在各种工程CAD系统的开发中起着重要的作用.在AutoCAD2000以后,通过VisualLISPrvLISP)集成开发环境(IntegratedDevelopmentEnvironment,IDE)所提供的编辑器,凋试器以及其他工具,用户可方便地编写和修改AutoLISP源程序代码,调试,运行AutoLISP程序.2开发目的针对某个运用AutoCAD软件绘
4、图的部门或公司,特别是生产模架的公司,绘图中出现参数化的标准比较多,运用AutoLISP对AutoCAD进行二次开发,使得AutoCAD具有更强大,更适用,更高效,更准确的命令,使得该设计和绘图部门有统一快捷的AutoCAD新命令.在模具设计和模板的绘图过程中,模板的外轮廓及其标注是必不可少的,同时绘制模板所花去的时间在整个绘图中占有相当的比重.这个必不可少的过程,对于有着多个模板的模具,如能达到使用一个命令就能把模板的外轮廓及其尺寸和板的中心同时出现在画面上,将可以省去很多绘图时间,还可以减少错误的出现,使得绘图的效率大大的提高.3开发的关键技术和程序3.1程序的预期目标把模板长和宽设定为参
5、数,希望能在输入模板长100和模板宽80后,自动的将图形根据输入的长和宽画出,并自动定义板的中心,同时板的轮廓尺寸自动标注,并注明x轴,Y轴.程序运行过程中,所有的所有的线型,比例,文本样式等均做好设定.使用该命令能在20秒内完成,如图1所示.图13.2构思程序流程及相关变量构思的程序流程图(1)定出程序名为aa.1sp.(2)构思程序流程,如图2所示.图2(3)相关变量的设定,如图3所示.图33.3程序编写过程的程序fdefunc:aaf/filolderr0cmOCOoblolderroplopwplpwP1p2【作者简介】莫玉梅(1982一),女,广西南宁人,机械工程专业课教师,机械工程
6、助教,研究方向:软件二次开发.62p3p4p5p6p7p8sllllpw1)(setqolderrerror)(setqerroraiabort)(setqocm(getvarcmdecho;0cm获得当前作用命令(setqobl(getvarblipmode);0bl获得当前点记模式(setqOCO(getvarcecolor);oco获得当前颜色(setvarcmdecho0);使用AutoLIsP(c0mmand)函数,不响应提示与输人数据(command一.UNDO一GROUP)(setvarblipmodeo);关闭控制点记符号(十字光点)(command一.1inetypescen
7、ter);加载中心线command一.1inetypeShidden);加载虚线command一.1inetypeScontinuous);加载实线;$以下是模的外轮廓尺寸(setqpl(getreal(strcatn请输入模板长:)pw(getreal(strcatn请输入模板宽:);以下是获取绘制的模板外轮廓的四个点P1p2p3p4和画中心线的四个点p5p7p6p8料(setqP10ist(/pl2.0)一1)(/pw2.0)一1)p2Oist(carp1)(牛一1cadrP1)p3Oist(/pl2.o)(/pw2.0)p4Oistearp3)cadrP1)p5Oist(一earP1)(
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 基于 AutoLISP 快速 生成 模板 外轮 标注 AutoCAD 二次开发
链接地址:https://www.31ppt.com/p-2883982.html