江鑫林（四川省攀枝花市仁和区住房和城乡建设局　四川攀枝花　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，输入时注意直接输入数据即可。……