专利名称：根据汽车线束图纸自动生成下料工艺卡的方法
根据汽车线束图纸自动生成下料エ艺卡的方法本方法是利用AUTO CAD技术与计算机编程技术，在一定规则下，根据汽车线束CAD图纸自动生成下料エ艺卡的技术方案。
背景技术：
汽车线束在整车中的作用是将电气系统的电源信号或数据信号进行传递或交換，实现电气系统的功能及要求。它是汽车电路的网络主体，没有线束也就不存在汽车电路。每辆车都有一根或多根不同的线束，如仪表线束，发动机线束等。汽车线束生产エ艺流程都是从下料开始的，当汽车线束图纸绘制完成以后，接下来就是要制作下料エ艺卡。而现阶段，我国汽车线束行业的下料エ艺仍然采用传统エ艺手段，传统的电缆下料是通过人工读图，分段计算，相加求和的方式来归类各种线型的长度，人工提取其它相关信息，然后手工汇总制作下料エ艺卡供生产使用，也可在采购线料时作为账目凭证。这种传 统的方式对待简单图纸尚可使用，但随着我国汽车产业的蓬勃发展，汽车结构设计越来越复杂，作为汽车中枢神经系统的线束和配套的电器插接件数量成倍上升。目前，一辆汽车所用的线束总长度可达到4000多米，新型动カ汽车的内部构造比传统燃油动カ汽车的内部结构更复杂。显然，在这种情况下，传统的线束电缆计量统计方式已经不能适应现在的工作模式，存在效率低、失误多、工作量大等缺点。
发明内容
在制作下料エ艺卡时，为了克服人工计算或查找统计效率低，可靠性差的不足，本发明专利提供ー种方法，该方法能提高工作效率且准确性达100%。本发明专利解决其技术问题所采用的技术方案是利用计算机编程技术将汽车线束CAD图纸中各属性块中的信息提取到数据库或电子表格中，再用程序计算导线的长度，汇总其它信息，直接生成下料エ艺卡供生产使用。本发明专利的有益效果是，线束图纸规范化，且仅使用计算机程序就可实现，效率高，方法简单，实用性強。
下面结合附图对本发明专利进ー步说明。图I 中 A1、A、B2、B、D1、C、B1、C1 为位置标记。图I中1#、2#、3A、3B、3C、4A、4B、4C为线号属性块，属性块内有线号信息，端子信息，位置信息，线种及规格等信息，这些信息可以根据需要设置为可见或隐藏。图I中37、38、18、33、36、27、19、51、57为长度属性块，属性块内有长度信息，两端
位置信息。图I 中 3A J0U3B J0U3C J0U4A J02、4B J02、4C J02 为接点属性块，属性块内
有接点位置信息，接点线号信息。图2为程序主要流程图
具体实施例方式I、按照附图，图纸绘制完成后，利用计算机程序对图纸中的各属性块中的数据提取到数据库或电子表格中，下面以EXCEL VBA为例，提取属性部分的主要程序代码如下
Set ACAD = Nothing On Error Resume Next
Set ACAD = GetObject(，"AutoCAD. Application")
If Err O 0 Then Err. ClearSet ACAD = CreateObject("AutoCAD. Application")
MsgBox 〃请打开所需的图号图紙，然后再拭！！！ 〃Exit SubEnd IfACAD. Visible - TrueSet docum - ACAD. ActiveDocumentSet myspace = docum. ModelSpaceSheets (〃sheetl〃). SelectFor Each elem In myspace
If StrComp(elem. EntityName3 "acdbblockreference", I) = O Then arrayl = elem. GetAttributes
rl = Worksheets("sheetl"). [A65536]. End(xlUp). Row + I r2 - Worksheets(〃sheet2〃). [A65536]. End(xllp). Row + I r3 = Worksheets(〃sheet3〃). [A65536]. End(xlUp). Row + I For count = LBound(arrayl) To UBouad(arrayl)If StrComp(arrayl(count). EntityName, 〃acdbattribute〃，I) ニ O Then Select Case arrayl(count). TagString Case 〃线号〃
Worksheets I, sheetl"). Cel Is (rl，I). Value = arrayl (count). TextStringCase 〃线种"
Worksheets(〃sheetl〃). Cells(rl, 2). Value ニ arrayl (count). TextStringCase 〃规格〃
Worksheets(^sbeetT'). Cells(rl, 3). Value ニ arrayl (count). TextStringCase "颜色〃
Worksheets、sheetl"). Cells(rl, 4). Value = arrayI(count). TextString Case 〃对应端子〃
Worksheets{ sheetl〃). Cells(rl，5). Value = arrayl(count). TextString Case 〃并铆线号〃
Worksheets("sheetIつ.Cells(rl, 6). Value = arrayl(count) · TextString Case 〃防水桂〃
Worksheets(〃sheetl〃). Cells(rl, 7). Value - arrayl (count). TextStringCase "预装件〃
Worksheets("sheetl"). Cells(rl, 8). Value ニ arrayl(count). TextString Case w端子位置〃
Worksheets("sheetlつ.Cells(rl, 9). Value - arrayl(count). TextString Case 〃余量"
Worksheets("sheetl"). Cells(rl, 10). Value = arrayl(count). TextString Case "长度〃
Worksheets("sheet2"). Cells(r2, I). Value = arrayl(count). TextString Case "点、
Worksheets(〃sheet2〃). Cells(r2, 2). Value = arrayl (count). TextString
权利要求
1 .根据汽车线束图纸自动生成下料工艺卡的方法，根据汽车线束图，获取相关信息，其特征在于包括以下步骤 利用计算机程序对汽车线束AUTO CAD图纸中的各属性块的属性进行提取，生成数据表; 对几个数据表进行汇总； 根据线号的位置确定线号的路径，再根据路径计算出导线的长度； 根据接点线号确定接点端子，根据端子确定剥头长度； 对以上数据进行汇总，得到下料工艺卡。
全文摘要
根据汽车线束图纸自动生成下料工艺卡的方法。它是利用计算机编程技术，对汽车线束图纸中的相关信息提取到数据库或电子表格中，然后再进行计算汇总，最后生成下料工艺卡。其主要用于汽车线束的设计及生产，图纸完成后，所需的生产数据立刻可以生成。这种新的技术方案较传统的人工读图，手工计算及统计的方法有了很大的创新，此方案效率高，正确率100％，缩短产品的开发周期及投产时间，减少了人员操作的错误率，为企业生产带来直接利益。对此技术方案的应用，也会使汽车线束企业的技术及工艺管理水平有显著的提高。
文档编号G06F17/50GK102819627SQ20121010974
公开日2012年12月12日 申请日期2012年4月9日 优先权日2012年4月9日
发明者李锁, 李晓波 申请人:李锁