浅谈excelVBA在道路测量中的应用

江鑫林（四川省攀枝花市仁和区住房和城乡建设局　四川攀枝花　617068）

浅谈excelVBA在道路测量中的应用

江鑫林
（四川省攀枝花市仁和区住房和城乡建设局四川攀枝花617068）

Excel软件是所有软件中最优秀、也最为普及的一款办公软件，利用excel二次开发平台，可以实现它本身不具备的很多功能，可以实现操作自动化，进而全面提高工作效率。随着社会的发展，我国的市政、公路、铁路等基础工程进入了全面建设时期，在实际施工过程中，线路坐标计算涉及到大量的数据计算，工作量很大，利用excel二次开发功能编制程序来计算可以减轻工作量，而且不易出现错误。下面，就如何利用excelVBA对线路坐标计算进行探讨。

1　已知某线路为

直线+缓和曲线+圆曲线+缓和曲线+直线，从小里程至大里程依次为ZH（直缓点）、HY（缓圆点）、YH（圆缓点）、HZ（缓直点）如图1所示。

图1　

2　路线要素表（如表1所示）

3　角度转化为弧度

打开excel2007，按alt+F11进入VBS，点击，<插入>-<模块1>，在VBS工程资源管理器上双击<模块1>，在右侧窗口输入以下代码：

由于在excel中不能识别角度，因此自定义名称为jdzh（）的函数将角度转换为弧度。

表1　已知路线要素表

4　计算线路中桩坐标

<插入>-<模块2>，在VBS工程资源管理器上双击<模块2>，在右侧窗口输入以下代码：

以上代码分别为在VBA中自定义名称为xzb（）、yzb（）的道路中桩坐标计算函数。

5　计算线路边桩坐标

<插入>-<模块3>，在VBS工程资源管理器上双击<模块3>，在右侧窗口输入以下代码：

以上代码分别为在VBA中自定义名称为xzbz（）、xybz（）、yzbz（）、yybz（）的道路边桩坐标计算函数。

6　坐标计算结果（如表2所示）

在坐标计算表中，里程桩号这列单元格格式设置为k00+ 000.00，输入时注意直接输入数据即可。

表2　坐标计算表

7　结束语

无论是公路、铁路、市政工程，在施工测量中都涉及到道路中桩、边桩坐标的计算，利用传统的计算方法会涉及到大量的数据计算，工作量很大，且容易出错，利用excelVBA二次开发功能，通过自定义函数编程不仅能灵活计算出道路在各种不同线型下的坐标，同时利用excel的自动填充功能可以方便的计算出任何待求点的坐标，从而大大的提高工作的效率。

[1]《公路施工测量手册》.人民交通出版社，2008，5.

[2]《excelVBA语法与应用词典》.中国青年出版社，2008.

TP391

A

1673-0038（2015）51-0264-03

2015-12-1

江鑫林（1983-），男，苗族，四川攀枝花人，助理工程师，本科，主要从事工程管理等相关工作。