面向异形切割的数控自动编程系统的开发.doc

面向异形切割的数控自动编程系统的开发 ，希望对大家有所帮助。
欢迎下载！
面向异形切割的数控自动编程系统的开发 作者：上海史德化李莉敏林金生
一、引言 异形切割是利用水切割机、雕刻机等专用切割机对异形金属板材、玻璃、布料、大理石等多种异形材料进行切割、图案裁剪的一种加工方法。
异形切割一般适用于平面切割，针对不同材料有其特殊的加工工艺。
现有的绘图编程一体化CAD/CAM软件不能满足要求，而且价格昂贵。
本系统是基于绘图软件二次开发工具的自动编程系统，它以AutoCAD为开发平台，以AutoCADVBA和VB6.0为编程语言，实现了图形处理、自动编程等功能。

二、系统的功能 此系统主要功能是在AutoCAD系统环境中，根据客户的CAD图形，由用户界面以交互操作方式选择或输入切割工艺参数，生成切割轨迹和G代码，然后通过代码反读，进行轨迹仿真，以便校验代码的正确性。
另外，还可以进行代码的编辑和完成数控指令文件的存盘。
其系统流程如图1所示。
图1系统功能图
三、系统开发平台 此系统开发利用AutoCAD良好的开放结构和具有魅力的二次开发工具VBA。
AutoCADVBA与VB有着几乎相同的开发环境和语法，它具有ForApplication功能，驻留在AutoCAD主程序内部，结构精简，代码运行效率高，功能强，大易于掌握，为开发程序带来了极大的方便。
但是用它开发的程序没有用户自己的启动界面，且开发的程序会暴露出来。
利用VB通过AutoCADActiveX技术建立VB与AutoCAD之间的连接，可解决上面出现的问题，建立用户启动界面与AutoCAD的有效连接，实现关键代码的整体封装。
VBA的使用可以直接进入AutoCAD，在菜单工具的宏中进入VBA管理器。
用VB进行编程，需要将VB与AutoCAD进行连接，在编写VB代码前，在VB编程环境中引用AutoCAD对象库，然后编写VB代码，创建AutoCAD对象，启动AutoCAD。
VB与AutoCAD连接后，就可以利用AutoCAD对象及下级对象的属性和方法完成编程。
下面是VB程序中启动运行AutoCAD的子程序代码。
DimAcadAppAsAcadApplicationPublicSub连接AutoCAD（） OnErrorResumeNext SetAcadApp=GetObject(,"AutoCAD.Application") IfErrThen Err.Clear SetAcadApp=CreatObject("AutoCAD.Application") IfErrThen MsgBox("不能运行AutoCAD2004,请检查是否安装了AutoCAD2004") ExitSub EndIf EndIf AcadApp.Visible=True EndSub
四、系统的实现 1.功能实现菜单的形成 此系统功能的实现是通过应用程序进入AutoCAD，然后在AutoCAD标准下拉菜单的帮助后面添加一项异形切割主菜单，然后在主菜单下面添加子菜单，如图2所示。
下面是实现这个过程的主要程序代码。
DimnewMenuAsAcadPopupMenu SetnewMenu=CurrMenuGroup.Menus.Add("异形切割"&Chr(Asc("&"))&"w") DimmenuItemOpen2AsAcadPopupMenuItem SetmenuItemOpen2=newMenu.AddMenuItem8