頁腳內(nèi)容12[標(biāo)簽:標(biāo)題]計算了，如坐標(biāo)、高程、橫坡度等。我現(xiàn)在給大家推薦一款我自己編制的關(guān)于測量計算的首先我會跟大家介紹一下模板的作用，然后再一一講解此模板的制作過程。首先給大家看一下此模板的界面如下：也許大家咋一看，切~這算啥，我也會做這張表格，實在是太簡單了。不錯，如果僅僅是靠手動輸入這樣子的數(shù)字，也許只要懂一點(diǎn)點(diǎn)excle的人都會制作出這張表格吧。不過，這張表格并不是你表面所看到的僅僅是幾個數(shù)字而已，其內(nèi)在的公式才是它的亮點(diǎn)。也許這樣講大家還不是很清楚，我繼續(xù)給大家截個圖，看看它里面的公式是什么。大家注意到上面的公式了嗎，并不是僅僅是輸入數(shù)字就完事的，它是一個自定義函數(shù)zbx那么后面的都是一樣嗎？完全正確，后面的都是自定義函數(shù)，它們分別是zby、函數(shù)的自變量又是什么呢？其實這個模板里面所有函數(shù)的自變量只有一個，就是樁號。什么我就用這個模板給大家演示一下（此模板暫時數(shù)據(jù)只針對黃祁高速公路六標(biāo)項目部）。先在樁號那一列把K38+000~K38+200輸入進(jìn)去，可不要真的把字母“K”和加號“+”頁腳內(nèi)容12[標(biāo)簽:標(biāo)題]不過是自定義的單元格式而已。面的所有單元格，然后向下直接拖動至最后，那么你需要的數(shù)據(jù)就全部出來了。呵呵，是不是很神奇！并不是只能計算整數(shù)樁號數(shù)據(jù)的，是任意樁號的，也就是說樁號K38+000和K38+111.232計算出來的結(jié)果的精度是一樣的。這個模板可以讓你計算任意你想要的坐標(biāo)，比如其演化計算出來的橋梁墩柱坐標(biāo)，涵洞坐標(biāo)等等。給大家示范一下計算涵洞的坐標(biāo)。假設(shè)某涵洞樁號是K38+433.245，左邊據(jù)中樁距離是23.45M，右邊距中樁距離是33.56M，基礎(chǔ)寬度是6M，那么我要用這個模板計算出涵洞基礎(chǔ)4個拐點(diǎn)的坐標(biāo)。在這里我用此模板的一個空白的工作表來給大家演示一下。頁腳內(nèi)容12[標(biāo)簽:標(biāo)題]上面這張表格現(xiàn)在大家都會做了吧，只不過多了一個自定義函數(shù)jfw它也是以樁至于右邊坐標(biāo)公式僅僅是把那里面角度的減號改成加號而已。那么就可以得出來下面的表格距離變成了寬度的一半，而另外一個拐點(diǎn)的方位角要加上一個pi，如下表：頁腳內(nèi)容12[標(biāo)簽:標(biāo)題]邊和右邊的橫坡度，那么自然的邊樁高程也是很容易計算出來的了。大家詳細(xì)講解此模板的制作流程。還回到這個模板里面來，打開這個模板，然后進(jìn)入vb編輯器里面，直接按Alt+F11可工具宏vb編輯器（不好意思了，怎么都截不了那個圖，還是直接按Alt+F11來的模塊1Functionzbx(zhAsDouble)AsDoubleDimxAsDouble'交點(diǎn)橫坐標(biāo)DimyAsDouble'交點(diǎn)縱坐標(biāo)DimzhjdAsDouble'交點(diǎn)樁號DimjzjAsDouble'轉(zhuǎn)角（右轉(zhuǎn)為正，左轉(zhuǎn)為負(fù)）DimrAsDouble'圓曲線半徑DimlsAsDouble'緩和曲線長DimjzhAsDouble'起始直線方位角DimpiAsDouble'pi=3.14159265358979DimmAsDouble'切垂差頁腳內(nèi)容12[標(biāo)簽:標(biāo)題]DimpAsDouble'內(nèi)移距DimDouble'切線長DimDouble'外矢距DimDouble'緩圓點(diǎn)切線方位角DimDimAsDoubleAsDouble'直緩點(diǎn)樁號DimAsDoubleDimAsDoubleDimDimAsDoubleAsDouble'直緩點(diǎn)坐標(biāo)DimAsDoubleDimAsDoubleDimDoubleDimxeAsDoubleDimyeAsDoubleDimDouble'弦長DimDoubleDimDouble'轉(zhuǎn)角正負(fù)號Ifzh>=35290Andzh<36571.636Thenx=3302618.225y=515805.714zhjd=36087.224jzj=-1*dzh(46.3735)jzh=dzh(299.1304)ElseIfzh<37683.43Thenx=3302286.5y=514747.726zhjd=37142.734jzj=dzh(34.263)jzh=dzh(252.353)ElseIfzh<38850.118Thenx=3302680.931y=513460.274zhjd=38458.851jzj=-1*dzh(28.2945)jzh=dzh(287.0159)ElseIfzh<=40400Thenx=3302433.987頁腳內(nèi)容12[標(biāo)簽:標(biāo)題]y=512242.43zhjd=39687.464jzj=dzh(28.4725)jzh=dzh(258.3215)ElseExitFunctionEndIf'到這里結(jié)束pi=3.14159265358979頁腳內(nèi)容12[標(biāo)簽:標(biāo)題]ElseEndFunction以上模塊其實就是一個以自變量為樁號的函數(shù)，名字是叫zbx所返回的值就是坐標(biāo)x。也許有人會說什么亂七八糟的東西，我一點(diǎn)也看不懂。呵呵，沒關(guān)系，我們所要的只是把它運(yùn)用于實際中來，并不要求所有人都能看懂，畢竟要全部看懂，還得學(xué)會編程語言vba。這里我只講它的用法，怎么能讓它運(yùn)用到所有項目的路線中去。首先讓我們知道這個頁腳內(nèi)容12[標(biāo)簽:標(biāo)題]個數(shù)據(jù)是變化的。所以必須得改一些東西。剛才說的那個把它全部刪除，什么？刪除？對，Ifzh>=起始樁號Andzh<第一個交點(diǎn)的第二緩和曲線終點(diǎn)樁號Then'從這里開始x=交點(diǎn)橫坐標(biāo)y=交點(diǎn)縱坐標(biāo)zhjd=交點(diǎn)樁號（說明：輸入方式，比如31°02′19ls=緩和曲線長度jzh=dzh(前一個交點(diǎn)到下一個交點(diǎn)的方位角)ElseIfzh<第二個交點(diǎn)的第二緩和曲線終點(diǎn)樁號Thenx=第二個交點(diǎn)橫坐標(biāo)y=第二個交點(diǎn)縱坐標(biāo)zhjd=第二個交點(diǎn)樁號jzj=dzh(第二轉(zhuǎn)角)ls=緩和曲線長度jzh=dzh(第二交點(diǎn)與第一交點(diǎn)的方位角)ElseExitFunctionEndIf'到這里結(jié)束序就會出錯。數(shù)據(jù)在你輸入的時候一定要保證準(zhǔn)確無誤，不然的話就到時候計算出來的數(shù)據(jù)頁腳內(nèi)容12[標(biāo)簽:標(biāo)題]到這里模塊1應(yīng)該弄清楚了吧，接下來的就特別簡單了，我們繼續(xù)講解模塊2：這句話很有道理，這么快就搞定模塊2了。??？怎么可能，改的完全是一樣的，只是還要改正一下倒數(shù)第三行，把模塊1里面的頁腳內(nèi)容12[標(biāo)簽:標(biāo)題]zbx改成jfw就行了，哈哈，這也太簡單了吧。是的，就是這么簡單。如31°02′44″，只要輸入dzh（31.0244）就會把角度轉(zhuǎn)換成對應(yīng)的弧度。這就是上面說明中解釋角度為什么要這樣子輸入，嘿嘿，方便吧?？炝?，離成功就只有一點(diǎn)點(diǎn)了，我們現(xiàn)在已經(jīng)能計算出全部的坐標(biāo)了，讓我們看看高程要知道高程怎么計算，我們先看看設(shè)計院能提供給頁腳內(nèi)容12[標(biāo)簽:標(biāo)題]不錯，正如你所想，把它刪掉。然后……沒有然后了，這樣子就行了，嘿嘿，開玩笑的了，Ifzh>=起始樁號Andzh<第一個圓曲線的終點(diǎn)樁號Then'從這里開始zh1=前一個交點(diǎn)樁號zh2=中間的交點(diǎn)樁號（也就是正用的第一個）zh3=下一個交點(diǎn)樁號gc1=前一個交點(diǎn)的高程gc2=中間的交點(diǎn)的高程gc3=下一個交點(diǎn)的高程ElseIfzh<第二個圓曲線的終點(diǎn)樁號Thenzh1=相對于這個交點(diǎn)的前一點(diǎn)樁號zh2=這個交點(diǎn)的樁號zh3=相對于這個交點(diǎn)的下一個樁號gc1=還用說明你就是傻瓜gc2=還用說明你就是傻瓜gc3=還用說明你就是傻瓜ElseExitFunctionEndIf'到這里結(jié)束個空格或N個空格，我也不怎么記得語法了，你這樣做至少能夠保證是正確的?，F(xiàn)在我們已經(jīng)在vb編輯器里面全部改過來了，我們可以在工作表里面試驗一下子了，剛才我們用了幾個自定義函數(shù)呢，x坐標(biāo)zbx、y坐標(biāo)zby程sqx。這么累，讓我們來體會一下勞動的果實吧。