基于autocad r14和vb5开发的数控自动编程系统

《基于autocad r14和vb5开发的数控自动编程系统》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、基于AutoCADR14和VB5开发的数控自动编程系统

2、第1.lunaticallyProgrammedTools)语言。　　(2)计算机辅助图形设计的自动编程。采用CAD方法，将设计好的零件图形显示在屏幕上，编程人员指定要加工的表面，并回答软件提出的一些问题，诸如对刀点、走刀方式、切削用量参数等，然后由系统进行自动编程，形成刀位数据文件或APT程序，再经后置处理，变成机床所需的NC代码。　　(3)从CAD获取信息的自动编程。编程所需的零件形状信息直接从CAD那里得到，一般利用AutoCAD提供的图形交换文件DXF接口，

3、编程人员只需进行适当工艺处理。　　由于图纸上给出的零件形状数据往往比较少，而数控系统的插补功能要求有较多的数据才能控制机床。尤其是当数控系统插补功能要求输入的数据与零件形状给出的数据不一致时，就需要进行复杂的数学运算，而在运算过程中可能产生人为的错误。而这些复杂的数学运算可由计算机快速、准确地完成。　　NC程序作为数控加工的信息载体，其正确与否直接影响零件加工质量。目前实际生产使用的NC程序，在投入加工之前通常采用机床空运行和木模、蜡模的试切，完成NC程序的检查。该方法加工准备周期长，生产成本增加，难以实现数控机床的高效

4、生产。图形仿真是目前CAD/CAPP/CAM系统中通用的NC检验方法。　　本文介绍了开发的数控软件(NumericalControlAutomaticProgrammingSystem——NCAPS)设计方案和实现方法。操作人员在实际操作数控铣床加工工件之前，先用该系统进行模拟操作。通过计算机屏幕可清晰地看到所编辑的加工程序运行的刀具切削模拟过程，并可方便地反复修改加工程序，直到被加工的“工件”符合要求为止。且该过程都在AutoCAD环境下实现。这无疑对新产品的开发、安全生产、提高生产效率及减少废品都具有实际意义。2　A

5、ctiveXAutomation对象及开发工具介绍2.1　ActiveXAutomation对象　　(1)顶层是AutoCADApplication,它除具有对象的属性和方法外，还包括两个重要的对象Preferences(参数对象)和Document(文档对象)。Preferences对象是与AutoCAD系统中参数设置相对应的对象，Document对象则是包括图形文件的所有对象集合，如BlocksCollection、ModelSpaceEntitiesCollection、PaperSpaceEntitiesColl

6、ection等一系列对象。　　(2)图形对象。BlocksCollection等属于图形对象，它是用户使用频繁的对象，是实现参数化、变量化及三维实体造型等功能的主要方式。　　(3)输出对象。输出对象控制图形文件的输出格式，如设置坐标原点、方向等。　　(4)实用对象。该对象提供AutoCAD中常用的数据转换、辅助计算等功能。2.2　开发工具　　本文以VisualBasic5.0为开发工具，给出了实例。由于编程思想是相同的，所以该方法可移到VisualC＋＋、Delphi等开发工具上。　　用VB5实现ActiveXAutom

7、ation开发的关键是要获得AutoCAD对象的指针，及创建AutoCAD.Application对象，进而创造AutoCAD的文档对象，以实现对AutoCAD中其它对象的访问，完成与AutoCAD的通讯。3　系统的组成与功能图形交互式自动编程系统处理零件程序的一般过程是：输入零件图形→输入工艺参数→运动轨迹计算→加工模拟→后置处理→程序清单→输出。NCAPS是针对数控铣床开发的，系统框架结构如图1所示，它主要包括进入AutoCADR14系统绘制零件图、工艺处理、动态校验和数控加工程序输出等功能模块。具体步骤如下：　　(

8、1)进入AutoCADR14系统绘制零件图　　它是AutoCAD实体建模过程。　　(2)工艺处理图1　NCAPS系统框架结构示意图它是第(1)步操作后对图形数据进行再加工的核心模块。利用计算机图形学技术，直接在AutoCAD环境下进行工艺干预。　　工艺干预内容包括轮廓和点位二种方式，干预过程通过鼠标事件选择实体来实现。用鼠标选取实体的先后来组成加工环(加工路线)。现以VB5编写的源程序说明如何直接从AutoCAD环境下选择实体，形成加工路线(该程序只是该模块的部分)。　　OptionExplicit　　Publicobj

9、AcadAsObject,objDocAsObject　　PrivateSubForm－Load()　　　StartAutoCAD-为对AutoCAD访问做准备　　EndSub　　PrivateSubStartAutoCAD()　　　DimDeAsString　　　SetobjAcad=GetObject(,“Aut