【2017年整理】利用EXCEL自带VB编辑器进行拉丝配模计(投).docVIP

利用EXCEL自带VB编辑功能进行拉丝配模计算 郭佩民 （宇宙钢丝绳有限公司，贵州 贵阳 550017） 摘 要 介绍钢丝在连续拉拔加工时常用的6种配模工艺，利用EXCEL软件自带的VB编辑功能，以第1道次部分压缩率稍小、第2道最大、以后依次减小的配模工艺为例，编制出拉丝配模工艺计算表。给出编制的配模程序，并以进线Ф3.3 mm,出线Ф1.2 mm 关键词 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表示拉拔中各道次部分率交替变化，形成“波浪”式分配。 0 0 5 10 15 20 25 30 35 1 2 3 4 5 6 7 8 拉拔道次 部分压缩率（%） 1 6 4 5 2 3 图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 拉拔道次 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.Cell