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室

（提供证书，详情请联系我们）