【正文】 （ 317） )c o s1( ii Ry ??? （ 318） 式中 ?? Rlii?180? ,其中 il 為各點至原點的弧長（里程）。 ? 利用上式計算出各樁點坐標后 ，再用方向架、鋼尺去丈量。 （ 2） 用切線支距法對帶有緩和曲線的圓曲線進行詳細測設，與 用切線支距法進行單圓曲線詳細測設方法相似，首先以 ZH 點為坐標原點，其各樁點坐標計算如下： 北京交通大學畢業(yè)設計（論文） 23 ? 當點位于緩和曲線上，有： ???????????3373225336640ssslRlRllylRllx （ 319） 這里有個問題，當以 HZ 點為坐標原點時，計算的另一半曲線任意一點的坐標需通過坐標轉換統(tǒng)一為以 ZH 點為原點的切線直角坐標系中的坐標，在 下面的文章里會做詳細介紹。 ? 當點位于圓曲線上時，各樁點坐標同 用切線支距法進行單圓曲線詳細測設方法類似，但坐標計算公式略有不同，需要加上 p 和 q 。 p 為加設緩和曲線后圓曲線相對于切線的位移量， q 為加設緩和曲線后使切線增長的距離，即下式： qRx ii ?? ?sin （ 320） pRy ii ??? )co s1( ? （ 321） 式中： Rll si 22 ???。 用切線支距法測設曲線，由于各曲線點是獨立測設的，其測角及量邊的誤差都不積累，所以在支距不太長的情況下，具有精度較高、操作較簡單的優(yōu)點，故應用也較廣泛。但它不能自行閉合，自行檢核，所以對已測設的曲線點，要實量其相鄰兩點間的距離，以作檢核 [9]。 線路逐樁坐標計算 我們知道，對于曲線上任意一點的坐標都可以曲線長 il 為參數(shù)計算得到。 （ 1） 當 il ZH 點里程時，所計算的坐標為緩和曲線前直線段的坐標； （ 2） 當 ZH 點里程 il HY 點里程時，所計算的坐標為緩和曲線上點的坐標； （ 3） 當 HY 點里程 il YH 點里程時，所計算的坐標為園曲線上的坐標； （ 4） 當 il YH 點里程時，所計算的坐標為另一段緩和曲線上的坐標。 當以 ZH 點為原點計算線路坐標到 QZ點后，同樣建立以緩直點 HZ 為原點，過 HZ 點的緩和曲線切線為 x 軸， HZ 點上緩和曲線的半徑為 y 軸的切線直角坐標系，計算另一半曲線任意一點的坐標 ix? ， iy? 。這時，需通過坐標轉換統(tǒng)一為北京交通大學畢業(yè)設計（論文） 24 以直緩點 ZH 的切線直角坐標系中的坐標。如圖 38 所示， HZ 點的坐標為： ????????sincos221 Ty TTxHZHZ （ 321） 2T HZ 左? ZH 1T JD 右? 2T HZ 圖 38 HZ點在 ZH切線直角坐標系中的坐標 過 HZ 點緩和曲線的切線 x 軸在一直緩點 ZH 為原點的切線直角坐標系中的方位角 右???180 或 左???180 ，并考慮以緩直點 HZ為原點的 y 軸方向與以 ZH為原點的 y 軸方向相反，通過坐標轉換，若 ? 為右偏角，則另一半曲線任意一點的坐標為 [12]： ?????????????????c oss i ns i nc osiiHZiiiHZi yxyy yxxx （ 322） 若 ? 為左偏角，則另一半曲線任意一點的坐標為： ?????????????????c oss i ns i nc osiiHZiiiHZi yxyy yxxx （ 323） 切線直角系中的坐標轉換到測量坐標系中的坐標 為了在已知坐標的測量控制點上進行曲線放樣，必須將以 ZH 點為原點的切線直角坐標系中的曲線坐標轉換到線路導線測量坐標系中去。根據(jù) ZH 點切線所在的直線段兩端端點的測量坐標計算該邊的坐標方位角為 A ， ZH 點在測量坐標系中的坐標為 ZHX 和 ZHY ，若曲線位于 ZH 點切線的右側，則曲線任意一點在測量坐標系中的坐標為： 北京交通大學畢業(yè)設計（論文） 25 ?????????AyAxYYAyAxXXiiZHiiiZHi c oss i n s i nc os （ 324） 若曲線位于 ZH 點切線的 左 側，則曲線任意一點在測量坐標系中的坐標為： ?????????AyAxYYAyAxXXiiZHiiiZHi c oss i n s i nc os （ 325） 北京交通大學畢業(yè)設計（論文） 26 4 程序模塊設計及實現(xiàn) 前面介紹了 ExcelVBA 的一些基礎知識和一些平面曲線坐標計算的方法。那么現(xiàn)在我們就選擇其中具有代表性的計算方法進行程序模塊設計 。 程序窗口的基本應用和 程序模塊設計 既然要通過 ExcelVBA 進行程序設計，那 么 首先要進入 ExcelVBA 的開發(fā)環(huán)境 VBE 中。 編程界面的進入和基本子程序 首先，新建一個 Excel 工作表，然后通過 “ 工具 ” 選項卡下的 “ 宏 ” 子菜單中的 “ Visual Basic 編輯器 ” 進入 VBE 編輯環(huán)境，如圖 41 所示 [7]： 圖 41 啟動 VBE 或者在啟動 Excel 工作表之后，按 “ ALT+F11” 鍵，可快速啟動 VBE 開發(fā)環(huán)境。 北京交通大學畢業(yè)設計（論文） 27 圖 42 VBA編程界面 打開 VBE 界面以后，便可直接進行編程。 編輯程序過程中 ， 很多情況下也許 需添加角度轉化成度、坐標轉換等子程序。例如，將度分秒化成度程序如下： sub 角度轉換 () Dim A As Double Dim b As Integer Dim C As Double Dim D As Integer Dim E As Double Dim I As Integer Dim F As Double b = Fix(A) C = (A b) * 100 D = Fix(C) E = (C D) * 100 F = b + D / 60 + E / 3600 北京交通大學畢業(yè)設計（論文） 28 End sub 曲線切線直角坐標轉換到測量坐標子程序段： Xhz = T + T * Cos(FWJ) Y hz= T * Sin(FWJ) If range（“ G1“） =1 Then X(i) = Xzh + x(i) * Cos(B) + y(i) * Sin(B) Y(i) = Yzh + x(i) * Sin(B) y(i) * Cos(B) Else if range（“ G1“） =1 then X(i) = Xzh + x(i) * Cos(B) + y(i) * Sin(B) Y(i) =Yzh + x(i) * Sin(B) y(i) * Cos(B) 其中， G1 為單元格所輸入的數(shù)字 ， 曲線位于 ZH 點切線左側為 1， 反之 為 1。 基礎模塊設計簡介 每個 VBA 應用程序都存在于一個“工程”中。工程下面可分為若干個“對象”、“窗體”、“模塊”和“類模塊”。在進行錄制宏時，如果原來不存在模塊，office 就自動創(chuàng)建一個。 在“工具”→“宏”菜單中選擇“ Visual Basic 編輯器”命令，或者按 Alt+F11快捷鍵進入 VBA 編輯環(huán)境。 在“視圖”菜單中選擇“工程資源管理器”命令，或在“標準”工具欄上單擊“工程資源管理器” 按鈕，打開“工程”任務窗體。 這時，在“標準”工具欄上，單擊“用戶窗體”、“模塊”、“類模塊”按鈕，或在“插入”菜單中選擇相應的菜單命令，便可在“工程”中插入相應的項目。雙擊任意一個項目，在在右邊的窗格中便可查看或編寫程序代碼。 模塊中可以定義若干個“過程”。每個過程都有唯一的名字，過程中包含一系列語句。過程可以是函數(shù)、子程序或屬性。 編程的開始，首先涉及到程序模塊的建立。然后在模塊中進行 VBA 程序編寫，每一個模塊將對應著 excel 中的一個操作按鈕。下面是簡單的程序模塊設計，北京交通大學畢業(yè)設計（論文） 29 如圖 43 所示： 圖 43 程序模塊的插入 緩和曲線數(shù)據(jù)編程計算以及成果輸出 為了減少工作中的繁重計算，應用 VBA 編寫相應數(shù)據(jù)計算程序，操作簡單，應用方便，從而大大的增加了工作效率。 數(shù)據(jù)編程計算步驟與圖解 在緩和曲線數(shù)據(jù)編程計算過程中，涉及到的諸多內容在此就不一一介紹了，下面簡單介紹相關編程求解步驟： 已知數(shù)據(jù)的輸入； 求取緩和曲線要素； 主點里程坐標計算； 逐樁號坐標計算； 成果輸出。 圖 44 計算表格的繪制 根據(jù)計算需求，同時為了能夠較直觀一些，繪制如圖 44 計算表格， 并輸入已知數(shù)據(jù)。接下來，首先，編制 VBA程序，求取緩和曲線的各曲線要素，程北京交通大學畢業(yè)設計（論文） 30 序設計如下圖 45 所示：在此編程過程中，首先要聲明變量，為防止變量在其他程序中被調用，因此選擇 Public。例如： Public R， Ls， T， L， j as Double 等等，其中 Double 為雙精度變量類型。然后應用相應的計算公式繼續(xù)進行編程，最后在對應的單元格中輸出相應的結果。 45 緩和曲線要素求取程序 首先，在固定的位置把已知數(shù)據(jù)輸入，運用已編制的程序計算數(shù)據(jù)結果，即點擊曲線要素計算按鈕，得出所要求的 數(shù)據(jù)。通過已知數(shù)據(jù)和所求得的曲線要素進行下一步主點里程和坐標的計算，程序設計如圖 46 圖 46 緩和曲線主點里程坐標計算 在此程序編制過程中，應用到 Mid（）函數(shù)和 Format（）格式函數(shù)（用于調整樁號的輸出格式）以及 If 條件語句和取整函數(shù) Int（）等，然后 根據(jù) 上一步所求得的曲線要素 ，進行該步數(shù)據(jù)計算，依次計算，順序點擊按鈕 ， 計算成果 數(shù)據(jù) 。注意，不能打亂點擊順序，否則會造成計算結果 輸出有誤。 逐樁坐標計算及最后成果輸出 接下來進行逐樁坐標計算程序的編寫，根據(jù)以上所 求得的數(shù)據(jù)，并應用相關坐標求取公式，求各點坐標，然后在對應的單元格內把最后的成果輸出。計算北京交通大學畢業(yè)設計（論文） 31 程序如下： 圖 47 逐樁坐標計算程序 在逐樁坐標計算過程中 ，應用切線支距法進行編程，在程序編寫過程中，首先應用一個輸入對話框（ InputBox），在其中輸入樁距，然后利用 While 循環(huán)進行逐樁里程的輸出，然后根據(jù)放樣點所在的曲線位置，應用對應的計算公式進行坐標計算，在此后過程中，涉及到一個坐標轉換問題，對應轉換公式在前章內容中已給出，最后，在相應的單元格內完成里程坐標的輸出。 圖 48 成果輸出 圖例中數(shù)據(jù) 為 某段緩和曲線 的計算步驟和程序圖解 ，依次是 設計表格及輸入已知數(shù)據(jù)、緩和曲線要素計算、主點里程坐標計算和逐樁坐標計算等 。注意， 依次計算 ， 順序點擊按鈕， 否則會導致計算結果有誤。 北京交通大學畢業(yè)設計（論文） 32 數(shù)據(jù)錄入并儲存完成之后，運行程序用戶窗體， 依次單擊前兩個按鈕 ，將 未知的相關數(shù)據(jù)計算 錄入， 然后點擊