Solidworks模具设计培训 机械设计软件
为庆祝东莞校区新开业，从9月1日--9月30日，三校区所有课程一律9折优惠酬宾！
Solidworks模具设计培训 机械设计软件培训
SolidWorks平台下的挤压模具CAD系统
系统模具零件设计模块部分源程序
鉴于本系统的源程序比较庞大，所以本文只给出系统模具零件设计模块
部分的源程序。
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 ***nnection
'定义ADO对象变量
ss = App.Path & "\database\"
Set conn = New ***nnection
con***nnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" &
“Persist Security Info=False;” & “Mode=read;”& “Data Source=”
& ss & “模具零件库.mdb;” FSkLR h
c u /V&1In
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 Data******unt 1
D(i) = Data***lumns(i).Value
Next
DataGrid1.Row = 1
For i = 1 To Data******unt 1
tolMax(i) = Data***lumns(i).Value
Next
DataGrid1.Row = 2
For i = 1 To Data******unt 1
tolMin(i) = Data***lumns(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”, }*S`1IWMj
“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有限元培训课程
培训内容： Solidworks动画仿真、simulation有限元分析：强度、安全系数
、正应力、撞击掉落测试、机构尺寸优化、频率分析、扭曲分析、疲劳分析
（产品生命周期计算）、设计情形等。CosmosMotion机构运动仿真：机构零
部件的质心加速度、角加速度、瞬时速度、动量、动能等运动几何关系数据
并输出数据表格及曲线图等。
培训时间：2周,学会为止：如安排一对一培训可根据学员掌握情况缩短或延
长学时。
培训对象：个人及企业培训
详细课程请关注：www.0***
或者联系咨询我们
广州有道科技----张老师
电话：020-83322285 13711241980
Q Q：503841570 2459395568
广州总部：广州越秀区东风东路808号华宫大厦17楼1710-1716室
深圳分公司：深圳龙华云峰路3号太阳能硅谷大厦A座505-507室
东莞分公司：东莞市莞城区莞太路34号东莞市创意产业中心园区11号楼506室
（提供证书，详情请联系我们）
Solidworks模具设计培训 机械设计软件培训
SolidWorks平台下的挤压模具CAD系统
系统模具零件设计模块部分源程序
鉴于本系统的源程序比较庞大，所以本文只给出系统模具零件设计模块
部分的源程序。
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 ***nnection
'定义ADO对象变量
ss = App.Path & "\database\"
Set conn = New ***nnection
con***nnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" &
“Persist Security Info=False;” & “Mode=read;”& “Data Source=”
& ss & “模具零件库.mdb;” FSkLR h
c u /V&1In
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 Data******unt 1
D(i) = Data***lumns(i).Value
Next
DataGrid1.Row = 1
For i = 1 To Data******unt 1
tolMax(i) = Data***lumns(i).Value
Next
DataGrid1.Row = 2
For i = 1 To Data******unt 1
tolMin(i) = Data***lumns(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”, }*S`1IWMj
“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有限元培训课程
培训内容： Solidworks动画仿真、simulation有限元分析：强度、安全系数
、正应力、撞击掉落测试、机构尺寸优化、频率分析、扭曲分析、疲劳分析
（产品生命周期计算）、设计情形等。CosmosMotion机构运动仿真：机构零
部件的质心加速度、角加速度、瞬时速度、动量、动能等运动几何关系数据
并输出数据表格及曲线图等。
培训时间：2周,学会为止：如安排一对一培训可根据学员掌握情况缩短或延
长学时。
培训对象：个人及企业培训
详细课程请关注：www.0***
或者联系咨询我们
广州有道科技----张老师
电话：020-83322285 13711241980
Q Q：503841570 2459395568
广州总部：广州越秀区东风东路808号华宫大厦17楼1710-1716室
深圳分公司：深圳龙华云峰路3号太阳能硅谷大厦A座505-507室
东莞分公司：东莞市莞城区莞太路34号东莞市创意产业中心园区11号楼506室
（提供证书，详情请联系我们）
