高速動車組配線用線號數據庫制作方法

路士濤 邴晨陽 黃召明

摘 要：隨著國內高速鐵路的發展，尤其是中國標準動車組復興號的研發及運營，公司電氣配線工藝為提高電線下料、電氣配線及電氣接線用線號數據庫的準確性，提高工作效率，設計編制數據庫的制作方法。

關鍵詞：電氣配線；線號數據庫；制作方法

中圖分類號：U269 文獻標識碼：A 文章編號：1671-2064（2018）05-0029-01

線號數據庫是電氣工藝的重要輸出數據之一，用于電線下料、電氣配線及電氣接線。其中線號數據庫的制作是電氣配線工藝師的基礎技能之一，如何基于配線尺寸表精確地制作線號數據庫，也是一項不斷精進的工藝技能。線號數據庫準確度及維護更新，很大程度上影響接線及導通的作業效率。

1 線號數據庫主表簡述

線號數據庫主表用來自動生成線號數據庫，自動生成線號數據庫除要求電氣工藝師們除掌握電氣專業知識外，還需要利用Excel在VBA編程環境下的編碼知識來編制線號數據庫生成程序。

2 線號數據庫主表制作

打開線號數據庫主表工作表利用開發工具建立ActiveX控件功能建立 “線號數據庫生成”按鈕，在設計模式下，雙擊該按鈕進入VBA編程環境下，編制如下程序用于線號數據庫的生成。

編制線號數據庫生成程序：

Private Sub CommandButton1_Click（）

'變量定義

Dim SHT_t1， sht_s As Worksheet

Dim wkb As Workbook

Set wkb = Application.Workbooks（"XX配線尺寸表.xls"）

'目標表格指定

Set SHT_t1 = Application.Workbooks（"XX-主表.xls"）.Worksheets（"散線細"）

'源表格指定

Set sht_s = wkb.Worksheets（"XX尺寸表"）

' 代表行數的變量定義

Dim I， J As Integer

'清除內容

SHT_t1.Range（"A1：F2000"）.ClearContents

'標題輸入

With SHT_t1

Range（"A1"） = "屏蔽標記"

Range（"B1"） = "大線標記"

Range（"C1"） = "線型"

Range（"D1"） = "起端線號"

Range（"E1"） = "終端線號"

End With

'線號線型輸入

I = 2

For Each sht_s In wkb.Worksheets

If sht_s.Range（"A1"） = "s" Then

J = 7

Do

SHT_t1.Range（"A" & I） = sht_s.Range（"D" & J）

SHT_t1.Range（"B" & I） = sht_s.Range（"E" & J）

SHT_t1.Range（"C" & I） = sht_s.Range（"F" & J）

If sht_s.Range（"H" & J） <> "（黃）" Then

SHT_t1.Range（"D" & I） = sht_s.Range（"H" & J） & sht_s.Range（"I" & J） & sht_s.Range（"J" & J）

Else： SHT_t1.Range（"D" & I） = sht_s.Range（"I" & J） & sht_s.Range（"J" & J）

End If

If sht_s.Range（"L" & J） <> "（黃）" Then

SHT_t1.Range（"E" & I） = sht_s.Range（"L" & J） & sht_s.Range（"I" & J） & sht_s.Range（"J" & J）

Else： SHT_t1.Range（"E" & I） = sht_s.Range（"I" & J） & sht_s.Range（"J" & J）

End If

SHT_t1.Range（"F" & I） = sht_s.Name

J = J + 1

I = I + 1

Loop Until sht_s.Range（"A" & J） = "s"

End If

Debug.Print sht_s.Name

DoEvents

Next

'屬性標記

I = 2

Dim XH As String

Dim Name As String

XH = ""

Name = ""

Do

If SHT_t1.Range（"C" & I） <> "" And （SHT_t1.Range（"C" & I） <> XH Or SHT_t1.Range（"F" & I） <> Name） Then

SHT_t1.Range（"C" & I）.Select

Selection.EntireRow.Insert

SHT_t1.Range（"D" & I）=SHT_t1.Range（"F" & I+1）

SHT_t1.Range（"E" & I）=SHT_t1.Range（"F" & I+1）

SHT_t1.Range（"C" & I）=SHT_t1.Range（"C" & I+1）

SHT_t1.Range（"F" & I）=SHT_t1.Range（"F" & I+1）

I = I + 1

End If

If SHT_t1.Range（"C" & I） <> "" Then

XH = SHT_t1.Range（"C" & I）

Name = SHT_t1.Range（"F" & I）

End If

I = I + 1

Loop Until SHT_t1.Range（"F" & I） = ""

End Sub

3 線號數據庫制作

同時打開線號數據庫主表和所用配線尺寸表，在配線尺寸表的首行A列及尾行A列均輸入小寫“s”，保存且不關閉表格。點擊“線號數據庫生成”按鈕，出現調試對話框，點擊“調試”按鈕，出現步驟2所編程。在程序中將主表格，目標表格指定與源表格指定處“XX”填寫完整，保存并關閉回到“線號數據庫生成”按鈕界面，點擊“線號數據庫生成”按鈕，主表中便生成線號數據庫。

4 結語

編制線號數據庫制作方法，可以幫助年輕工藝師迅速掌握線號數據庫制作技能。能有效避免新工藝師在配線工藝設計過程中因轉化方法不對引起打印線號錯誤。維護與更新線號數據庫，提高接線、導通作業效率，降低線號浪費。

參考文獻

[1]ExcelHome.Excel 2010 VBA實戰技巧精粹[M].北京：人民郵電出版社，2015.