(6)工程图编辑模块
如果工程图上的信息不够准确、完整和规范，用户可以通过本模块对工程图加以编辑修改，选择保存按钮可以实现工程图的自动保存，如图7所示。
图7 工程图编辑界面
(7)自动装配模块
系统按照预定的装配结构和装配关系对设计好的各种模具零件进行自动装配。系统输出的模具装配体和装配体工程图，如图8和图9所示。
此时已完成该系统的主要功能，使用该系统可以促进挤压模具的高效和快速设计，并且已经在生产实践中得到充分的检验。事实证明，这套系统的工作效率很高，并且工作状况。
图8 系统输出的装配体模型
二、系统模具零件设计模块部分源程序
鉴于本系统的源程序比较庞大，所以本文只给出系统模具零件设计模块部分的源程序。
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)
图9 系统输出的工程图
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;”
c
onn.Open
‘建立ADO连接，打开数据库
newTableName = Str(2011)
A d o d c 1 . R e c o r d S o u r c e =newTableName
Adodc1.Refresh
S e t D a t a G r i d 1 . D a t a S o u r c e =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
’存入模具零件尺寸值和公差值
B o o l s t a t u s = P a r t . E x t e n s i o n .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)
‘驱动模具零件尺寸和s差
三、结论
基于S o l i d W o r k s平台的挤压模具CAD系统通过集成大量挤压模设计资料和专家经验，形成了模具设计知识库，为典型挤压零件的模具设计提供了完整的计算机辅助设计手段，甚至连一些缺乏经验的技术人员也能够利用本系统成挤压模具的设计，从而有利于挤压技术的推广和应用。同时该系统也是对SolidWorks专业化应用的开拓与实践，对其余专业从事SolidWorks本地化专业化的二次开发具有重要借鉴意义。为了使本系统更加完整，目前正在补充模具度校核部分。
