趙春曉，牛松森，于定益，禹曉勤，李雨儒（.天津電氣科學研究院有限公司，天津30080；.中交一航局安裝工程有限公司，天津300457）

?

基于Excel與Wincc的熱軋無縫鋼管工藝參數自動配置系統

趙春曉1，牛松森1，于定益2，禹曉勤1，李雨儒1
（1.天津電氣科學研究院有限公司，天津300180；2.中交一航局安裝工程有限公司，天津300457）

摘要：某無縫鋼管廠MPM軋機機組由2輥5連軋機機組構成，軋管時芯棒的運行是限動的，速度是可控的，芯棒由限動機構限定以恒定的速度前進。軋制過程中諸多關鍵參數需要工藝人員計算得出，采用Wincc作為組態(tài)軟件，Excel作為服務器，將工藝計算公式存入Excel，通過Wincc腳本建立工藝系統和自動控制系統的連接，實現關鍵生產參數隨工具尺寸和產品規(guī)格自動變化。

關鍵詞：無縫鋼管；芯棒限動；軋制參數

MPM熱軋無縫鋼管生產工藝，把由穿孔機生產出的具備一定內徑和壁厚的毛管，由限動芯棒系統帶入軋機，按照芯棒沿軋線運行的指定位置開始軋制和結束軋制，整個過程中要充分利用芯棒的軋制段，對于咬入位置、咬入速度、限動速度、各架軋機速度和輥縫大小都有嚴格的要求。

1　工藝說明

具體工藝過程如下。

1）穿棒段。毛管和芯棒分別由回轉機構翻至軋機前臺，芯棒限動機構拖動芯棒穿入毛管，芯棒以低速穿入毛管尾端，穿入尾端達到“尾部穿入長度”后，開始高速前進，以節(jié)約穿棒時間，減少毛管軋前溫度耗損，在此過程中，芯棒將毛管帶至軋機前，軋前擋板擋住毛管頭端。

2）備軋段。高速前進到減速位置時，芯棒速度下降到“咬入速度”，頭端先以穿棒速度進入軋機，在進入到“咬入位置”時，毛管擋板下降，夾送輥啟動并壓下至毛管外表面，芯棒帶動毛管進入軋機，直到毛管頭端接觸第1架軋輥。

3）熱軋段。毛管頭端接觸第1架軋輥，夾送輥升起并停止驅動，限動系統進入“限動速度”并保持，直至毛管尾端完全穿過孔型序列，在此過程中，毛管頭端和前部進入脫管機，經嚴格計算過的“限動速度”使得芯棒不會進入脫管機機架，同時保證芯棒利用整個軋制段的部分參與軋制。

4）回退段：軋制完成后，芯棒停止前進，并零速保持“滯留時間”，此段時間內確保毛管與芯棒脫離，完成脫管，而后芯棒開始反向運動，經高低速回退，停車定位至芯棒起始點。由回轉機構將軋后芯棒翻出軋制前臺。

以上過程中，對于芯棒，由限動機構拖動，由起始點開始，經低速穿棒—高速穿棒—咬入速度—限動速度—零速滯留—高速回退—低速回退—定位—停車，最終返回起始點。限動運行過程的咬入速度、咬入位置、限動速度，以及最高允許運行速度，是工藝要求的關鍵參數；對于軋機，各架軋輥轉速及孔型根據當前軋制規(guī)格和軋制工具參數，經工藝計算得出，在軋制過程中，軋機各架轉速保持不變，與熱軋棒線材生產不同的是熱軋鋼管工藝過程不需要速降補償，因此要求軋輥驅動電機應具備較硬的特性。軋機的各架轉速和輥縫是軋機的關鍵參數。

限動和軋機的關鍵參數如表1所示。

工藝過程所需的關鍵參數，根據當前軋制的毛管長度、毛管壁厚、計劃軋成品荒管的壁厚、使用的軋輥輥肩尺寸、輥環(huán)尺寸、芯棒外徑、限動最大速度百分比等參數，通過工藝算法計算得出。

由于產品規(guī)格多樣，需要工藝人員對以上數據進行收集并計算，進一步根據軋制模型，計算出表1中各項生產使用數據，并將這些數據傳送給操作員，操作員按照數據進行相關的調整和設定。在實際的操作中，由于按訂單生產的特性，更換規(guī)格和軋制工具的頻率較高，每次依靠工藝人員的手工計算難免出現誤差和不及時的情況，且操作者在錄入過程中，難免產生人為誤差，造成軋卡、軋廢的情況發(fā)生，消耗了一定的能源和時間成本。

2　問題的解決

