今天要说的(上海模具CAD机械制图培训)如何通过已有的冲裁力计算公式在VBA下给自已的AUTOCAD添加这一个功能，在正式制作这个工具前,我们先来了解一下各种常见冲压材料的抗剪强度,如下:
Case "Q235": 抗剪强度 = "260"
Case "SECC": 抗剪强度 = "280"
Case "SUS430": 抗剪强度 = "360"
Case "SUS301": 抗剪强度 = "730"
Case "SUS304": 抗剪强度 = "630"
Case "青铜": 抗剪强度 ="400"
Case "黃銅": 抗剪强度 ="300"
Case "硅钢": 抗剪强度 ="480"
Case "不锈鋼": 抗剪强度 ="560"
Case "熱軋鋼板": 抗剪强度 ="260"
Case "冷軋鋼板": 抗剪强度 ="260"
Case "結構用鋼板": 抗剪强度 ="330"
这是我从程序的(模具CAD机械制图培训)代码中直接复制过来的,每一行对应一种材料,可能有的朋友对这些数据不认同.不过部落一直都是按这张表来计算的.做好的冲裁力计算功能运行效果如下图:
制作这个工具的思路是,首先在屏幕上选取需要计算的图形,这里只限定多义线和圆两种图形,完成选取后,在后台计算出所需的冲裁力,再弹出窗口,显示所需的冲床吨位,主要计算部分的代码如下:
Private SubCommandButton1_Click()
Me.Hide
Dim sset As AcadSelectionSet
Set sset = CreateSSet()
Dim FT, FD
CreateSSetFilter FT, FD, -4, ""
sset.SelectOnScreen FT, FD
If sset.Count = 0 Then Exit Sub
Dim Zhouchang As Double, i As Integer, Ent As AcadEntity
Dim Acadpl As AcadLWPolyline, Acadarc1 As AcadCircle
Zhouchang = 0
For Each Ent In sset
If Ent.EntityType = AcLWPolyline Then
Set Acadpl = Ent
Zhouchang = Zhouchang + Acadpl.Length
End If
If Ent.EntityType = acCircle Then
Set Acadarc1 = Ent
Zhouchang = Zhouchang + Acadarc1.Radius * 2 * PI
End If
Next
Dim P As Integer, T As Double, K As Double
T = Cdou(ComboBox1.text)
K = Cdou(ComboBox3.text)
P = K * Zhouchang * T * 1.3 / 9800
Label1.Caption = "合計需要"& P & "吨的冲床"
Me.Show
End Sub
上面的代码中有一个CreateSSet的(上海CAD机械制图培训)函数调用,关于这个函数,您可以在公众号之前的文章五金模具设计之CAD二次开发用VBA来制做选择集Selection找到. 输出信息这个按钮的作用是当冲裁力计算出来以后,我们将对应的文字信息输出到CAD图形中,关于这一部分代码的话,就不给出了.直接用给文字功能就可以了.当然,您还可以在这个窗口加入脱料力的计算等.
本文来源：网络。整理：模具CAD机械制图培训老师。如有侵权，请联系小编更正。(版权声明：推送文章我们都会注明作者和来源，除非确实无法确认。部分文章推送时未能与原作者取得联系，若涉及版权问题，烦请原作者联系我们。)
源自名校
学院资质
专注15年
400-616-2336
张老师
非凡学院公众号