| 河南科技大学 刘毅 辛选荣 刘汀 | |
SolidWorks软件采用了特征建模技术和设计过程的全相关技术，是目前领先的、主流的三维CAD软件。它具有配置管理、协同工作、零件建模、装配设计、全相关工程图、钣金设计、有限元分析和动态仿真等多项功能，在机械制造业的应用非常广泛。该软件为用户提供了功能强大的API接口，而且具有宏录制功能，所以可以很方便地进行二次开发。本文所述的就是以SolidWorks软件为平台开发的一套挤压模具CAD系统。
系统模架库里存储了许多不同类型的模架结构，通过选择不同的模架名称，在架构选择对话框的右边将出现该模架的模型图片。选择模架的主要零件名称，可以调出该零件的模型图片和参数信息，选取三维图按钮和工程图按钮则可以分别打开对应的SolidWorks模型文件和工程图文件，如图2所示。
挤压类型包括正挤压、反挤压和复合挤压等，通过选取左边的按钮确定挤压类型，在右边就会出现该种类型的示意图和挤压件类型示意图，如图3所示。
模具组件可分为凸模组件、凹模组件、顶出组件、预应力组件和料组件等，系统建立了模具组件库供用户选择选择使用。在该模块中用户可以选择不同组件结构的任意一种形状，点选放大组件按钮可以查看对结构的详细介绍和使用场合，点击其他组件按钮可以选择其他组件，如图4所示。
通过上一步选择模具各部分的组件结构，系统将会按照组装关系将组合起来的装配结构图输出并让用户加以确认，如果用户觉得不够满意，可以点返回上层按钮重新选择各部分组件结构。如果选择的模具各部分组件不能组成一套装配图，系统将弹出一个提示框提示用户返回重选。确认后右边会出现该装配结构的零件清单，通过点选不同的零件名称按钮将出现模具零件设计模块，如图5所示。
系统建立了不同模具零件的尺寸数据库，可以在尺寸属性对话框中对零件的尺寸和公差进行修改，选取修改按钮后该零件的SolidWorks模型的尺寸和公差就会实时更新。在注解属性对话框中可以输入零件的其他属性信息，这样这些信息将在零件工程图的标题栏中显示出来。当用户满意后就可以选取保存按钮对该模型文件进行保存，如图6所示。
如果工程图上的信息不够准确、完整和规范，用户可以通过本模块对工程图加以编辑修改，选择保存按钮可以实现工程图的自动保存，如图7所示。
系统按照预定的装配结构和装配关系对设计好的各种模具零件进行自动装配。系统输出的模具装配体和装配体工程图，如图8和图9所示。
二、系统模具零件设计模块部分源程序 鉴于本系统的源程序比较庞大，所以本文只给出系统模具零件设计模块部分的源程序。 Dim ss As String Dim boolstatus As Boolean ss=App.Path &“\图形库\三维\” Set swApp=CreateObject("SldWorks.Application") swApp.Visible = True 调用SolidWorks程序 Set Part = swApp.OpenDoc6(ss & “\反挤压\6\凸模.SLDPRT”, 1, 0,“”, longstatus, longwarnings) Set Part = swApp.ActiveDoc boolstatus = Part.Extension.SelectByID(“注解”, “DCABINET”, 0,0, 0, False, 0, Nothing) 打开对应的模型文件 Dim rs As ADODB.Recordset Dim conn As ADODB.Connection 定义ADO对象变量 ss = App.Path & "\database\" Set conn = New ADODB.Connection conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & “Persist Security Info=False;” & “Mode=read;”& “Data Source=” & ss & “模具零件库.mdb;” conn.Open ‘建立ADO连接，打开数据库 newTableName = Str(2011) Adodc1.RecordSource =newTableName Adodc1.Refresh SetDataGrid1.DataSource=Adodc1 ‘打开记录集,读取模具零件型号 DataGrid1.Row = 0 For i = 1 To DataGrid1.Columns.Count 1 D(i) = DataGrid1.Columns(i).Value Next DataGrid1.Row = 1 For i = 1 To DataGrid1.Columns.Count 1 tolMax(i) = DataGrid1.Columns(i).Value Next DataGrid1.Row = 2 For i = 1 To DataGrid1.Columns.Count 1 tolMin(i) = DataGrid1.Columns(i).Value Next 存入模具零件尺寸值和公差值 Boolstatus = Part.Extension.SelectByID(“D1@草图1@凸模.SLDPRT”, “DIMENSION”, 0, 0, 0, False, 0,Nothing) Part.Parameter(“D1@草图1”).SystemValue = D(1) / 1000 retval = Part.Parameter(“D1@草图1”).SetToleranceValues(tolMin(1) /1000, tolMax(1) / 1000) ‘驱动模具零件尺寸和公差 三、结论 基于SolidWorks平台的挤压模具CAD系统通过集成大量挤压模设计资料和专家经验，形成了模具设计知识库，为典型挤压零件的模具设计提供了完整的计算机辅助设计手段，甚至连一些缺乏经验的技术人员也能够利用本系统完成挤压模具的设计，从而有利于挤压技术的推广和应用。同时该系统也是对SolidWorks专业化应用的开拓与实践，对其余专业从事SolidWorks本地化专业化的二次开发具有重要借鉴意义。为了使本系统更加完整，目前正在补充模具强度校核部分。 原载《CAD/CAM与制造业信息化》杂志 |
