時永年

【摘要】拱壩放樣方法很多，但由于拱圈待放樣點數(shù)量多，手工計算不僅工程量大，而且容易出錯，本文根據(jù)安徽省岳西縣天馬橋水庫拋物線雙曲拱壩實例，說明利用VBA編程進行拱壩施工放樣數(shù)據(jù)計算的優(yōu)點，供從事此類工作的同仁們參考。

【關(guān)鍵詞】拱壩 放樣 VBA編程

1.前言

拱壩建設(shè)中，一般施工圖紙給定拱壩體形參數(shù)曲線方程，施工時需根據(jù)它將各放樣層拱圈上、下游輪廓曲線通過計算離散成若干點，求出兩個放樣基點（一個儀器點，一個后視點）與某一離散點所組成的三角形的邊角關(guān)系，即可用于儀器施放。

拱壩放樣方法很多，但實質(zhì)上就是計算上述三角形的邊角關(guān)系，由于拱圈待放樣點數(shù)量多，手工計算不僅工程量大，而且容易出錯。以往一些工程施工中，先由施工單位提供放樣基點坐標，由設(shè)計院計算拱圈曲線離散點及與放樣基點組成的三角形邊角數(shù)據(jù)，裝訂成冊供施工放樣使用。

但因放樣基點需根據(jù)放樣方便需適時改變，如某放樣基點對下部拱圈通視較好，可以使用，當對上部拱圈通視不好時，即需改變。且施工中待放樣的拱圈高程不一定與計算放樣數(shù)據(jù)時預(yù)估的拱圈高程吻合，當有一個參數(shù)要改變時，整本放樣數(shù)據(jù)須重新計算，因而設(shè)計院計算的放樣成果實用性不強，往往事倍功半，甚至全功盡棄。

本文根據(jù)安徽省岳西縣天馬橋水庫拋物線雙曲拱壩實例，說明利用VBA編程進行拱壩施工放樣數(shù)據(jù)計算的優(yōu)點，供從事此類工作的同仁們參考。

2.天馬橋水庫拋物線雙曲拱壩參數(shù)

天馬橋水庫拋物線雙曲拱壩最大壩高53m，拱圈形狀曲線如圖1，拱冠梁剖面及曲線如圖2。

圖1 拱圈形狀曲線

拱壩體形參數(shù)公式見下表。

從上圖及表中可見，拱圈中心線為拋物線，上下游輪廓線沒有顯式曲線方程，需根據(jù)其他公式計算出其點坐標。

3.VBA編程

Microsoft VBA 是一個面向?qū)ο蟮木幊汰h(huán)境， Microsoft Word、 Excel和AUTOCAD 均內(nèi)置 VBA，這就意味著利用VBA編程即可控制它們自身和它們之間的數(shù)據(jù)交換和通信。本工程即利用EXCEL—VBA，實際上是在EXCEL內(nèi)置一個計算程序，進行拱圈上、下游面放樣點坐標計算，以及放樣點與兩放樣基點所組成的三角形邊角關(guān)系計算。其數(shù)據(jù)輸入界面是大家非常熟悉的EXCEL工作表，如下所示。

表中陰影部分單元格是需要用戶輸入的，包括放樣基點坐標（可方便更換）、左右岸、拱圈高程，以及拱圈上下游輪廓線放樣點對應(yīng)的拱圈中心線X坐標，此坐標可稀可密，可等間距也可不等間距。VBA據(jù)此計算出拱圈上游面輪廓線坐標Xu，Yu， 下游面輪廓線坐標Xd，Yd，及他們與放樣基點的三角形所胡邊角關(guān)系，供所有的放樣方法使用。

在上述基本數(shù)據(jù)輸入后，激發(fā)工作表Active事件（即從一個工作表跳轉(zhuǎn)到此工作表）、工作薄存盤事件、工作表打印事件中，數(shù)據(jù)即重新計算，得到使用者需要的計算成果。

要運行VBA ，需在EXCEL菜單“工具”—“宏”—“安全性”設(shè)置為“中”，再打開“工具”—“宏”—“Visual Basic 編輯器”，插入模塊和過程，編寫相應(yīng)的過程中的程序段計算要求的數(shù)據(jù)，再將激發(fā)工作表Active事件、工作薄存盤事件、工作表打印事件與過程聯(lián)系即可。

在雙曲拱壩的放樣中，當遇到倒懸層時，因其實際放樣點在已澆層外，懸空在外，無處立桿尺及標志。在上述VBA工程中，對于倒懸層，將倒懸的輪廓線向內(nèi)縮進，數(shù)字由放樣人員自定，將向內(nèi)縮進后的輪廓線調(diào)至已澆層內(nèi)。立模時，外推回向內(nèi)縮進值即還原實際輪廓線。

4.結(jié)語

利用VBA進行編程計算放樣數(shù)據(jù)，拱圈高程、放樣基點、拱圈放樣點數(shù)據(jù)可根據(jù)施工需要由放樣人員隨時調(diào)整，即保證了計算精度，又提供許多方便，且利用EXCEL友好的界面，只需輕點鼠標，一切計算均在后臺完成，展示給用戶的是一EXCEL表。由于上述輸入?yún)?shù)均可在現(xiàn)場由放樣人員調(diào)整，計算成果又可在瞬間完成，使得拱壩放樣數(shù)據(jù)計算變得異常簡單，每次放樣數(shù)據(jù)即為一張表格，簡結(jié)實用，極大地解放了勞動力。不需要放樣人員有拱壩專業(yè)知識，一切傻瓜式地完成。該方法在天馬橋電站拱壩放樣工作中取得了成功，又在其他十幾個工程中得到應(yīng)用，均得到了施工放樣人員一致贊許。

由于VBA為許多辦公及平面制圖軟件內(nèi)置，它們之間可以通信，上述數(shù)據(jù)算出后，可繪制AUTOCAD圖形。