怎樣計算高速公路路線坐標及高程

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