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