基于Excel中VBA模块计算空调管路加工工艺的方法与流程

本发明属于机械工程技术领域，涉及一种基于excel中vba模块计算空调管路加工工艺的方法。

背景技术：

汽车空调管路是三维空间结构，包含折弯的空心铝管、管端密封结构(墩头、鼓包、涨口、缩口)、密封沟槽(与空调胶管压接)、压力开关、制冷剂充注阀、固定支架(与铝管焊接或铰接)等结构，管路走向根据整车发动机、中冷器、散热器、驾驶室等系统的布置而变化，铝管的参数：空间点、管径、壁厚、折弯半径、管端密封方式(利用塑性成型原理加工的墩头、鼓包、涨口、缩口等结构)，胶管参数：长度、规格、适用的铝管规格。目前管路加工坐标点普遍采用手工将catia导出的坐标点手动粘贴到excel表格中，利用预先设置的公式计算，然后手工导出csv文件；工艺参数计算则是手工计算，通过查询各种工艺参数，用计算器计算加工所需的原材料长度，以及铝管加工时所需的长度参数，这种计算方法过程繁琐，存在大量重复性工作，使用非常不便，降低工作效率。

技术实现要素：

本发明的目的是提供一种基于excel中vba模块计算空调管路加工工艺的方法，解决了现有计算方法过程繁琐，需要人工大量的重复性工作导致工作效率低下的问题。

本发明所采用的技术方案是，基于excel中vba模块计算空调管路加工工艺的方法，具体计算包括如下过程：

(1)开发vba模块：在excel自带的visualbasic编辑器中，建立与microsoftexcel中数据调用的userform界面、thisworkbook模块和工作表模块，所述thisworkbook模块用于excel宏文件启动时加载userform界面，所述工作表模块用于切换excel中的工作表，所述userform界面设置为多页面，用于将userform界面分为工艺参数计算页面和工艺参数查询页面，所述工艺参数计算页面设置有命令按钮、文本框和列表框；

(2)在excel工作表中定义catia数据处理模块、数据格式转化模块和计算模块，所述catia数据处理模块用于将catia软件输出的坐标点数据存储在excel的工作表中，所述计算模块设置有空间点间距、空间直线角度、圆弧长度、管路中心线长度的计算公式，所述数据转化模块用于将数据计算模块计算的结果转换为输出csv格式的文件；

(3)在excel中设计软件界面及各功能区域，设置操作控件，包括所述userform界面的各功能区域及触发调用控件、用于所述catia数据处理模块导入坐标点数据的存储区域，用于所述计算模块的计算区域，以及用于输出计算结果csv格式的数据存储区域；

(4)在excel工作表的窗体中或者通过vba模块的userform界面导入catia格式的坐标点数据，用户在所述userform界面上输入工艺参数，所述excel工作表的计算模块根据输入的工艺参数通过计算模块设置的公式和excel自带的公式计算出各工艺参数的结果并且在所述userform界面的文本框中显示出计算结果并通过所述userform界面的命令按钮导出csv文件。

本发明的其他特点还在于，

thisworkbook模块用于在excel宏文件关闭时，判断excel中打开的工作簿的数量，如果工作簿数量为1，则直接退出不提示保存，否则只关闭当前工作簿。

工作表模块通过特定的代码实现隐藏页面切换工具栏、冻结工作表切换快捷键禁止用户随意切换工作表、加密所述vba模块，防止用户通过visualbasic编辑器随意修改程序和工作表结构。

userform界面的工艺参数计算页面上设置的命令按钮包括选择文件、清除、计算、导出数据和退出的触发按钮；userform界面中分别设置有四个文本框，用于输入工艺参数和显示计算结果，第一个文本框用来显示坐标数据、直线段长度、空间点夹角；第二个文本框用来输入模具规格、铝管料长、墩头规格、扣压参数；第三个文本框用来显示胶管长度和规格；第四个文本框提取工程图所需的工艺参数，便于用户手工复制到工作表；所述userform界面中设置的列表框用于存储坐标数据，也可以自动从excel的工作表中获取坐标数据。

userform界面上的第二个文本框中输入工艺参数后，通过计算按钮调用excel的计算模块，并在excel中设置的用于计算模块计算区域显示出结果，然后在输出计算结果csv格式的数据存储区域，选择大写或者小写选项后，通过导出数据按钮即导出csv文件。

