CN105138792A - 一种基于表格的线束导线长度计算方法 - Google Patents

Abstract

本发明公开了一种基于表格的线束导线长度计算方法，将线束的各节点之间长度录入线段长度表，根据输入的线号从线号的起点开始递归寻找路径直到查找到线号的终点，当递归到表格顶端查找不到终点的时候，则返回表格底端继续查找，将递归查找过程中的各段长度记录并进行相加，得出需要线号的导线长度。本发明操作简单，只需要将图纸各节点和长度信息进行简单的表格录入，就能够自动进行计算，无需依赖图纸，对图纸格式没有要求，通过表格的宏命令的自动计算，计算方便并且计算准确率高。

Description

一种基于表格的线束导线长度计算方法

技术领域

本发明涉及一种导线长度计算方法，特别是一种基于表格的线束导线长度计算方法。

背景技术

在现代汽车上，汽车线束特别多，电子控制系统与线束有着密切关系。有人曾经打了一个形象的比喻：如果把微机、传感器与执行元件的功能用人体来比喻，可以说微机相当于人脑，传感器相当于感觉器官，执行元件相当于运动器官，那么线束就是神经和血管了。汽车线束是汽车电路的网络主体，连接汽车的电气电子部件并使之发挥功能，没有线束也就不存在汽车电路。在目前，不管是高级豪华汽车还是经济型普通汽车，线束编成的形式基本上是一样的，都是由电线、联插件和包裹胶带组成，它既要确保传送电信号，也要保证连接电路的可靠性，向电子电气部件供应规定的电流值，防止对周围电路的电磁干扰，并要排除电器短路。

线束导线的线号长度计算的时候，传统的方式是采用人工手动计算，但是当线束长度较长，节点较多并且线号很多的时候，人工计算就需要耗费大量的人力，并且很容易出错。目前也有一些专业的线束计算软件，但是对线束图纸格式要求严格，需要将普通图纸转化为专用格式才能使用，转化过程需要花费大量的时间，同时各家图纸不同，转化困难。

发明内容

本发明所要解决的技术问题是提供一种计算方便快捷的基于表格的线束导线长度计算方法。

为解决上述技术问题，本发明所采用的技术方案是：

一种基于表格的线束导线长度计算方法，其特征在于：将线束的各节点之间长度录入线段长度表，根据输入的线号从线号的起点开始递归寻找路径直到查找到线号的终点，当递归到表格顶端查找不到终点的时候，则返回表格底端继续查找，将递归查找过程中的各段长度记录并进行相加，得出需要线号的导线长度。

进一步地，所述基于表格的线束导线长度计算方法采用表格宏命令完成。

进一步地，所述表格宏命令包含工作表界面调用函数、计算路径函数定义、处理没找到终点情况函数定义、计算长度函数定义、返回函数结果、递归寻找路径、构造递归用字典、分叉寻找。

本发明与现有技术相比，具有以下优点和效果：

1、操作简单，只需要将图纸各节点和长度信息进行简单的表格录入，就能够自动进行计算，无需依赖图纸，对图纸格式没有要求；

2、通过表格的宏命令的自动计算，计算方便并且计算准确率高。

附图说明

图1是本发明的一种基于表格的线束导线长度计算方法的实施例示意图。

具体实施方式

下面结合附图并通过实施例对本发明作进一步的详细说明，以下实施例是对本发明的解释而本发明并不局限于以下实施例。

本发明的一种基于表格的线束导线长度计算方法，将线束的各节点之间长度录入线段长度表，根据输入的线号从线号的起点开始递归寻找路径直到查找到线号的终点，当递归到表格顶端查找不到终点的时候，则返回表格底端继续查找，将递归查找过程中的各段长度记录并进行相加，得出需要线号的导线长度。

基于表格的线束导线长度计算方法采用表格宏命令完成。表格宏命令包含工作表界面调用函数、计算路径函数定义、处理没找到终点情况函数定义、计算长度函数定义、返回函数结果、递归寻找路径、构造递归用字典、分叉寻找。

计算路径函数代码为：

arr=LinesPoints

Fori=LBound(arr)ToUBound(arr)

IfNotdic(arr(i,1))Like"*"&SIGN_START&arr(i,2)&SIGN_END&"*"Then

dic(arr(i,1))=dic(arr(i,1))&SIGN_DELIMITER&SIGN_START&arr(i,2)&SIGN_END

