【正文】 節(jié)理較發(fā)育，王家莊逆斷層與線路交于 DK426+350 處。節(jié)理較發(fā)育，巖體較完整。節(jié)理發(fā)育，巖體較完整。該段巖性為泥盆系中統(tǒng)信都組砂巖、泥質(zhì)砂巖夾頁巖，青灰色，紫紅色，中細粒質(zhì)結(jié)構(gòu)，中厚厚層狀夾薄層狀，巖質(zhì)較硬。將表 61 里的數(shù)據(jù)通過圖 64 平面數(shù)據(jù)管理窗體添加到數(shù)據(jù)庫。圖 61 工程管理石家莊鐵道大學畢業(yè)設計30 圖 62 新建工程 巖性表設置為了使用方便我們搜集了大量的巖性信息并將其存放到 PAT 文件夾中通過模塊調(diào)用該文件夾中的內(nèi)容顯示在“巖性表管理”對話框的“巖性及填充庫”列表中。你可同時打開你所有模塊中的代碼窗口，所以你可很容易地 不同窗體或模塊中的代碼，并在它們之間進行復制和粘貼。該輸入部件將增加到你的工程中并在工程窗口中出現(xiàn)。而原來的文件也會保持不變。輸入現(xiàn)存的部件輸入功能允許你增加現(xiàn)存的部件到工程中。當命名一個新的部件，請記住可能其它開 發(fā)都會在以后的應用程序中用到你的部件。引用部件包含所有引用其它的工程和庫。窗體部件包含了當前你在工程中為了使用而建立的自定義對話框。定義工程的部件，每個工程可包含多個不同的部件。使用查看代碼按石家莊鐵道大學畢業(yè)設計27鈕可打開選定模塊的代碼。在 AutoCAD 啟動時自動打開 VBA IDE 的操作。刪除宏操作：打開宏對話框并選擇要刪除的宏；選擇刪除，系統(tǒng)會提示你是否確認刪除；在提示下，選擇“是”而刪除宏，或者選擇“否”以取消刪除的操作。如果所指定宏的名稱已經(jīng)存在，系統(tǒng)將提示你是否替換現(xiàn)在的宏。逐語句運行宏指的是開始運行宏并在第一行代碼時暫停。運行宏的操作：打開宏對話框并選擇要運行的宏；選擇運行。運行宏，運行宏就是在當前 AutoCAD 進程中執(zhí)行宏代碼。你可通過下拉列表來改變有效范圍。宏是公用 ( 可執(zhí)行 ) 的子程序。你必須到 VBA IDE 中才可以更改工程名稱。創(chuàng)建新的工程：新的工程將作為未保存的全局工程被創(chuàng)建。當你分離工程時，其實是將工程從圖形數(shù)據(jù)庫中刪除，同時會提示你將工程保存為外部的工程文件。無論何時，當所包含工程的圖形打開或關(guān)閉時，工程會同時被裝載和被卸載。卸載工程以釋放內(nèi)存并保持裝載的工程列表的長度以方便管理。相關(guān)主題：病毒警告。該 VBA 工程對話框允許你打開有效的 DVB 文件；如果你嘗試打開不同類型的文件，你將會得到出錯信息；選擇打開。裝載現(xiàn)存的工程，當你裝載工程到 AutoCAD 中，所有的公用的子程序 ( 也稱為宏 ) 都可以使用。 AutoCAD VBA 簡介 什么是 AutoCAD VBAVBA 是 Visual Basic for Applications 的英文縮寫，它是一個功能強大的開發(fā)工具，在工作中，有很多任務僅用 AutoCAD 命令不可能完成的，學好 VBA 可以成倍甚至成百、成萬倍提高工作效率。通過超連接的方式確定要刪除的記錄，這種方式一般要設計兩個動態(tài)頁面，一個動態(tài)頁面用于提供可供選擇的刪除記錄，每個記錄的主鍵字段包含一個超連接，當用戶單擊此超連接時，即可調(diào)另一網(wǎng)頁獲取選擇頁面所提交的刪除記錄的特征值實現(xiàn)對該記錄的刪除。我們一般使用通過連接對象的 Execute 方法執(zhí)行 SQL 命令中的 Delete 命令的方法，這種方法可以帶刪除條件，一個命令可以刪除多條滿足條件的記錄；而利用記錄集對象的 Delete 方法只能刪除當前記錄，所以必須通過循環(huán)語句才能刪除多條記錄，運行效率較低。 UpdateBatch：更新（保存）一個或多個記錄的修改。 Update：更新當前記錄，將記錄集中編輯修改的記錄寫入數(shù)據(jù)庫中。 雖然連接對象的 Execute 方法也能用 Insert 命令實現(xiàn)記錄的插入，但對于有較多字段名和多個字段值的情況來說，用 Insert 命令實現(xiàn)記錄的插入書寫代碼比較麻煩，而且容易寫錯，不適合大量字符串的插入。Field 對象包含如下屬性：Name：字段名 Type：字段的數(shù)據(jù)類型 Value：字段的值 Count：返回記錄集中一條記錄的字段個數(shù)可以通過以下方式調(diào)用 Field 對象的不同屬性：(字段名或字段序號)Value (字段名或字段序號).Type(字段序號).Name其中字段序號表示當前字段在字段子集合 Fields 中的排列位置，若有 n 個字段，則其值從 0、2...n1。但要注意，當指針類型參數(shù)設置為 adOpenForwardOnly 時，光標向前移動的方法是不可用的。PageCount：返回當前記錄集所包含總頁數(shù)。EOF：用來測試并返回記錄指針是否到達記錄集的尾部。（1）記錄集中的屬性 記錄集對象中有許多屬性，它們對遍歷記錄集是有用處的。實現(xiàn)的語法分別如下：石家莊鐵道大學畢業(yè)設計21Set 對象變量名 = 連接對象變量名 .Execute(“SQL 命令”)如：Set RS = (“Select * From 注冊用戶”) ‘執(zhí)行查詢，產(chǎn)生記錄集另一種方法是先用 Sever 對象的 CreateObject 方法創(chuàng)建記錄集對象實例。 Recordset 對象 Recordset 對象是一個記錄的集合，它用于保存通過查詢所獲得的記錄結(jié)果。用于保存命令執(zhí)行后受影響的記錄的條數(shù),如刪除的記錄數(shù)。（2）若要將對象從內(nèi)存中完全刪除，可將對象變量設置為 Nothing。 server=服務器名稱。 DBQ= 文件的物理路徑。（1）OPEN 方法使用格式如下： 連接字符串 其中，連接字符串是說明欲連接數(shù)據(jù)庫的類型及數(shù)據(jù)庫的名稱。ADO 提供了幾個獨立的子對象，利用這些子對象，就可以實現(xiàn)對數(shù)據(jù)庫的訪問，在這幾個對象中，Connection、Command 和 RecordSet 對象是整個 ADO 的核心 。3)如果 且 ，則所求里程在圓曲線上??0lcqd1Tl??0cqld1l + （429）()sTlc?? （430）08blR????。 圖 36 打印石家莊鐵道大學畢業(yè)設計15第 4 章 重點算法為了實現(xiàn)展示圖圖例填充角度的計算，首先應該計算任意一點的方位角，然后根據(jù)方位角確定線路走向，最后根據(jù)線路走向確定與沿線隧道斷面的投影角度，最終實現(xiàn)正確的展示圖圖例填充角度。石家莊鐵道大學畢業(yè)設計13圖 33 平面數(shù)據(jù)管理里 巖性表的管理本窗體的功能是把沿線地質(zhì)巖性類型添加到巖性表，使數(shù)據(jù)庫數(shù)據(jù)完整方便繪圖時調(diào)用數(shù)據(jù)庫，窗體設置及按鈕布局如圖 34 所示。唯一需要說明的是選擇框的實現(xiàn)，它需要在窗體初始化時就調(diào)用否則在文本框里將不能同步顯示圍巖級別。窗體按鈕布局如圖 31 所示。 DZSub 模塊本模塊包含了圖框的繪制、字體的大小及定位、圖框布局的設計、方位角的計算等程序的編寫。本模塊有兩個不同的過程，一個是用 函數(shù)實現(xiàn)工程管理、數(shù)據(jù)編錄、平面數(shù)據(jù)管理設置、巖性表設置、編錄出圖幾個菜單項窗體的顯示功能。本模塊只有一個 Inimenu 過程，在該過程里實現(xiàn)了創(chuàng)建新菜單“隧道地質(zhì)編錄”項的目的，且在“隧道地質(zhì)編錄”里添加了工程管理、數(shù)據(jù)編錄、平面數(shù)據(jù)管理設置、巖性表設置、編錄出圖、圖表打印幾個菜單項。 模塊通過 caidan 模塊添加菜單項及子菜單項，Caidanxianshi 項通過 show 顯示各個子菜單對應的窗體。圖 21 主要描述了表格之間的關(guān)系。只有表 YT 里的內(nèi)容清空后 yanxing 表才可以被刪除，否則無法對 yanxing 表進行某些操作。只有 shigong 表里的內(nèi)容清空后 name 表才可以被刪除，否則無法對 name 表進行某些操作。只有當xianlu 表里的內(nèi)容清空后 name 表里的工程才可以刪除。表 25 xianlu(平面數(shù)據(jù)管理) 表包括的字段及內(nèi)容字段 數(shù)據(jù)類型 定義 備注E_ID Int 工程地址JD_ID Int 交點地址 主鍵X Real 交點的 X 坐標Y Real 交點的 Y 坐標R Real 曲線半徑lo float 緩和曲線長（6）Yanxing 表主要描述了不同地段的巖性特征，YX_ID 表示巖性變化點的地址，通過巖性地址與 YT 表建立某種聯(lián)系是的不同隧道斷面的巖性描述可以調(diào)用此表里的信息；YXMC 儲存了對不同巖性情況的描述； YXTCT 表示巖性的表示方法；YXTCBL 表示巖性的比例值，詳細信息見表 26。表 22 sheji（地質(zhì)描述）表包括的字段及內(nèi)容石家莊鐵道大學畢業(yè)設計5字段 數(shù)據(jù)類型 定義 備注E_ID int 工程地址GWID int 工程水文地質(zhì)地址 主鍵GWQZ nvarchar(10) 工程水文地質(zhì)前綴GWM decimal(18, 0) 工程水文地質(zhì)描述GWLC nvarchar(200) 工程水文地質(zhì)里程（3）Shigong 表主要記錄了沿線施工時的地質(zhì)情況，E_ID 表示不同的工程地址；DM_ID 表示施工時的隧道斷面劃分地址；DMDC 表示施工時隧道斷面的地層巖性特征；DMSW 表示施工時隧道斷面的水文情況；DMGC 表示隧道斷面工程地質(zhì)特征；DMCZ 隧道斷面施工時隧道初期支護的概述； DMLC 表示施工隧道斷面的里程；DMC 施工時隧道斷面的圍巖級別；DMQZ 表示施工時隧道斷面的里程前綴（DK） ，詳細信息見表 23。以下是幾個表的主要信息（1）Name 表主要記錄了工程的名稱、工程的里程信息。石家莊鐵道大學畢業(yè)設計4第 2 章 數(shù)據(jù)庫結(jié)構(gòu)設計為了使工作簡單化，我們現(xiàn)將平面線路所測數(shù)據(jù)、沿線圍巖級別及地質(zhì)情況描述錄入數(shù)據(jù)庫，這樣將具體情況數(shù)據(jù)化，然后將數(shù)據(jù)從數(shù)據(jù)庫中調(diào)用并在 AutoCAD中應用 VBA 繪制地質(zhì)情況展示圖?！　。?）測試編寫好的系統(tǒng)。這次的文檔會清楚例用系統(tǒng)大致的大功能模塊，大功能模塊有哪些小功能模塊，并且還例出相關(guān)的界面和界面功能。（5）控制模塊設計、實現(xiàn)控制模塊主要是通過對全局的調(diào)整實現(xiàn)以上幾個模塊的鏈接，通過調(diào)試使程序運用更加的方便。為此我們需要設計一個窗體，而且此模塊需要在 DZSub 里編寫繪制圖框、字體、調(diào)用展示圖投影巖性的代碼。具體操作：在數(shù)據(jù)庫里建立 yanxing 表，這個表管理巖石特性的信息。在 AutoCAD 操作系統(tǒng)中建立窗體和模塊，地質(zhì)編錄數(shù)據(jù)管理模塊是要把施工和設計時隧道各個斷面的地質(zhì)情況記錄到表中，并且可以通過窗體對其進行操作。（2）地質(zhì)編錄數(shù)據(jù)管理模塊設計、實現(xiàn)為了使平面線路與其相應的地質(zhì)情況連接起來我們需要把設計、施工時的地質(zhì)信息錄入到數(shù)據(jù)庫表中，為此需要設計兩個表和一個窗體來實現(xiàn)本功能。 本設計解決的問題通過對 AutoCAD 平臺的二次開發(fā)，完成“鐵路隧道地質(zhì)編錄自動成圖系統(tǒng)”開發(fā)。使工作量由軟件從已編寫的數(shù)據(jù)庫文件中提取數(shù)據(jù)自動生成圖形。摘 要為了解決困擾工程地質(zhì)界的隧道地質(zhì)編錄繪圖難題，探索實現(xiàn)隧洞設計及施工地質(zhì)展示圖繪圖自動化和計算機化的可能途徑，本文以田壩嶺隧道施工地質(zhì)為范例，說明鐵路隧道地質(zhì)編錄自動成圖系統(tǒng)概念和實施要點，通過對 AutoCAD 平臺的二次開發(fā)最終實現(xiàn)自動成圖的目的。用鐵路隧道地質(zhì)編錄自動成圖系統(tǒng)繪制隧道展示圖比手工快幾十倍甚至更多。解決的問題包括：（1）線路平面數(shù)據(jù)管理模塊設計、實現(xiàn)先在數(shù)據(jù)庫里建立平面數(shù)據(jù)曲線的參數(shù)表把平面數(shù)據(jù)管理起來，然后在 VBA中設計窗體和模塊。這兩個表與 name 和 xianlu 表通過 E_ID 建立主鍵關(guān)系使得工程名稱、線路特征、地質(zhì)情況連接起來。同樣應用了 CommASS 模塊中編寫公共過程調(diào)用數(shù)據(jù)庫、執(zhí)行 SQL 語言的代碼；窗體里編寫可以執(zhí)行添加、刪除和更改數(shù)據(jù)的代碼。在 AutoCAD 操作系統(tǒng)中建立窗體和模塊，填充圖例管理模塊是要把隧道的地質(zhì)巖性管理到 yanxing 表中，并且可以通過窗體對其進行操作。具體操作：在 AutoCAD 操作系統(tǒng)中建立窗體和模塊，自動繪圖管理模塊是要把隧道的投影圖繪制出來，并且可以通過窗體對其進行操作。 采用的方法和步驟 方法鐵路隧道地質(zhì)編錄自動成圖系統(tǒng)開 發(fā) 就 是 在 可 視 開 發(fā) 工 具 提 供 的 圖 形 用 戶 界 面上 ， 通 過 操 作 界 面 元 素 ， 諸 如 菜 單 、 按 鈕 、 對 話 框 、 編 輯 框 、 單 選 框 、 復 選 框 、列 表 框 和 滾 動 條 等 ， 由 可 視 開 發(fā) 工 具 自 動 生 成 的 應用軟件?！　。?）系統(tǒng)分析和用戶再次確認需求。使用該程序，一個一個的確認每個功能。 數(shù)據(jù)庫 中的表本設計所解決的問題是使隧道中繪制復雜展示圖的工作簡便，為此我們在 SQL數(shù)據(jù)庫中建立一個數(shù)據(jù)庫將線路的信息分類記錄到表格中。并詳細記錄了字段名稱、類型、定義、主鍵名稱等。表 23 shigong（線路里程上的地質(zhì)情況）表包括的字段及內(nèi)容字段 數(shù)據(jù)類型 定義 備注E_ID Int 工程地址DM_ID Int 線路里程地址 主鍵DMDC nvarchar(100) 地層巖性特征DMSW nvarchar(100) 水文地質(zhì)特征DMGC nvarchar(100) 工程地質(zhì)特征DMCZ nvarchar(100) 初期支護概述DMLC decimal(18, 0) 線路里程DMC nvarchar(20) 施工圍巖級別DMQZ nvarchar(10) 線路里程前綴（4）Weiyanfenji 表主要記錄了在設計線路時各個工程上的地質(zhì)變化、圍巖級別變化的