清除按钮用于快速清除选择的数据和工艺参数，用于开始新的计算；退出按钮用于关闭计算界面，并且默认不保存工作表。

工艺参数查询页面调用excel内部存储的照片，并根据用户选择的参数显示不同的查询结果。

在excel中设数据提取模块，用于将数据计算模块的计算结果自动复制到系统的剪贴板，通过userform界面上的到处数据按钮可以调用数据提取模块的数据粘贴到userform界面上的文本框中，以显示计算结果。

本发明的有益效果是，基于excel中vba模块计算空调管路加工工艺的方法，解决了现有计算方法过程繁琐，需要人工大量的重复性工作导致工作效率低下的问题。可简化管路加工工艺计算过程，坐标点数据由控件自动从csv文件读取，一个操作界面即可完成数据读取、参数选择、计算、结果输出过程，操作简便，计算效率和准确性大幅提高，为用户节省大量时间，并且可以最大限度的避免人为错误，可根据需要输出不同格式的文件。

附图说明

图1是本发明的调用工作表处理catia坐标点数据的计算流程图；

图2是本发明的excel中vba模块的结构示意图；

图3是本发明的vba模块中userform界面的示意图。

具体实施方式

下面结合附图和具体实施方式对本发明进行详细说明。

本发明的基于excel中vba模块计算空调管路加工工艺的方法，如图1和图2所示，具体计算包括如下过程：

(1)开发vba模块：在excel自带的visualbasic编辑器中，建立与microsoftexcel中数据调用的userform界面、thisworkbook模块和工作表模块，thisworkbook模块用于excel宏文件启动时加载userform界面，工作表模块用于切换excel中的工作表，userform界面设置为多页面，用于将userform界面分为工艺参数计算页面和工艺参数查询页面，工艺参数计算页面设置有命令按钮、文本框和列表框；

(2)在excel工作表中定义catia数据处理模块、数据格式转化模块和计算模块，catia数据处理模块用于将catia软件输出的坐标点数据存储在excel的工作表中，计算模块设置有空间点间距、空间直线角度、圆弧长度、管路中心线长度的计算公式，数据转化模块用于将数据计算模块计算的结果转换为输出csv格式的文件；

(3)在excel中设计软件界面及各功能区域，设置操作控件，包括用于userform界面的各功能区域及触发调用控件、用于catia数据处理模块导入坐标点数据的存储区域，用于计算模块计算区域，以及用于输出计算结果csv格式的数据存储区域；

(4)在excel工作表的窗体中或者通过vba模块的userform界面导入catia格式的坐标点数据，用户在userform界面上输入工艺参数，excel工作表的计算模块根据输入的工艺参数通过计算模块设置的公式和excel自带的公式计算出各工艺参数的结果并且在userform界面的文本框中显示出计算结果并通过userform界面的命令按钮导出csv文件。

其中，thisworkbook模块用于在excel宏文件关闭时，判断excel中打开的工作簿的数量，如果工作簿数量为1，则直接退出不提示保存，否则只关闭当前工作簿。

其中，工作表模块通过特定的代码实现隐藏页面切换工具栏、冻结工作表切换快捷键禁止用户随意切换工作表、加密vba模块，防止用户通过visualbasic编辑器随意修改程序和工作表结构。

其中，如图3所示，userform界面的工艺参数计算页面上设置的命令按钮包括选择文件、清除、计算、导出数据和退出的触发按钮；userform界面中分别设置有四个文本框，用于输入工艺参数和显示计算结果，第一个文本框用来显示坐标数据、直线段长度、空间点夹角；第二个文本框用来输入模具规格、铝管料长、墩头规格、扣压参数；第三个文本框用来显示胶管长度和规格；第四个文本框提取工程图所需的工艺参数，便于用户手工复制到工作表；userform界面中设置的列表框用于存储坐标数据，也可以自动从excel的工作表中获取坐标数据。

其中，userform界面上的第二个文本框中输入工艺参数后，通过计算按钮调用excel的计算模块，并在excel中设置的用于计算模块计算区域显示出结果，然后在输出计算结果csv格式的数据存储区域，择大写或者小写选项后，通过导出数据按钮即导出csv文件。

