江鑫林（四川省攀枝花市仁和區(qū)住房和城鄉(xiāng)建設(shè)局　四川攀枝花　617068）

淺談excelVBA在道路測量中的應(yīng)用

江鑫林
（四川省攀枝花市仁和區(qū)住房和城鄉(xiāng)建設(shè)局四川攀枝花617068）

Excel軟件是所有軟件中最優(yōu)秀、也最為普及的一款辦公軟件，利用excel二次開發(fā)平臺(tái)，可以實(shí)現(xiàn)它本身不具備的很多功能，可以實(shí)現(xiàn)操作自動(dòng)化，進(jìn)而全面提高工作效率。隨著社會(huì)的發(fā)展，我國的市政、公路、鐵路等基礎(chǔ)工程進(jìn)入了全面建設(shè)時(shí)期，在實(shí)際施工過程中，線路坐標(biāo)計(jì)算涉及到大量的數(shù)據(jù)計(jì)算，工作量很大，利用excel二次開發(fā)功能編制程序來計(jì)算可以減輕工作量，而且不易出現(xiàn)錯(cuò)誤。下面，就如何利用excelVBA對(duì)線路坐標(biāo)計(jì)算進(jìn)行探討。

1　已知某線路為

直線+緩和曲線+圓曲線+緩和曲線+直線，從小里程至大里程依次為ZH（直緩點(diǎn)）、HY（緩圓點(diǎn)）、YH（圓緩點(diǎn)）、HZ（緩直點(diǎn)）如圖1所示。

圖1　

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

3　角度轉(zhuǎn)化為弧度

打開excel2007，按alt+F11進(jìn)入VBS，點(diǎn)擊，<插入>-<模塊1>，在VBS工程資源管理器上雙擊<模塊1>，在右側(cè)窗口輸入以下代碼：

由于在excel中不能識(shí)別角度，因此自定義名稱為jdzh（）的函數(shù)將角度轉(zhuǎn)換為弧度。

表1　已知路線要素表

4　計(jì)算線路中樁坐標(biāo)

<插入>-<模塊2>，在VBS工程資源管理器上雙擊<模塊2>，在右側(cè)窗口輸入以下代碼：

以上代碼分別為在VBA中自定義名稱為xzb（）、yzb（）的道路中樁坐標(biāo)計(jì)算函數(shù)。

5　計(jì)算線路邊樁坐標(biāo)

<插入>-<模塊3>，在VBS工程資源管理器上雙擊<模塊3>，在右側(cè)窗口輸入以下代碼：

以上代碼分別為在VBA中自定義名稱為xzbz（）、xybz（）、yzbz（）、yybz（）的道路邊樁坐標(biāo)計(jì)算函數(shù)。

6　坐標(biāo)計(jì)算結(jié)果（如表2所示）

在坐標(biāo)計(jì)算表中，里程樁號(hào)這列單元格格式設(shè)置為k00+ 000.00，輸入時(shí)注意直接輸入數(shù)據(jù)即可。

表2　坐標(biāo)計(jì)算表

7　結(jié)束語

無論是公路、鐵路、市政工程，在施工測量中都涉及到道路中樁、邊樁坐標(biāo)的計(jì)算，利用傳統(tǒng)的計(jì)算方法會(huì)涉及到大量的數(shù)據(jù)計(jì)算，工作量很大，且容易出錯(cuò)，利用excelVBA二次開發(fā)功能，通過自定義函數(shù)編程不僅能靈活計(jì)算出道路在各種不同線型下的坐標(biāo)，同時(shí)利用excel的自動(dòng)填充功能可以方便的計(jì)算出任何待求點(diǎn)的坐標(biāo)，從而大大的提高工作的效率。

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

[2]《excelVBA語法與應(yīng)用詞典》.中國青年出版社，2008.

TP391

A

1673-0038（2015）51-0264-03

2015-12-1

江鑫林（1983-），男，苗族，四川攀枝花人，助理工程師，本科，主要從事工程管理等相關(guān)工作。