1、利用 EXCEL 自带 VB 编辑功能进行拉丝配模计算郭佩民 （宇宙钢丝绳有限公司，贵州 贵阳 550017）摘 要 介绍钢丝在连续拉拔加工时常用的 6 种配模工艺，利用 EXCEL 软件自带的 VB 编辑功能，以第 1 道次部分压缩率稍小、第 2道最大、以后依次减小的配模工艺为例，编制出拉丝配模工艺计算表。给出编制的配模程序，并以进线 3.3 mm,出线 1.2 mm，拉拔 10 道次为例，说明软件的使用方法和计算结果。应用表明，采用该方法可以快捷、直观、方便地计算出拉丝配模结果，适应性强，稍作改动就可以应用到各种拉拔工艺上。关键词 EXCEL 表格；VB 编辑器；配模计算；拉拔工艺中图分类
2、号 TG3521 拉丝配模的计算在钢丝的连续拉拔生产过程中，进行拉丝配模的计算是一项极为重要的工作，钢丝生产企业技术人员很早就进行过探讨， 1-4文献5就用 EXCEL 表格对水箱拉丝机的配模进行了计算，用 EXCEL 软件自带的 VB 编辑功能可以更简捷、快速地制定出拉拔工艺要求的配模参数。在钢丝生产过程中，确定钢丝拉拔道次以后，在总压缩率相同的条件下通常有 6 种各道次部分压缩率的分配方式， 6如图 1 所示。在图 1 中，曲线 1 表示拉拔中各道次部分压缩率平均分配；曲线 2 表示拉拔中第一道次部分压缩率最大，以后依次减小；曲线 3 表示拉拔中第 1 道次部分压缩率最大，中间平，以后依次
3、减小；曲线 4 表示拉拔中第 1 道次部分压缩率最小，第 3、4 道最大，以后依次减小；曲线 5 表示拉拔中第 1 道次部分压缩率稍小，第 2 道最大，以后依次减小；曲线 6 表示拉拔中各道次部分率交替变化，形成“波浪”式分配。051015202530351 2 3 4 5 6 7 8拉拔道次部分压缩率（%）164523图 1 6种拉拔工艺的拉丝模部分压缩率分配方式在实际生产中，常常采用曲线 5 的拉丝配模方式进行生产，这种方式可以使拉拔后的成品钢丝获得良好的综合性能，因此，笔者以曲线 5 的拉拔配模工艺为例进行程序编制。2 拉丝配模计算程序的编制2.1 编制过程根据拉拔工艺曲线 5 的配模方
4、式，先依据平均压缩率确定第 1 道次的部分压缩率，再确定第 2 道次与第 1 道次的比值，然后利用计算机强大的计算功能，在预设的基准系数上使用循环计算得出各道次的部分压缩率。当其计算出的部分压缩率之和与压缩率总和基本相等时，计算结束，并将计算的参数值返回到预设的表格内。在 EXCEL 表格内制定出恰当的格式，如图 2 所示。 采用 EXCEL 表格自带的 VB 工具箱设置一个“输入后点击”按钮，在 EXCEL 表格右侧单元格 Sheet1.Cells(3, 9) 、Sheet1.Cells(4, 9)、 Sheet1.Cells(5, 9)内分别将总压缩率、平均压缩率、压缩率总和的计算值预置在
5、单元格内。拉丝配模工艺计算输入半成品直径（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
6、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 设定为循环次数Dob = b + 1c = Sheet1.Cells(12, 2) + Sheet1.Cell
7、s(12, 3)For n = 3 To Sheet1.Cells(5, 3)Sheet1.Cells(12, n + 1) = Sheet1.Cells(12, n) * ac = c + Sheet1.Cells(12, n + 1)Next na = a + 0.001If b 1000 Then Exit DoLoop Until Abs(Sheet1.Cells(5, 9) - c) = 0.595 And Sheet1.Cells(10, d + 1) = 1.6 ThenSheet1.Cells(11, d + 1) = “0.03“ElseSheet1.Cells(11, d
8、+ 1) = “0.01“End IfNext d3 使用及效果以进线 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 年生，宇宙钢丝绳有限公司市场部工程师。
