高速动车组配线用线号数据库制作方法

路士涛 邴晨阳 黄召明

摘 要：随着国内高速铁路的发展，尤其是中国标准动车组复兴号的研发及运营，公司电气配线工艺为提高电线下料、电气配线及电气接线用线号数据库的准确性，提高工作效率，设计编制数据库的制作方法。

关键词：电气配线；线号数据库；制作方法

中图分类号：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.