EndIf

IfNotdic(arr(i,2))Like"*"&arr(i,1)&SIGN_END&"*"Then

dic(arr(i,2))=dic(arr(i,2))&SIGN_DELIMITER&SIGN_START&arr(i,1)&SIGN_END

EndIf

Nexti

arrResult(1,1)=Road(FromA,ToB,dic,False)

'处理没找到的情况

IfLen(arrResult(1,1))>0AndRight(arrResult(1,1),1)="→"ThenarrResult(1,1)=""

计算长度函数代码为：

IfLen(arrResult(1,1))>0Then

dic.RemoveAll

arrLength=LinesLength

Fori=LBound(arr)ToUBound(arr)

dic(arr(i,2)&"→"&arr(i,1))=arrLength(i,1)

dic(arr(i,1)&"→"&arr(i,2))=arrLength(i,1)

Nexti

arrPathPoints=VBA.Split(arrResult(1,1),"→")

Fori=LBound(arrPathPoints)ToUBound(arrPathPoints)-1

dblLength=dblLength+dic(arrPathPoints(i)&"→"&arrPathPoints(i+1))

Nexti

arrResult(2,1)=dblLength

Else

arrResult(2,1)=0

EndIf

EndIf

构造递归用字典：

Setdic=NewDictionary

ForEachvDicKeyIndicChild

IfNot(vDicKey=FromA)Then

vDicItem=dicChild(vDicKey)

vDicItem=VBA.Replace(vDicItem,SIGN_DELIMITER&SIGN_START&FromA&SIGN_END,"")

IfLen(vDicItem)>0Thendic.AddvDicKey,vDicItem

EndIf

NextvDicKey

分叉查找

vArr=VBA.Split(Mid(dicChild(FromA),2),SIGN_DELIMITER)

Fori=LBound(vArr)ToUBound(vArr)

vArrElement=vArr(i)

vArrElement=VBA.Replace(vArrElement,SIGN_START,"")

vArrElement=VBA.Replace(vArrElement,SIGN_END,"")

IfvArrElement=ToBThen'找到

Road=FromA&"→"&ToB

bStop=True

ExitFor

Else

arrConPoints=VBA.Split(Mid(dicChild(vArrElement),2),SIGN_DELIMITER)'取得节点的相关节点

IfIsArray(arrConPoints)Then

IfUBound(arrConPoints)=LBound(arrConPoints)Then'断路

ElseIfUBound(arrConPoints)>LBound(arrConPoints)Then'递归

IfNotbStopThenRoad=FromA&"→"&Road(vArrElement,ToB,dic,bStop)

EndIf

EndIf

EndIf

IfbStopThenExitFor

Nexti

EndIf

EndFunction

实施例：如图所示，表一是线束图纸中各节点之间尺寸列表，表二是线号的起点和终点列表，当需要计算线号1的长度的时候，首先从表二中查询得到线号1起点为B，终点为A，从表一中B点开始用递归进行查询，直到查询到A点为止，当查询到表一顶端没有查找到A点的时候，返回表一底端继续递归查询直至查询到A点。记录下从B点到A点之间各段的尺寸并将各段尺寸相加，从而得到线号1的长度。

本说明书中所描述的以上内容仅仅是对本发明所作的举例说明。本发明所属技术领域的技术人员可以对所描述的具体实施例做各种各样的修改或补充或采用类似的方式替代，只要不偏离本发明说明书的内容或者超越本权利要求书所定义的范围，均应属于本发明的保护范围。

Claims (3)

1.一种基于表格的线束导线长度计算方法，其特征在于：将线束的各节点之间长度录入线段长度表，根据输入的线号从线号的起点开始递归寻找路径直到查找到线号的终点，当递归到表格顶端查找不到终点的时候，则返回表格底端继续查找，将递归查找过程中的各段长度记录并进行相加，得出需要线号的导线长度。

2.按照权利要求1所述的基于表格的线束导线长度计算方法，其特征在于：所述基于表格的线束导线长度计算方法采用表格宏命令完成。

3.按照权利要求2所述的基于表格的线束导线长度计算方法，其特征在于：所述表格宏命令包含工作表界面调用函数、计算路径函数定义、处理没找到终点情况函数定义、计算长度函数定义、返回函数结果、递归寻找路径、构造递归用字典、分叉寻找。