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

一、引言

　　异形切割是利用水切割机、雕刻机等专用切割机对异形金属板材、玻璃、布料、大理石等多种异形材料进行切割、图案裁剪的一种加工方法。异形切割一般适用于平面切割，针对不同材料有其特殊的加工工艺。现有的绘图编程一体化CAD/CAM软件不能满足要求，而且价格昂贵。本系统是基于绘图软件二次开发工具的自动编程系统，它以AutoCAD为开发平台，以AutoCAD VBA和VB6.0为编程语言，实现了图形处理、自动编程等功能。

二、系统的功能

　　此系统主要功能是在AutoCAD系统环境中，根据客户的CAD图形，由用户界面以交互操作方式选择或输入切割工艺参数，生成切割轨迹和G代码，然后通过代码反读，进行轨迹仿真，以便校验代码的正确性。另外，还可以进行代码的编辑和完成数控指令文件的存盘。其系统流程如图1所示。

 图1 系统功能图

三、系统开发平台

　　此系统开发利用AutoCAD良好的开放结构和具有魅力的二次开发工具VBA。AutoCAD VBA与VB有着几乎相同的开发环境和语法，它具有For Application功能，驻留在AutoCAD主程序内部，结构精简，代码运行效率高，功能强，大易于掌握，为开发程序带来了极大的方便。但是用它开发的程序没有用户自己的启动界面，且开发的程序会暴露出来。利用VB通过AutoCAD ActiveX技术建立VB与AutoCAD之间的连接，可解决上面出现的问题，建立用户启动界面与AutoCAD的有效连接，实现关键代码的整体封装。VBA的使用可以直接进入AutoCAD，在菜单工具的宏中进入VBA管理器。用VB进行编程，需要将VB与AutoCAD进行连接，在编写VB代码前，在VB编程环境中引用AutoCAD对象库，然后编写VB代码，创建AutoCAD对象，启动AutoCAD。VB与AutoCAD连接后，就可以利用AutoCAD对象及下级对象的属性和方法完成编程。下面是VB程序中启动运行AutoCAD的子程序代码。

　　Dim AcadApp As  Acad Application Public  Sub 连接 AutoCAD（）
　　On Error Resume Next
　　Set AcadApp=GetObject(, “AutoCAD.Application”)
　　If Err Then
　　Err.Clear
　　Set Acad App=Creat Object(“AutoCAD.Application”)
　　If Err Then
　　MsgBox(“不能运行AutoCAD2004,请检查是否安装了AutoCAD2004”)
　　Exit Sub
　　End If
　　End If
　　Acad App.Visible=True
　　End Sub