淺談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-），男，苗族，四川攀枝花人，助理工程師，本科，主要從事工程管理等相關工作。