【正文】 實(shí)踐中，許多系統(tǒng)往往在混合系統(tǒng)中體現(xiàn)實(shí)體幾何結(jié)構(gòu)和 B 代表模型最優(yōu)秀的特性。這些系統(tǒng)提供了輸入和操作圖形的工具，以及在給定的平面上完成合適的圖紙的可能。1）最小化輸入2）減少錯(cuò)誤的可能性3）改進(jìn)協(xié)調(diào)4）提高數(shù)據(jù)完整性5）在某階段生成的數(shù)據(jù)可用于其它階段6）提高的時(shí)間和成本的效率7）改進(jìn)的設(shè)計(jì)團(tuán)隊(duì)成員之間的溝通。這些故障是由于早期嘗試太硬性的集成而約束了程序員關(guān)于程序設(shè)計(jì)的看法。由于缺乏協(xié)調(diào)和戰(zhàn)略方法，在幾個(gè)學(xué)科里出現(xiàn)了所謂的“局部自動(dòng)化”。該文簡要討論了實(shí)現(xiàn)這些層次的一體化的手段，以及關(guān)于集成系統(tǒng)的未來發(fā)展的探討。在此，我還要感謝和我一起愉快的度過大學(xué)生活的老師和同學(xué)，正是由于他們的幫助和支持，我才能在實(shí)習(xí)期間學(xué)到很多的現(xiàn)場知識(shí)，克服一個(gè)一個(gè)的困難和疑惑，直至實(shí)習(xí)結(jié)束和本文的順利完成。Kramer, Bill. AutoCAD VBA Programming: Tools and Techniques ：San Francisco, Calif. CMP [12] Gibb, John VBA programming : Tools and techniques .CMP Books,1999致 謝本畢業(yè)設(shè)計(jì)是在牛老師的親切關(guān)懷和悉心指導(dǎo)下完成的。根據(jù)這個(gè)有針對(duì)性和比較單一的方案我們可以日益完善這個(gè)課題，可以使得本程序包含的內(nèi)容更加廣泛、更加的健全。從本設(shè)計(jì)里還學(xué)到線路平面設(shè)計(jì)、隧道橫斷面設(shè)計(jì)基本知識(shí)；工程地質(zhì)里巖性、產(chǎn)狀、構(gòu)造；工程測量里曲線參數(shù)、里程的計(jì)算等專業(yè)知識(shí)。最終的成果是通過對(duì)數(shù)據(jù)庫表的設(shè)置及程序的編寫實(shí)現(xiàn)了鐵路隧道地質(zhì)編錄自動(dòng)成圖的目的。確定后自動(dòng)生成67圖。426268巖體中結(jié)構(gòu)面發(fā)育，巖體呈塊石碎石狀結(jié)構(gòu)，巖體完整性較差。田壩嶺隧道426335噴砼，立拱支護(hù)，掛網(wǎng)錨噴受構(gòu)造影響重（斷層影響外帶），結(jié)構(gòu)面發(fā)育，巖體呈塊石碎石狀結(jié)構(gòu)，巖體完整性較差。426405426370該段巖性為泥盆系灰?guī)r和砂巖、泥質(zhì)砂巖夾頁巖，中厚薄層狀，巖質(zhì)軟硬相間。426417巖質(zhì)軟硬相間。426820426630巖體極破碎，巖體穩(wěn)定性差，巖體呈散體結(jié)構(gòu)。噴砼立拱 支護(hù)掛網(wǎng) 錨噴干燥潮濕。42718042767巖性為紅褐色微風(fēng)化弱風(fēng)化泥質(zhì)砂巖中厚薄層狀，巖質(zhì)軟硬相間層面產(chǎn)狀為110176。干燥427200該段巖性為紅褐色微風(fēng)化弱風(fēng)化續(xù)表64噴砼，掛網(wǎng)錨噴巖體較完整，層間結(jié)合較差，巖體穩(wěn)定性較好，巖體呈塊狀構(gòu)造。427280427235該段巖性為紅褐色微風(fēng)化泥質(zhì)砂巖，中厚。田壩嶺隧道施工的地質(zhì)數(shù)據(jù)見表6表64，把表中的數(shù)據(jù)通過工程數(shù)據(jù)管理—施工窗體添加到表中添加后窗體如圖66所示。該段巖性砂巖、泥質(zhì)砂巖夾頁巖，中厚厚層狀，巖質(zhì)較硬。該段未見明顯構(gòu)造跡象。區(qū)域性長軸背斜通過，與線路相交于DK429+380，交角20度。表61 線路曲線參數(shù)E_IDJD_IDRloXY1100800010042608580113000802306501240001001600續(xù)表613500134500908006500圖63 巖性表管理圖64 平面數(shù)據(jù)管理設(shè)置 工程地質(zhì)數(shù)據(jù)錄入本窗體主要實(shí)現(xiàn)了工程項(xiàng)目設(shè)計(jì)和施工時(shí)工程地質(zhì)情況的數(shù)據(jù)錄入，使工程的信息完整化。根據(jù)線路地質(zhì)勘測的信息歸納總結(jié)出所有的巖性特征參數(shù)，然后通過巖性表管理將信息從“巖性及填充庫”里添加到“yanxing”表中。第 6 章 工程實(shí)例本章主要是以田壩嶺隧道進(jìn)口為例對(duì)本程序的使用進(jìn)行說明和應(yīng)用。編輯部件的屬性，可選擇工程窗口的該部件。在輸入部件中所做的 不會(huì)影響到原來的部件文件。你可以輸入窗體、模塊或類模塊。在你的開發(fā)項(xiàng)目中應(yīng)該跟隨適當(dāng)?shù)拿Q約定。增加新部件增加新的部件是在工程中創(chuàng)建一空白的部件。該代碼部件包含了普通程序和函數(shù)。在工程中包含的不同部件可以是對(duì)象、窗體、標(biāo)準(zhǔn)模塊、類模塊和引用。使用查看對(duì)象按鈕可顯示如窗體之類的選定對(duì)象。 查看工程信息VBA IDE 包含名稱為工程窗口的窗口，其中顯示了所有已裝載 VBA 工程的列表。 VBA IDE 編輯工程打開 VBA IDE，當(dāng)打開 VBA IDE 時(shí)，它就可以訪問所有已裝載的工程。如果你在提示下選擇“是”，則現(xiàn)在的宏代碼將被刪除，而一個(gè)新的而沒有內(nèi)容的宏也會(huì)以指定名稱而創(chuàng)建 。 VBA IDE 也隨之打開所選定的宏的代碼窗口并高亮顯示所執(zhí)行宏所在的行。編輯宏，編輯宏將打開 VBA IDE 并打開所選定宏的代碼窗口。當(dāng)前活動(dòng)圖形指的是當(dāng)宏執(zhí)行開始時(shí)處于打開并處理激活狀態(tài)。該列表指定所要顯示的宏所在的工程或圖形。每一工程通常至少一個(gè)宏。保存嵌入工程，嵌入工程是在圖形保存時(shí)同時(shí)保存的。當(dāng)工程創(chuàng)建時(shí)，你可以將工程嵌入圖形中，或?qū)⑵浔４鏋楣こ涛募?。如果你沒有將其保存為外部工程文件，該工程的數(shù)據(jù)將會(huì)刪除。一個(gè)圖形只有在同一時(shí)間包含一個(gè)嵌入工程。你不能卸載嵌入工程或由其它已裝載工程所引用的工程。每次當(dāng)你裝載工程時(shí)，你會(huì)看到啟用或禁用工程中的代碼以阻止宏病毒的警告框。你也可以使用 VBALOAD 命令直接出現(xiàn)打開 VBA 工程對(duì)話框以裝載工程文件。 嵌入于圖形中的工程在圖形打開時(shí)就被裝載。 用 VBA 管理器組織工程你可以使用 VBA 管理器查看裝載在當(dāng)前 AutoCAD 進(jìn)程的所有 VBA 工程。在這種情況下被刪除的記錄已經(jīng)顯示的屏幕上了，也不用判斷它是否存在，直接執(zhí)行SQL中的Delete刪除命令。我們一般使用通過連接對(duì)象的Execute方法執(zhí)行SQL命令中的Delete命令的方法，這種方法可以帶刪除條件，一個(gè)命令可以刪除多條滿足條件的記錄；而利用記錄集對(duì)象的Delete方法只能刪除當(dāng)前記錄，所以必須通過循環(huán)語句才能刪除多條記錄，運(yùn)行效率較低。 UpdateBatch：更新（保存）一個(gè)或多個(gè)記錄的修改。 Update：更新當(dāng)前記錄，將記錄集中編輯修改的記錄寫入數(shù)據(jù)庫中。 雖然連接對(duì)象的Execute方法也能用Insert命令實(shí)現(xiàn)記錄的插入，但對(duì)于有較多字段名和多個(gè)字段值的情況來說，用Insert命令實(shí)現(xiàn)記錄的插入書寫代碼比較麻煩，而且容易寫錯(cuò)，不適合大量字符串的插入。五個(gè)方法分別是：MoveFirst：移動(dòng)到第一條記錄；MoveLast：移動(dòng)到最后一條記錄；MoveNext：移動(dòng)到下一條記錄；MovePrevious：移動(dòng)到上一條記錄；Move N,Start：移動(dòng)N個(gè)記錄。PageSize：設(shè)置每頁所包含的記錄個(gè)數(shù)。是為True不是為False。AbsolutePosition：用來設(shè)置或讀取當(dāng)前記錄在記錄集中的位置順序號(hào)。Set 對(duì)象變量名 = (“”)利用RecordSet對(duì)象的Open方法讀取數(shù)據(jù) RecordSet對(duì)象建立完成后，其中還沒有任何可供使用的記錄數(shù)據(jù)，可以通過RecordSet對(duì)象中的Open方法獲取真正的記錄數(shù)據(jù)，Open方法用來向數(shù)據(jù)源提出一個(gè)操作請(qǐng)求并執(zhí)行具體的操作。RecordSet對(duì)象包含多條記錄，每個(gè)記錄包含多個(gè)字段，在任何時(shí)刻，只有一條記錄是當(dāng)前記錄。 （2）執(zhí)行SQL查詢命令，返回查詢得到的記錄集 用Execute方法對(duì)數(shù)據(jù)表進(jìn)行查詢得到的結(jié)果通常是一個(gè)二維表形式的數(shù)據(jù)集合，為了更好地應(yīng)用查詢結(jié)果，經(jīng)常把查詢結(jié)果存儲(chǔ)在一個(gè)記錄集對(duì)象中。執(zhí)行SQL查詢 通過Connection對(duì)象的Execute方法執(zhí)行SQL命令。 UID=用戶名。 UID=。連接字符串有兩種不同格式的描述方法。 Connection 連接對(duì)象 Connection對(duì)象用于建立和管理應(yīng)用程序與數(shù)據(jù)源的連接，也可以用它來執(zhí)行一個(gè)命令。4）如果 且，則所求里程在另一緩和曲線 （431） （432） a0時(shí)，曲線走向=a2+β；a0時(shí)，曲線走向=a2β。 平面線路方位角的計(jì)算計(jì)算任意里程的方位角需要的參數(shù)有：lo、R、X、Y、起點(diǎn)里程，將參數(shù)代入以下公式計(jì)算任意里程的方位角。圖34 巖性表管理 編錄出圖通過上面工程的建立數(shù)據(jù)的錄入我們就可以通過編錄出圖窗體來實(shí)現(xiàn)調(diào)用模塊及數(shù)據(jù)庫繪制圖形的目的。下面代碼是圍巖級(jí)別的定義。圖31 工程管理 工程數(shù)據(jù)管理窗體本窗體主要實(shí)現(xiàn)了工程項(xiàng)目施工和設(shè)計(jì)時(shí)層面特征、基本特征的數(shù)據(jù)錄入，使工程的信息完整化。這里應(yīng)用了CommASS模塊中編寫公共過程調(diào)用數(shù)據(jù)庫、執(zhí)行SQL語言的代碼；DZSub模塊里編寫字體DrawOneText過程，編寫字體邊框線DrawLineText過程，展示圖圖框定位DrawOneZHSK過程，展示圖文字定位DrawOneZHSText過程，調(diào)用數(shù)據(jù)庫表里的字段GetJLDMID、GetJLWCID、GetJLWCID_BW、GetJLGWID_BW、GetJLDMID_BW的記錄，編寫計(jì)算方位角的函數(shù)利用getXLzx、getZXzx、getQXzx、GFfwj、調(diào)用函數(shù)。但在本模塊里設(shè)置了打印字體及圖紙的選擇，顯示窗體的代碼詳見附表32。在模塊里根據(jù)要實(shí)現(xiàn)的功能編寫代碼，實(shí)現(xiàn)創(chuàng)建新菜單及下拉菜單的目的。CommASS項(xiàng)調(diào)用數(shù)據(jù)庫、工作目錄及執(zhí)行SQL語句，DZSub項(xiàng)包含了本次設(shè)計(jì)的主要計(jì)算部分。圖21 數(shù)據(jù)庫表的關(guān)聯(lián)圖第 3 章 程序結(jié)構(gòu)在AutoCAD中新建工程，根據(jù)實(shí)現(xiàn)功能的需要在新建工程里建立四個(gè)模塊、六個(gè)窗體。(6)表YT里面將YTID設(shè)置為主鍵并與shigong表通過字段DM_ID建立約束關(guān)系，其中YT是主鍵表，shigong是外鍵表，強(qiáng)制外鍵約束、強(qiáng)制與復(fù)制、標(biāo)識(shí)名稱是YT_shigong_pk。(4)表weiyanfenji里面將WCID設(shè)置為主鍵并與name表通過字段E_ID建立約束關(guān)系，其中weiyanfenji是主鍵表，name是外鍵表，強(qiáng)制外鍵約束、強(qiáng)制與復(fù)制、標(biāo)識(shí)名稱是weiyanfenji_name_pk。(2)表sheji里面將GWID設(shè)為主鍵并與name表通過字段E_ID建立約束關(guān)系，其中，sheji是主鍵表，name是外鍵表，強(qiáng)制外鍵約束、強(qiáng)制與復(fù)制，標(biāo)識(shí)名稱是sheji_name_pk。表26 yanxing（巖性描述）表包括的字段及內(nèi)容字段數(shù)據(jù)類型定義備注YX_IDInt巖性地址主鍵YXMCnvarchar(30)巖性描述YXTCTnvarchar(20)巖性的表示方法YXTCBLfloat巖性比例（7）YT表主要記錄各個(gè)地段的巖性特征及其分界點(diǎn)，YX_ID表示巖性變化點(diǎn)的地址，通過巖性地址與YT表建立某種聯(lián)系是的不同隧道斷面的巖性描述可以調(diào)用此表里的信息；YTID巖性特征的分界地址；YTQX表示巖性特征巖石的傾向；YTQJ表示巖性特征巖石的傾角；DM_ID隧道斷面地址，詳細(xì)信息見表27。表23 shigong（線路里程上的地質(zhì)情況）表包括的字段及內(nèi)容字段數(shù)據(jù)類型定義備注E_IDInt工程地址DM_IDInt線路里程地址主鍵DMDCnvarchar(100)地層巖性特征DMSWnvarchar(100)水文地質(zhì)特征DMGCnvarchar(100)工程地質(zhì)特征DMCZnvarchar(100)初期支護(hù)概述DMLCdecimal(18, 0)線路里程DMCnvarchar(20)施工圍巖級(jí)別DMQZnvarchar(10)線路里程前綴（4）Weiyanfenji表主要記錄了在設(shè)計(jì)線路時(shí)各個(gè)工程上的地質(zhì)變化、圍巖級(jí)別變化的分界里程。并詳細(xì)記錄了字段名稱、類型、定義、主鍵名稱等。 數(shù)據(jù)庫中的表本設(shè)計(jì)所解決的問題是使隧道中繪制復(fù)雜展示圖的工作簡便，為此我們在SQL數(shù)據(jù)庫中建立一個(gè)數(shù)據(jù)庫將線路的信息分類記錄到表格中。使用該程序，一個(gè)一個(gè)的確認(rèn)每個(gè)功能?！　。?）系統(tǒng)分析和用戶再次確認(rèn)需求。 采用的方法和步驟 方法鐵路隧道地質(zhì)編錄自動(dòng)成圖系統(tǒng)開發(fā)就是在可視開發(fā)工具提供的圖形用戶界面上，通過操作界面元素，諸如菜單、按鈕、對(duì)話框、編輯框、單選框、復(fù)選框、列表框和滾動(dòng)條等，由可視開發(fā)工具自動(dòng)生成的應(yīng)用軟件。具體操作：在AutoCAD操作系統(tǒng)中建立窗體和模塊，自動(dòng)繪圖管理模塊是要把隧道的投影圖繪制出來，并且可以通過窗體對(duì)其進(jìn)行操作。在AutoCAD操作系統(tǒng)中建立窗體和模塊，填充圖例管理模塊是要把隧道的地質(zhì)巖性管理到y(tǒng)anxing表中，并且可以通過窗體對(duì)其進(jìn)行操作。同樣應(yīng)用了CommASS模塊中編寫公共過程調(diào)用數(shù)據(jù)庫、執(zhí)行SQL語言的代碼；窗體里編寫可以執(zhí)行添加、刪除和更改數(shù)據(jù)的代碼。這兩個(gè)表與name和xianlu表通過E_ID建立主鍵關(guān)系使得工程名稱、線路特征、地質(zhì)情況連接起來。解決的問題包括：（1）線路平面數(shù)據(jù)管理模塊設(shè)計(jì)、實(shí)現(xiàn)先在數(shù)據(jù)庫里建立平面數(shù)據(jù)曲線的參數(shù)表把平面數(shù)據(jù)管理起來，然后在VBA中設(shè)計(jì)窗體和模塊。 本設(shè)計(jì)解決的問題通過對(duì)AutoCAD平臺(tái)的二次開發(fā)，完成“鐵路隧道地質(zhì)編錄自動(dòng)成圖系統(tǒng)”開發(fā)。（2）地質(zhì)編錄數(shù)據(jù)管理模塊設(shè)計(jì)、實(shí)現(xiàn)為了使平面線路與其相應(yīng)的地質(zhì)情況連接起來我們需要把設(shè)計(jì)、施工時(shí)的地質(zhì)信息錄入到數(shù)據(jù)庫表中，為此需要設(shè)計(jì)兩個(gè)表和一個(gè)窗體來實(shí)現(xiàn)本功能。在AutoCAD操作系統(tǒng)中建立窗體和模塊，地質(zhì)編錄數(shù)據(jù)管理模塊