為了解決這一問題，在本工程的MPM軋制自動化系統中，將工藝計算過程通過Excel內建公式實現，將工具尺寸和目標荒管的尺寸通過Wincc系統錄入，并設置相應的修改權限，Excel 和Wincc之間通過VB腳本實現數據交換。通過在Wincc畫面中設置微調功能，允許具有權限的操作員對Excel計算得到的軋制速度和輥縫進行小范圍的修正。最后將修正后的結果傳遞給PLC并執(zhí)行輸出，大大縮短了參數計算和調整時間。另一方面，Excel軟件的易用性和普及性，給軋鋼工藝技術人員修改軋制模型參數帶來了極大的方便。本系統的網絡配置如圖1所示。

Excel服務器采用工控機，同時作為Wincc服務器，以西門子S7-400系列PLC作為控制單元。通過Wincc實現數據從PLC到Excel的連接互通。操作員站允許有權限的操作員登陸到參數設置的相關頁面，設定工具尺寸等參數，并從Excel服務器獲取到參數更新。

系統的工藝數據獲取流程如圖2所示。

圖1　系統的網絡配置圖Fig.1 Network configuration diagram of the system

圖2　系統工藝數據獲取流程Fig.2　Process of data acquisition system

Wincc和S7-400系列PLC采用以太網通訊，在PLC側采用以太網通訊模塊，Wincc服務器和PLC間設置100 Mbit/s以太網，在PLC端網絡診斷，發(fā)生網絡故障時在Wincc畫面上提供報警信息。Wincc和Excel之間的通訊通過Wincc單邊編寫VBS腳本，由畫面按鈕觸發(fā)腳本動作，來實現數據的讀寫。以下是部分VBS腳本程序摘抄：

Option Explicit

Function action

Dim x2

x2= HMIRuntime.Tags（"Read_Para"）.read

If x2=1 Then

Dim fnamF

Dim

f1，f2，f3，f4，f5，f6，f7，f8，f9，f10，f11，f12，f13，f14，F15，f16，f17，f18，f19，f20，f21，f22，f23，f24，f25，f26

fnamF="e：MPM180.xls"

Dim ObjExcelApp

Set objExcelApp = CreateObject（"Excel.Application"）

objExcelApp.Workbooks.Open fnamF，，，，"12321"

WinCC從Excel讀數據的VB腳本如下：

Set f1=HMIRuntime.Tags（"RPM_F1_1"）

f1.Value=objExcelApp.worksheets

（"sheet1"）.Cells（9，1）.VAlue

f1.write

Set f2=HMIRuntime.Tags（"RPM_F2_1"）

f2.Value=objExcelApp.worksheets

（"sheet1"）.Cells（9，2）.VAlue

f2.write

Set f3=HMIRuntime.Tags（"RPM_F3_1"）

f3.Value=objExcelApp.worksheets

（"sheet1"）.Cells（9，3）.VAlue

f3.write

Set f4=HMIRuntime.Tags（"RPM_F4_1"）

f4.Value=objExcelApp.worksheets

（"sheet1"）.Cells（9，4）.VAlue

f4.write

Set f5=HMIRuntime.Tags（"RPM_F5_1"）

f5.Value=objExcelApp.worksheets

（"sheet1"）.Cells（9，5）.VAlue

f5.write

Set f6=HMIRuntime.Tags（"RPM_T1_1"）

f6.Value=objExcelApp.worksheets

（"sheet1"）.Cells（11，3）.VAlue

f6.write

Set f7=HMIRuntime.Tags（"RPM_T2_1"）

f7.Value=objExcelApp.worksheets

（"sheet1"）.Cells（11，4）.VAlue

f7.write

Set f8=HMIRuntime.Tags（"RPM_T3_1"）

f8.Value=objExcelApp.worksheets

（"sheet1"）.Cells（11，5）.VAlue

f8.write

Set f9=HMIRuntime.Tags（"GAP_F1_1"）

f9.Value=objExcelApp.worksheets

（"sheet1"）.Cells（7，1）.VAlue

f9.write

Set f10=HMIRuntime.Tags（"GAP_F2_1"）

f10.Value=objExcelApp.worksheets

（"sheet1"）.Cells（7，2）.VAlue

f10.write

Set f11=HMIRuntime.Tags（"GAP_F3_1"）

f11.Value=objExcelApp.worksheets

（"sheet1"）.Cells（7，3）.VAlue

f11.write

Set f12=HMIRuntime.Tags（"GAP_F4_1"）

f12.Value=objExcelApp.worksheets

（"sheet1"）.Cells（7，4）.VAlue

f12.write

Set f13=HMIRuntime.Tags（"GAP_F5_1"）

f13.Value=objExcelApp.worksheets

（"sheet1"）.Cells（7，5）.VAlue

f13.write

Set f14=HMIRuntime.Tags（"KJJ_1"）

f14.Value=objExcelApp.worksheets

（"sheet1"）.Cells（11，2）.VAlue

f14.write

objExcelApp.worksheets（"sheet1"）.Cells（99，1）. VAlue =Now

objExcelApp.ActiveWorkbook.Save

objExcelApp.Workbooks.ClosE

objExcelApp.QuiT

Set ObjEXceLapp = Nothing

End If

End Function

