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

权利要求书

1.一种利用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α]]>

计算旋转参数α：

α=α12-α12′α12=arctgY2-Y1X2-X1α12′=arctgB2-B1A2-A1]]>

上述公式中的字母解释如下：

A、B-建筑坐标，单位m；

X、Y-国家坐标，单位m；

a、b-建筑坐标系原点在国家坐标系中的坐标；

α-两坐标系方位角之差；

(4)、根据坐标联测参数，调用VBA模块，将建筑坐标联测至国家坐标

根据步骤(3)解算得到的坐标联测参数，调用VBA控件，在已知目标点位的建筑坐标而求解国家坐标的情况下，根据《火力发电厂工程测量技术规程》中下述公式计算得到国家坐标：

X=a+KAcosα-KBsinαY=b+KAsinα+KBcosα;]]>

(5)、根据坐标联测参数，调用VBA模块，将国家坐标联测至建筑坐标

根据步骤(3)解算得到的坐标联测参数，调用VBA控件，在已知目标点位的国家坐标而求解建筑坐标的情况下，根据《火力发电厂工程测量技术规程》中下述公式计算得到建筑坐标：

A=1K(X-a)cosα+1K(Y-b)sinαB=1K(Y-b)cosα-1K(X-a)sinα;]]>

经过上述计算，《火力发电厂工程测量技术规程》中电力工程坐标联测的各项计算内容均已经完成。