其中，清除按钮用于快速清除选择的数据和工艺参数，用于开始新的计算；退出按钮用于关闭userform界面，并且默认不保存工作表，不弹出警告对话框。

其中，工艺参数查询页面调用excel内部存储的照片，并根据用户选择的参数显示不同的查询结果。

在excel中设数据提取模块，用于将数据计算模块的计算结果自动复制到系统的剪贴板，通过userform界面上的到处数据按钮可以调用数据提取模块的数据粘贴到userform界面上的文本框中，以显示计算结果。

本发明的基于excel中vba模块计算空调管路加工工艺的方法具体操作实例如下：

在excel工作表中定义数据处理区域，包括外部数据读入、坐标计算、格式转换等模块：用户从catia软件输出的坐标点数据存储在excel文档中，文件后缀名为“.csv”，坐标数据从excel读入程序中，用户选择工艺参数，然后计算，最终结果在userform界面上显示出来，也可以输出csv文件，用于导入到catia软件中做出工程图。

(1)catia坐标点数据导入区域定义为位于sheet1，用户需将catia导出的坐标点数据粘贴到sheet1，也可以通过userform界面上的选择文件按钮选择文件，由软件自动导入到sheet1(b:b)区域。

(2)在excel工作表中定义数据计算区域为sheet2，数据运算主要应用excel自带的函数和设置的公式，通过userform界面上赋值，所应用的典型公式和代码如下：

数据筛选查询：＝index(ag:ag,match(c4,r:r,0))+c10；

数据选择性输入：＝round(indirect("b"&row(b4)*3-2),1)；

空间点间距：

＝if(and(e3＝e4,f3＝f4,g3＝g4),,sqrt(((e3-e2)^2)+((f3-f2)^2)+((g3-g2)^2)))；

空间直线夹角：

＝if(and(e4＝e5,f4＝f5,g4＝g5),,abs(180-((180*(acos(((e3-e2)*(e4-e3)+(f3-f2)*(f4-f3)+(g3-g2)*(g4-g3))/((sqrt((e2-e3)^2+(f2-f3)^2+(g2-g3)^2))*(sqrt((e4-e3)^2+(f4-f3)^2+(g4-g3)^2))))))/3.1415926)))

圆弧长度计算：

＝if(and(e4＝e5,f4＝f5,g4＝g5),,((180-k3)*3.1415926*c$2/180))

单元格赋值：sheets("a").[c4]＝me.combobox1.value

实际调试时发现有一个聊天软件与组件冲突，导致计算无法正常运行，使用特定代码结束冲突程序。

(3)输出csv文件定义为工作表sheet3，最终由用户通过导出按钮输出文件；csv文件输出：只需选择导出的文件类型，程序将自动将指定区域的数据导出为可交换文件格式csv(csv格式数据用于将数据倒入到catia工程图)，并且自动保存到宏文件所在的目录，文件名称由坐标点首尾大写英文字母+随机数组成，避免重复；文件创建后，自动打开文件所在的文件夹，并提示文件保存成功提示。

本发明的基于excel中vba模块计算空调管路加工工艺的方法中，通过在excel中设置vba模块，excel宏文件通过vb程序打开，vb程序运行时窗体不显示，程序启动时自动访问服务器，并与程序安装目录里版本信息对比，如果版本信息不一致则弹窗提示程序更新。程序编译后，使用vb程序自带的打包功能，创建安装exe安装程序。程序安装后会在用户选择的安装目录生成一些安装文件，安装目录的文件不能删除，否则程序无法正常运行。

本发明与现有技术比较具有减少错误、节省时间、方便维护数据、简便等优点；若使用现有技术需手工将数据输入软件，并手工设置好工艺参数，然后得到计算结果，得到的计算结果无法输出成文件，只能通过手工粘贴复制，过程繁琐，容易出错。本发明还有以下有益效果：

(1)所有文件打包成exe安装程序，便于安装使用和版本升级；

(2)安装程序包括excel工作簿存储的参数和公式，版本信息，程序组件等；

(3)excel工作表存储的工艺参数照片，用于显示到窗体，此功能可避免照片存储到本地目录，防止文件被误删；

(4)可视化界面由vba创建，基于visualbasic语言的代码方便维护，且功能强大，是软件二次开发的首选。