[发明专利]一种利用VBA模块在Excel中进行电力工程坐标联测计算的方法

说明书

技术领域

本发明涉及一种利用VBA模块在Excel中进行电力工程坐标联测计算的方法，属于测绘学科中的电力工程测量领域。

背景技术

在当前的测绘领域，存在着品种繁多的坐标系统，如国家坐标系统、城市坐标系统、建筑坐标系统等(本发明中以国家坐标系统和建筑坐标系统的联测为例)。在进行电力工程(如火电厂、变电站、高压线路等)的建设过程中，往往需要将一个坐标系统联测至另一个坐标系统，有时甚至是多个坐标系统的两两联测，以此来满足电力规划、设计、施工等多方面的需求。

我国现行的《火力发电厂工程测量技术规程》(DL/T 5001-2004)作为电力行业标准规范了这方面的计算，该规程的附录B(规范性附录)中包括多项计算内容(如解算坐标联测参数、将建筑坐标联测至国家坐标、将国家坐标联测至建筑坐标等)，这些计算过程涉及4个参数及多个三角函数，在利用手工及计算器计算时，过程繁琐，效率较低，且由于校核过程复杂而容易出错。因此，亟需一种直观快捷并且操作简单的方法来完成坐标联测的计算。

发明内容

本发明通过开发VBA模块，结合《火力发电厂工程测量技术规程》中附录B的内容，在Excel中调用VBA模块，最终完成电力工程坐标联测的各项计算工作。

为解决该问题，本发明的主要技术内容如下：

一种利用VBA模块在Excel中进行电力工程坐标联测计算的方法，包括以下步骤：

(1)、开发VBA模块

在Excel的Visual Basic编辑器中，建立“坐标联测常用函数模块”，在模块中编制坐标联测常用的几个子函数，其中包括求方位角子函数“Alfa()”、角度格式转换函数“DMS()”与“DEG()”；

(2)、在Excel中设计软件界面及各功能区域，设置操作控件

在Excel中设置下列功能区域及控件：坐标联测起算控制点的两套坐标区域，所述两套坐标为建筑坐标和国家坐标；“计算坐标联测参数”命令按钮控件；坐标联测参数区域，所述坐标联测参数包括长度比参数K、平移参数a和b、旋转参数α；长度比参数K值判断区域；目标点位建筑坐标联测至国家坐标区域；目标点位国家坐标联测至建筑坐标区域；

(3)、触发控件，调用VBA模块，解算坐标联测参数

触发步骤(2)所述的“计算坐标联测参数”命令按钮控件，调用步骤(1)所述的VBA模块，计算步骤(2)所述的坐标联测参数，根据《火力发电厂工程测量技术规程》，具体计算公式如下：

计算长度比参数K：

K=1/|d1d1-d2|]]>

计算平移参数a、b：

a=X-Acosα+Bsinαb=Y-Asinα-Bcosα]]>

计算旋转参数α：