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