[计算机]利用EXCEL自带VB编辑器进行拉丝配模计投.doc

利用EXCEL自带VB编辑功能进行拉丝配模计算郭佩民 （宇宙钢丝绳有限公司，贵州 贵阳 550017）摘 要 介绍钢丝在连续拉拔加工时常用的6种配模工艺，利用EXCEL软件自带的VB编辑功能，以第1道次部分压缩率稍小、第2道最大、以后依次减小的配模工艺为例，编制出拉丝配模工艺计算表。给出编制的配模程序，并以进线3.3 mm,出线1.2 mm，拉拔10道次为例，说明软件的使用方法和计算结果。应用表明，采用该方法可以快捷、直观、方便地计算出拉丝配模结果，适应性强，稍作改动就可以应用到各种拉拔工艺上。关键词 EXCEL表格；VB编辑器；配模计算；拉拔工艺中图分类号 TG3521 拉丝配模的计算在钢丝的连续拉拔生产过程中，进行拉丝配模的计算是一项极为重要的工作，钢丝生产企业技术人员很早就进行过探讨，1-4文献5就用EXCEL表格对水箱拉丝机的配模进行了计算，用EXCEL软件自带的VB编辑功能可以更简捷、快速地制定出拉拔工艺要求的配模参数。在钢丝生产过程中，确定钢丝拉拔道次以后，在总压缩率相同的条件下通常有6种各道次部分压缩率的分配方式，6如图1所示。在图1中，曲线1表示拉拔中各道次部分压缩率平均分配；曲线2表示拉拔中第一道次部分压缩率最大，以后依次减小；曲线3表示拉拔中第1道次部分压缩率最大，中间平，以后依次减小；曲线4表示拉拔中第1道次部分压缩率最小，第3、4道最大，以后依次减小；曲线5表示拉拔中第1道次部分压缩率稍小，第2道最大，以后依次减小；曲线6表示拉拔中各道次部分率交替变化，形成“波浪”式分配。0510152025303512345678拉拔道次部分压缩率（%）164523图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)内分别将总压缩率、平均压缩率、压缩率总和的计算值预置在单元格内。拉丝配模工艺计算输入半成品直径（mm）3.30 总压缩率（%）86.78 输入成品直径（mm）1.20 平均压缩率（%）18.32 输入实际拉拔道次10压缩率总和183.17 输入第一道次压缩率（%）17.50 输入第二道次压缩率比值1.15 拉拔道次12345678910总压缩率（%）配模直径（mm）3.00 2.68 2.40 2.16 1.95 1.76 1.59 1.44 1.31 1.20 配模偏差（mm）0.030.030.030.030.030.030.020.020.020.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 设定为循环次数Dob = b + 1c = 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) * 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.03ElseSheet1.Cells(11, d + 1) = 0.01End 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 徐 嘉. 水箱拉丝机的