【正文】 線進行詳細測設，與 用切線支距法進行單圓曲線詳細測設方法相似，首先以 ZH 點為坐標原點，其各樁點坐標計算如下： 北京交通大學畢業(yè)設計（論文） 23 ? 當點位于緩和曲線上，有： ???????????3373225336640ssslRlRllylRllx （ 319） 這里有個問題，當以 HZ 點為坐標原點時，計算的另一半曲線任意一點的坐標需通過坐標轉(zhuǎn)換統(tǒng)一為以 ZH 點為原點的切線直角坐標系中的坐標，在 下面的文章里會做詳細介紹。例如，將度分秒化成度程序如下： sub 角度轉(zhuǎn)換 () 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 曲線切線直角坐標轉(zhuǎn)換到測量坐標子程序段： 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 點切線左側(cè)為 1， 反之 為 1。接下來，首先，編制 VBA程序，求取緩和曲線的各曲線要素，程北京交通大學畢業(yè)設計（論文） 30 序設計如下圖 45 所示：在此編程過程中，首先要聲明變量，為防止變量在其他程序中被調(diào)用，因此選擇 Public。 逐樁坐標計算及最后成果輸出 接下來進行逐樁坐標計算程序的編寫，根據(jù)以上所 求得的數(shù)據(jù)，并應用相關(guān)坐標求取公式，求各點坐標，然后在對應的單元格內(nèi)把最后的成果輸出。 這時，在“標準”工具欄上，單擊“用戶窗體”、“模塊”、“類模塊”按鈕，或在“插入”菜單中選擇相應的菜單命令，便可在“工程”中插入相應的項目。 （ 1） 當 il ZH 點里程時，所計算的坐標為緩和曲線前直線段的坐標； （ 2） 當 ZH 點里程 il HY 點里程時，所計算的坐標為緩和曲線上點的坐標； （ 3） 當 HY 點里程 il YH 點里程時，所計算的坐標為園曲線上的坐標； （ 4） 當 il YH 點里程時，所計算的坐標為另一段緩和曲線上的坐標。 （ 2）用偏角法對帶有緩和曲線的圓曲線進行詳細測設，如圖 36 所示，其步驟如下： ? 當點位于緩和曲線上，有： 總偏角（常量）： Rls60?? (314) 偏角 ： 022??sll? (315) 圖 36 偏角法進行緩和曲線詳細測設 距離：用曲線長 l 來代替弦長。在測設圓曲線的主要點之前，應根據(jù)圓曲線的半徑 R 、線路偏角 ? 及緩和曲線長 度 0l ，確定曲線要素 T 、 E 、 L 、 D 。 圓曲線的主要點包括： ZY 點（直圓點）、 QZ 點（曲中點）、 YZ 點（圓直點）。相對于專業(yè)軟件看不見的內(nèi)部數(shù)組來北京交通大學畢業(yè)設計（論文） 14 說， Excel的單元格就是一個二維數(shù)組中的一個元素，直觀易懂，便于數(shù)據(jù)的調(diào)用和表示，而且，這種二維數(shù)組的數(shù)據(jù)格式靈活多變，它沒有統(tǒng)一的格式限制， 可以定義任一單元格為任一數(shù)據(jù)格式。倘若程 序所要執(zhí)行的工作是屬于不固定次數(shù)的情形時，則可以考慮使用 Do?Loop 語句來編寫程序。 順序結(jié)構(gòu)就是個語句按出現(xiàn)順序先后次序執(zhí)行。能否返回值，也是常說的過程和函數(shù)之間的最大區(qū)別。并且能夠?qū)⑹褂?VBA 代碼編寫的通用程序和自定義函數(shù)制作成通用的加載項，在不同的場合重復使用。 VBA 的目的是幫助使用者根據(jù)自己的需要在 Office 環(huán)境中進行功能模塊的定制與開發(fā) [6]。 研究的框架 本文研究框架流程如圖 11： 圖 11 研究框架流程 認識學習V B A 編寫坐標計算程序 掌握宏的錄制 分析線路坐標計算方法 線路逐樁坐標計算 切線支距法 偏角法 了解 VBA控制結(jié)構(gòu) 學習創(chuàng)建函數(shù)過程 窗口美化并檢測完善程序 北 京 交 通 大 學 畢 業(yè) 設 計 （ 論 文 ） 緒論 4 研究內(nèi)容 目前，計算機技術(shù)已經(jīng)在工程建設中廣泛應用 ， 通過 Excel 進行各種數(shù)據(jù)計算更是業(yè)內(nèi)人士最常用的手段之一。為滿足國民經(jīng)濟快速發(fā)展的要求，我國制定了《中長期鐵路網(wǎng)規(guī)劃》，加快我國鐵路網(wǎng)建設，到 2020 年我國鐵路線路營業(yè)里程將達到 12 萬公里，復線率和電氣化率均達到 50%。 論文作者 簽名 ： _________________ ______年 _______月 ______日 指導教師 簽名 ： _________________ _______年 _______月 ______日 北京交通大學 畢業(yè)設計 (論文 )成績評議 年級 2021 層次 專升本 專業(yè) 土木工程（公路工程與管理） 姓名 陳南江 題目 ExcelVBA 在 道路中樁放樣數(shù)據(jù) 計算中的應用 指 導 教 師 評 閱 意 見 成績評定： 指導教師： 年 月 日 評 閱 教 師 意 見 評閱教師： 年 月 日 答 辯 小 組 意 見 答辯小組負責人： 年 月 日 北京交通大學 畢業(yè)設計 (論文 )任務書 本任務書下達給： 2021 級 土木工程（公路工程管理） 專業(yè) 學生 陳南江 設計（論文）題目： ExcelVBA 在 道路中樁放樣數(shù)據(jù) 計算中的應用 一、 畢業(yè)設計（論文）基本內(nèi)容 二、基本要求 三、重點研究的問題 四、主要技術(shù)指標 五、其他要說明的問題 下達任務日期： 年 月 日 要求完成日期： 年 月 日 指導教師： 開 題 報 告 題目： ExcelVBA 在 道路中樁放樣數(shù)據(jù) 計算中的應用 學生姓名 ： 陳南江 學號 ： 14677159 年 月 日 一、 文獻綜述 填寫說明：指根據(jù)論文題目查閱參考文獻，通過文獻的閱讀寫清該課題內(nèi)容的國內(nèi)外研究與應用現(xiàn)狀、基本研究方法、當前存在的問題、發(fā)展動向，進而引出開展本設計（論文）研究的內(nèi)容、意義、必要性和價值等（頁面大小可以根據(jù)字數(shù)多少調(diào)整）。 通過本文的研究分析解決了線路坐標計算復雜繁冗的問題，證明了ExcelVBA 在線路坐標計算中的可行性。在道路中樁線路放樣工作中 ， 如果沒有專業(yè)設計軟件輔助計算 ， 道路中樁特別是帶有緩和曲線的復合曲線上的中樁里程與坐標的計算是很繁瑣的事 ， 需要進行大量的、復雜的計算，費神費時間 ，且極易出錯。對不同區(qū)塊的測井數(shù)據(jù)進行處理 表明 ，該程序?qū)崿F(xiàn)了數(shù)據(jù)的批處理 ， 可極大地減輕手工處理數(shù)據(jù)的工作量 ， 為油田數(shù)據(jù)處理提供了一種實用方法 [3]。 盡管 VBA 是基于 Visual Basic 發(fā)展而來的，它們具有相似的語言結(jié)構(gòu)，但是 VBA 與 VB還是有一定區(qū)別的： 北京交通大學畢業(yè)設計（論文） 7 是設計用于創(chuàng)建標準的 應用程序 ， 而 VBA 是使已有的應用程序(Excel 等 )自動化 。 宏 是編程，但即使用戶不是開發(fā)人員也可以使用它們，甚至不需要具備任何編程知識，在 Office 程序中可以創(chuàng)建的多數(shù)宏都是用 VBA 語言編寫的。 Sub 語句聲明一個新的過程、它接受的參數(shù)和該過程中的代碼。計數(shù)累加 北京交通大學畢業(yè)設計（論文） 11 = 180。 …Then…Else 語句 (多分支結(jié)構(gòu) ) If 表達式 Then 北京交通大學畢業(yè)設計（論文） 13 語句塊 1 Else 語句塊 2 … [Else 語句塊 n+1] End If 作用：根據(jù)不同的表達式值確定執(zhí)行哪個語句塊。平面曲線最基本的元素 是 圓曲線和緩和曲線，其他曲線都是由其派生而成的 [9]。所以，在進行作業(yè)時應仔細檢查。在兩切線上，自 JD 起分別向曲線起、終點量取 0xT? 距離，然后沿起垂直方向量 0y ，即得 HY、 YH 點 [9]。其做法是在地面上沿切線方向自 ZH（或 HZ）量出 ix ，在其 垂直放線量取 iy ，便可定出曲線上 i 點坐標。 編程界面的進入和基本子程序 首先，新建一個 Excel 工作表，然后通過 “ 工具 ” 選項卡下的 “ 宏 ” 子菜單中的 “ Visual Basic 編輯器 ” 進入 VBE 編輯環(huán)境，如圖 41 所示 [7]： 圖 41 啟動 VBE 或者在啟動 Excel 工作表之后，按 “ ALT+F11” 鍵，可快速啟動 VBE 開發(fā)環(huán)境。下面是簡單的程序模塊設計，北京交通大學畢業(yè)設計（論文） 29 如圖 43 所示： 圖 43 程序模塊的插入 緩和曲線數(shù)據(jù)編程計算以及成果輸出 為了減少工作中的繁重計算，應用 VBA 編寫相應數(shù)據(jù)計算程序，操作簡單，應用方便，從而大大的增加了工作效率。注意， 依次計算 ， 順序點擊按鈕， 否則會導致計算結(jié)果有誤。每個過程都有唯一的名字，過程中包含一系列語句。如圖 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 軸方向相反，通過坐標轉(zhuǎn)換，若 ? 為右偏角，則另一半曲線任意一點的坐標為 [12]： ??