郭佩民
（宇宙钢丝绳有限公司，贵州 贵阳 550017）
摘 要 介绍钢丝在连续拉拔加工时常用的6种配模工艺，利用EXCEL软件自带的VB编辑功能，以第1道次部分压缩率稍小、第2道最大、以后依次减小的配模工艺为例，编制出拉丝配模工艺计算表。给出编制的配模程序，并以进线Ф3.3 mm,出线Ф1.2 mm，拉拔10道次为例，说明软件的使用方法和计算结果。应用表明，采用该方法可以快捷、直观、方便地计算出拉丝配模结果，适应性强，稍作改动就可以应用到各种拉拔工艺上。 关键词 EXCEL表格；VB编辑器；配模计算；拉拔工艺
中图分类号 TG352
1 拉丝配模的计算
在钢丝的连续拉拔生产过程中，进行拉丝配模的计算是一项极为重要的工作，钢丝生产企业
技术人员很早就进行过探讨，[1-4]文献[5]就用EXCEL表格对水箱拉丝机的配模进行了计算，用EXCEL软件自带的VB编辑功能可以更简捷、快速地制定出拉拔工艺要求的配模参数。
在钢丝生产过程中，确定钢丝拉拔道次以后，在总压缩率相同的条件下通常有6种各道次部分压缩率的分配方式，[6]如图1所示。在图1中，曲线1表示拉拔中各道次部分压缩率平均分配；曲线2表示拉拔中第一道次部分压缩率最大，以后依次减小；曲线3表示拉拔中第1道次部分压缩率最大，中间平，以后依次减小；曲线4表示拉拔中第1道次部分压缩率最小，第3、4道最大，以后依次减小；曲线5表示拉拔中第1道次部分压缩率稍小，第2道最大，以后依次减小；曲线6表示拉拔中各道次部分率交替变化，形成“波浪”式分配。
图1 6种拉拔工艺的拉丝模部分压缩率分配方式
在实际生产中，常常采用曲线5的拉丝配模方式进行生产，这种方式可以使拉拔后的成品钢丝获得良好的综合性能，因此，笔者以曲线5的拉拔配模工艺为例进行程序编制。
2 拉丝配模计算程序的编制
2.1 编制过程
根据拉拔工艺曲线5的配模方式，先依据平均压缩率确定第1道次的部分压缩率，再确定第2道次与第1道次的比值，然后利用计算机强大的计算功能，在预设的基准系数上使用循环计算得出各道次的部分压缩率。当其计算出的部分压缩率之和与压缩率总和基本相等时，计算结束，并将计算的参数值返回到预设的表格内。
在EXCEL表格内制定出恰当的格式，如图2所示。 旋转座椅采用EXCEL表格自带的VB工具箱设置一个“输入后点击”按钮，在EXCEL表格右侧单元格Sheet1.Cells(3, 9) 、Sheet1.Cells(4, 9)、 Sheet1.Cells(5, 9)内分别将总压缩率、平均压缩率、压缩率总和的计算值预置在单元格内。
拉丝配模工艺计算 |
| | | | usb暖手鼠标垫 | | | | | | | |
输入半成品直径（mm） | 3.30 | | | 总压缩率（%） | 86.78 | | | |
输入成品直径（mm） | 1.20 | | | 实时调试平均压缩率（%） | 18.32 | | | |
输入实际拉拔道次 | 10 | | | 压缩率总和 | 183.17 | | | |
输入第一道次压缩率（%） | 17.50 | | | | | | | | | |
输入第二道次压缩率比值 | 1.15 | | | | | | | | | |
| | | | | | | | | | | |
拉拔道次 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 总压缩率（%） |
配模直径（mm） | 3.00 | 2.68 | 2.40 | 2.16 | 1.95 | 1.76 | 1.59 | 1.44 | 1.31 | 1.20 |
配模偏差（mm） | ±0.03 | ±0.03 | ±0.03 | ±0.03 | ±0.03 | ±0.03 | ±0.02 | ±0.02 | ±0.02 | ±0.02 |
部份压缩率（%） | 17.36 | 20.20 | 19.80 | 19.00 | 18.50 | 18.54 | 18.39 | 17.98 | 17.24 | 16.09 | 86.8% 熔炼焊剂 |
| | | | | | | | | | | |
图2 拉丝配模工艺计算表
黄斑对焦2.2 程序输入
在EXCEL表格自带的VB编辑器中，输入以下语句。
Sheet1.Cells(12, 2) = Sheet1.Cells(6, 3)
Sheet1.Cells(12, 3) = Sheet1.Cells(7, 3) * Sheet1.Cells(6, 3)
'部分压缩率循环计算
a = 0.85 'a 设定为基准系数
b = 0 'b 设定为循环次数
Do
b = b + 1
c = Sheet1.Cells(12, 2) + Sheet1.Cells(12, 3)
For n = 3 To Sheet1.Cells(5, 3)
Sheet1.Cells(12, n + 1) = Sheet1.Cells(12, n) * a
c = c + Sheet1.Cells(12, n + 1)
Next n
a = a + 0.001
If b > 1000 Then Exit Do
Loop Until Abs(Sheet1.Cells(5, 9) - c) < 0.5
'模径确定
Sheet1.Cells(10, 2) = Format$(Sheet1.Cells(3, 3) * ((1 - Sheet1.Cells(12, 2) / 100) ^ (1 / 2)), "0.00")
Sheet1.Cells(10, 3) = Format$(Sheet1.Cells(10, 2) * ((1 - Sheet1.Cells(12, 3) / 100) ^ (1 /
2)), "0.00")
For m= 3 To Sheet1.Cells(5, 3)
Sheet1.Cells(10, m + 1) = Format$(Sheet1.Cells(10, m) * ((1 - Sheet1.Cells(12, m + 1) / 100) ^ (1 / 2)), "0.00")
Next m
For e = 1 To Sheet1.Cells(5, 3) - 1
Sheet1.Cells(12, 2) = Format$((1 - (Sheet1.Cells(10, 2) / Sheet1.Cells(3, 3)) ^ 2) * 100, "00.00")
Sheet1.Cells(12, e + 2) = Format$((1 - (Sheet1.Cells(10, e + 2) / Sheet1.Cells(10, e + 1)) ^ 2) * 100, "00.00")
Next e
'公差确定
For d = 1 To Sheet1.Cells(5, 3)
If Sheet1.Cells(10, d + 1) >= 0.595 And Sheet1.Cells(10, d + 1) < 1.6 Then
Sheet1.Cells(11, d + 1) = "±0.02"
ElseIf Sheet1.Cells(10, d + 1) >= 1.6 Then
Sheet1.Cells(11, d + 1) = "±0.03"
Else
Sheet1.Cells(11, d + 1) = "±0.01"
End If
Next d
3 使用及效果
以进线Ф3.30 mm，出线Ф1.20 mm，拉拔道次为10为例，第1道次压缩率与第2道次比值取1.15，将参数输入图2指定位置，计算结果如图2所示。可见，采用EXCEL表格中自带的VB编辑功能进行拉丝配模计算，可以快捷、直观、方便的得出配模结果，适应性强，稍作改动就可以应用到其他拉拔工艺的配模计算，并可直接打印计算结果，也可以存档备查，便于生产管理。
参考文献
[1] 殷祥华. 拉拔路线的计算法[J].金属制品，1978，4（3）：23-25.
[2] 安小雪. “ＣＡＤ”—拉拔工艺设计软件[J].金属制品，1987汽车分动器，13（5）：55-57.
[3] 郑克平. 关于滑动式拉丝机配模参数τ和Ｔ的确定原则及计算机配模计算程序[J].金属制品，1990，16（1）：23-28.
[4] 向文才. 一个用于水箱拉丝机配模的BASIC程序[J].金属制品，1994，20（2）：39-40.
[5] 徐 嘉. 水箱拉丝机的配模计算[J].金属制品，2007，33（4）：38-40.
[6] 李志深. 钢丝生产工艺[M].郑州：湘潭钢铁公司职工大学，冶金部金属制品情报网，1992：页码。
（收稿日期：2009-08-20）
作者简介
郭佩民 1960年生，宇宙钢丝绳有限公司市场部工程师。
豫公网安备41160202000603
站长QQ:729038198
关于我们
投诉建议