Wincc向Excel寫數據的VB腳本如下：

Option Explicit

Function action

Dim x1

x1= HMIRuntime.Tags（"Write_Tool"）.read

If x1=1 Then

Dim fname

Dim f1

fname="e：MPM180.xls"

Dim ObjExcelApp

Set objExcelApp = CreateObject（"Excel.Application"）

objExcelApp.Workbooks.Open fname，，，，"12321"

objExcelApp.worksheets（"sheet1"）.Cells（2，1）. VAlue = HMIRuntime.Tags（"BY_1"）.read

objExcelApp.worksheets（"sheet1"）.Cells（2，2）. VAlue = HMIRuntime.Tags（"BY_2"）.read

objExcelApp.worksheets（"sheet1"）.Cells（2，3）. VAlue = HMIRuntime.Tags（"BY_3"）.read

objExcelApp.worksheets（"sheet1"）.Cells（2，4）. VAlue = HMIRuntime.Tags（"BY_4"）.read

objExcelApp.worksheets（"sheet1"）.Cells（2，5）. VAlue = HMIRuntime.Tags（"BY_5"）.read

objExcelApp.worksheets（"sheet1"）.Cells（2，6）.VAlue = HMIRuntime.Tags（"BY_6"）.read

objExcelApp.worksheets（"sheet1"）.Cells（2，7）. VAlue = HMIRuntime.Tags（"BY_7"）.read

objExcelApp.worksheets（"sheet1"）.Cells（2，8）. VAlue = HMIRuntime.Tags（"BY_8"）.read

objExcelApp.worksheets（"sheet1"）.Cells（2，9）. VAlue = HMIRuntime.Tags（"BY_9"）.read

objExcelApp.worksheets（"sheet1"）.Cells（2，10）. VAlue = HMIRuntime.Tags（"BY_10"）.read

objExcelApp.worksheets（"sheet1"）.Cells（2，11）. VAlue = HMIRuntime.Tags（"BY_11"）.read

objExcelApp.worksheets（"sheet1"）.Cells（2，12）. VAlue = HMIRuntime.Tags（"BY_12"）.read

objExcelApp.worksheets（"sheet1"）.Cells（2，13）. VAlue = HMIRuntime.Tags（"BY_13"）.read

objExcelApp.worksheets（"sheet1"）.Cells（2，14）. VAlue = HMIRuntime.Tags（"BY_14"）.read

objExcelApp.worksheets（"sheet1"）.Cells（2，15）. VAlue = HMIRuntime.Tags（"BY_15"）.read

objExcelApp.worksheets（"sheet1"）.Cells（2，16）. VAlue = HMIRuntime.Tags（"BY_16"）.read

objExcelApp.worksheets（"sheet1"）.Cells（100，1）. VAlue =Now

Set f1=HMIRuntime.Tags（"nowtime"）

f1.Value=objExcelApp.worksheets

（"sheet1"）.Cells（100，1）.VAlue

f1.write

objExcelApp.ActiveWorkbook.Save

objExcelApp.Workbooks.ClosE

objExcelApp.QuiT

Set ObjEXceLapp = Nothing

End If

End Function

3　結論

本方法已應用于實際現場，在熱連軋無縫鋼管生產作業(yè)中，實現了軋制參數的自動計算和傳輸，更好地將熱軋無縫鋼管工藝數學模型與自動生產系統相結合，提高了生產線的自動化程度。

參考文獻

［1］努爾艾力.阿不都卡迪爾. WINCC于Excel報表的連接在燒結控制系統中如何應用［J］.河南科技，2013（16）：20-26.

［2］程曦，王延昌，李志國，等.基于OPC的WinCC與Excel通信實現自動報表的設計［J］.化工管理，2014（5）：88.

修改稿日期：2015-12-10

Automatic Configuration System of Hot Rolling Seamless Steel Tube Process Parameters Based on Excel and Wincc

ZHAO Chunxiao1，NIU Songsen1，YU Dingyi2，YU Xiaoqin1，LI Yuru1
（1. Tianjin Research Institute of Electric Science，Co.，Ltd.，Tianjin 300180，China；2. Installation Engineering Co.，Ltd.，of CCCC First Harbor Engineering Company Ltd.，Tianjin 300457，China）

Abstract：A seamless steel pipe plant MPM mill consists of two roller and five-stand tandem mill，tube rolling with mandrel operation is limit，the speed is controllable，mandrel is limited by actuator to limit move at a constant speed. Rolling process in many of the key parameters need to process calculation，Used Wincc as the configuration software，Excel as the server，process calculation formulas deposited in Excel，through Wincc script built process system and connection of the automatic control system，implemented automatically change of key production parameters with the tool size and product specifications.

Key words：seamless steel pipe；retained mandrel；rolling schedule

中圖分類號：TP11

文獻標識碼：A

作者簡介：趙春曉（1984-），女，碩士，工程師，Email：zhaochunxiao11@163.com

收稿日期：2015-09-15