【正文】 文件。所添加的巖性有：變質(zhì)砂巖、變質(zhì)頁巖、綠泥片巖、硅質(zhì)灰?guī)r、泥灰?guī)r、泥巖、油頁巖、砂巖、硅質(zhì)頁巖、碳質(zhì)板巖、石英砂巖、砂質(zhì)礫巖、變質(zhì)砂巖、斷層角礫巖、含泥質(zhì)灰?guī)r、砂卵礫巖等。節(jié)理發(fā)育，巖體較完整?！?0176。層面產(chǎn)狀為150176。 總結(jié)本設(shè)計可以實現(xiàn)加入窗體模塊編程，每確認(rèn)一個窗體模塊即可實現(xiàn)一項模塊功能。在論文即將完成之際，我的心情無法平靜，從開始進(jìn)入課題到論文的順利完成，有多少可敬的師長、同學(xué)、朋友給了我無言的幫助，在這里請接受我誠摯的謝意!最后我還要感謝含辛茹苦培養(yǎng)我長大的父母，謝謝你們!祝愿我所有的老師和同學(xué)們工作順利、前程似錦！附錄A 外文資料翻譯Functional integration in CAD systems Page4349CAD系統(tǒng)中的集成功能英國 米德爾斯堡 TSI 3BA 蒂賽德大學(xué) 科技學(xué)院(1994年3月31日接收；1995年11月6日接受)這篇論文對CAD系統(tǒng)的集成問題進(jìn)行探討，并討論了達(dá)到有效的集成必須解決的CAD系統(tǒng)的功能方面的問題。 集成方面應(yīng)解決CAD系統(tǒng)的結(jié)構(gòu)工程設(shè)計包括：1）2D起草與三維建模的整合2）集成的圖形化和非圖形化設(shè)計信息3）集成的數(shù)據(jù)結(jié)構(gòu)和用戶接口4）集成的起草與其它功能應(yīng)用程序2D集成的起草和三維建模 二維起草二維圖紙很多年來就是建造業(yè)交流設(shè)計信息的主要方式。一個集成的數(shù)據(jù)結(jié)構(gòu)原型已經(jīng)在分層模型的基礎(chǔ)上獲得發(fā)展。連接非圖形數(shù)據(jù)然后可以為民航等提供其他應(yīng)用程序如分析、設(shè)計、 評估等。CAD 數(shù)據(jù)結(jié)構(gòu)與用戶的整合接口被公認(rèn)為工程系統(tǒng)的一個重要方面。通過這種方式查看概念形式可以允許集成系統(tǒng)的核心內(nèi)容相互確認(rèn)，編輯、選擇邏輯設(shè)計信息的結(jié)構(gòu)。鑒于碎片化，建造業(yè)的性質(zhì)和眾多的專業(yè)人士所涉及的每個項目，至關(guān)重要的 CAD 系統(tǒng)有可能成為鏈接到其他工程的應(yīng)用程序。這些方式將確保適用于所有階段的設(shè)計處理結(jié)果的系統(tǒng)發(fā)展。下游39。雙視圖概念39。CAD 系統(tǒng)的數(shù)據(jù)結(jié)構(gòu)是中央體系結(jié)構(gòu)和可以稱為該系統(tǒng)用于存儲和操縱的設(shè)計信息的集合。集成圖形化的和非圖形數(shù)據(jù)有必要通過擴(kuò)展超出CAD 作圖系統(tǒng)某種程度的智力向圖形化表示，因而加強(qiáng)了作為系統(tǒng)的價值設(shè)計的援助。與此相反，現(xiàn)在的2D作圖，構(gòu)成了大部分的辦公室設(shè)計、 CAD 應(yīng)用情況和圖紙保持傳統(tǒng)建設(shè)中的信息交換格式行業(yè)。計算機(jī)技術(shù)的發(fā)展，如更快的速度和更強(qiáng)大的硬件技術(shù)，減少成本的情況下不斷增加的內(nèi)存容量，并行和分布式處理，更靈活的數(shù)據(jù)構(gòu)建和軟件設(shè)計，以及基于知識系統(tǒng)、面向?qū)ο蟮木幊谈拍詈透倪M(jìn)的用戶界面設(shè)計，這些都使集成 CAD 系統(tǒng)變?yōu)楦蓪崿F(xiàn)的愿景。他嚴(yán)肅的科學(xué)態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神，精益求精的工作作風(fēng)，深深地感染和激勵著我。圖66 編錄出圖圖67 生成圖形第 7 章 結(jié) 論 最終成果初步成果是模塊設(shè)計，主要包括：線路平面數(shù)據(jù)管理模塊設(shè)計、實現(xiàn)；地質(zhì)編錄數(shù)據(jù)管理模塊設(shè)計、實現(xiàn)；結(jié)構(gòu)面投影算法設(shè)計；填充圖例管理模塊設(shè)計、實現(xiàn)；自動繪圖及報表模塊設(shè)計、實現(xiàn)；控制模塊設(shè)計、實現(xiàn)。層滲水。泥質(zhì)砂巖，中厚426417薄層狀，巖質(zhì)軟硬相間。地下水主要為基巖裂隙水環(huán)境水對混凝土結(jié)構(gòu)無侵蝕性。 工程名稱的錄入為了實現(xiàn)對不同工程的管理，首先要錄入工程名稱，且每個工程名稱對應(yīng)一個E_ID不允許重復(fù)。增加新的部件到工程的操作：在 VBA IDE 的工程窗口中，選擇你要增加部件的工程；從插入菜單中，選擇用戶窗體、模塊或類模塊以增加新的部件到你的工程中。VBA IDE 工程窗口，工程窗口默認(rèn)為可見。逐語句運(yùn)行宏的操作：在宏對話框中，選擇要逐語句運(yùn)行的宏；選擇逐語句；選擇逐語句。打開宏對話框的操作：從工具菜單中選擇宏：或在 AutoCAD 中調(diào)用 VBARUN 命令。如果圖形已經(jīng)包含有一個嵌入工程，你必須在同樣地入其它工程之前將該嵌入工程分離出。保存在 DVB 文件中的工程必須單獨(dú)裝載。 （1）增加記錄 向表中插入新記錄時，如果該記錄的字段較多，且字段值大都是由用戶實際輸入的，我們一般都使用RecordSet對象的AddNew方法，具體實現(xiàn)過程如下：首先向表中插入一條空記錄，通過賦值語句向該記錄的不同字段賦值，最后通過Update方法完成對數(shù)據(jù)庫的數(shù)據(jù)真正更新。（3）記錄集的子集合 RecordSet對象包含一個字段子集合Fields，它儲存記錄的全部字段。Open方法的使用格式如下：記錄對象變量名Open、數(shù)據(jù)來源、連接對象、指針類型、鎖定方式、數(shù)據(jù)源類型。 PWD=密碼關(guān)閉連接 當(dāng)不再需要使用連接對象時，需要用CLOSE方法來關(guān)閉連接以釋放系統(tǒng)資源。5）如果或者，則里程不在工程范圍6）如果，則所求里程在直線上，線路走向=a1 規(guī)范方位角方位角必須定位在（360,360）之間，如果超出此范圍則需要修正： （433） （434）第 5 章 主要應(yīng)用技術(shù) ADO技術(shù)簡介ADO是一種為基于Internet并且以數(shù)據(jù)為中心的應(yīng)用程序而提供的數(shù)據(jù)訪問接口，這種應(yīng)用程序接口和應(yīng)用程序使用的語言無關(guān)。設(shè)計時窗體按鈕布局如圖32所示，施工時窗體按鈕布局如圖33所示。它主要包括：圖框的繪制、字體大小及位置的設(shè)置、里程在那條曲線的判斷、方位角的計算、斷面投影的計算等。只有sheji表里的內(nèi)容清空后name表才可以被刪除，否則無法對name表進(jìn)行某些操作。下面是本程序解決問題時需要在數(shù)據(jù)庫中所建立的幾個表及其內(nèi)容的具體介紹。在CommASS模塊中編寫公共過程調(diào)用數(shù)據(jù)庫、執(zhí)行SQL語言的代碼；DZSub模塊里編寫字體、編寫字體邊框線、展示圖圖框定位、展示圖文字定位、調(diào)用數(shù)據(jù)庫表里的字段記錄信息等。用窗體代碼把數(shù)據(jù)管理起來，模塊代碼負(fù)責(zé)顯示工具欄菜單和下拉菜單。為此我們搜集了一個比較齊全的巖性庫，然后在數(shù)據(jù)庫里建立表yanxing，用CommASS模塊中GetWorkPath過程調(diào)用巖性庫中我們使用的巖性添加到y(tǒng)anxing表中。（5）系統(tǒng)分析把寫好的概要設(shè)計文檔，根據(jù)所例出的功能一個一個的編寫。表24 weiyanfenji（圍巖分級）表包括的字段及內(nèi)容字段數(shù)據(jù)類型定義備注E_IDInt工程地址WCCsmallint圍巖級別WCIDInt圍巖分級地址主鍵WCQZnvarchar(10)圍巖級別前綴WCLCdecimal(18, 0)圍巖級別里程（5）Xianlu表主要記錄了平面線路中曲線的特征值，E_ID表示某工程對應(yīng)的平面線路的曲線特征；JD_ID表示本工程里線路走向變化的點(diǎn)（交點(diǎn)）信息；X表示平面線路交點(diǎn)的橫向坐標(biāo)值；Y表示平面線路交點(diǎn)的縱向坐標(biāo)值；R表示緩和曲線中圓曲線半徑；lo表示曲線上的緩和曲線長，詳細(xì)信息見表25。總的來說就是，表YT約束shigong、yanxing表，而表shigong、sheji、weiyanfenji、xianlu分別通過不同的主鍵約束表name。本模塊共包括10個過程，其中在函 數(shù) SetWorkPath里設(shè)置工作目錄；在函數(shù)GetWorkPath里獲得工作目錄；在函數(shù) GetDBName里獲得數(shù)據(jù)庫表名稱；在函數(shù)GetTKSize里獲取邊框尺寸，本過程設(shè)置圖框選項包括A0、AAAA4圖框尺寸；在函數(shù)DBOpen里設(shè)置數(shù)據(jù)庫表所在的位置打開本地數(shù)據(jù)庫；函數(shù)ExecuteSQL在本過程里執(zhí)行SQL查詢，例如select、update、delete、insert語句；函數(shù)MakeLCStr本過程主要是規(guī)范里程書寫格式，是里程書寫規(guī)范化；函數(shù)MakeWCStr里實現(xiàn)了圍巖分級由數(shù)字轉(zhuǎn)化為希臘數(shù)字的功能；在函數(shù)MakeOldFWJ里方位角的度數(shù)表示，模塊具體的代碼見附表33。圖35 編錄出圖 打印本窗體實現(xiàn)圖形的打印，窗體設(shè)置及按鈕布局如圖36所示。mdb)}。以后就可以應(yīng)用Rs對象的各種方法進(jìn)行操作，非常方便。AbsolutePage：用來設(shè)置或返回當(dāng)前記錄所在的頁號。Delete：刪除當(dāng)前記錄。如果一次要修改某條記錄的多個字段值，而且不同記錄被修改的字段值也不相同時，建議使用記錄集對象的Update方法修改當(dāng)前記錄。如果你禁用代碼，工程同樣會裝載，但工程中的所有代碼將不能運(yùn)行。新創(chuàng)建的工程將使用默認(rèn)的工程名稱 ACADproject 。在嵌入工程中，ThisDrawi ng對象通常指向嵌入該宏的圖形?；驈墓ぞ卟藛危褂煤?V isual Basic 編輯器。類模塊部件包含你所有定義為類的自己的對象。從工程中輸入現(xiàn)存的部件的操作： 在 VBA IDE 的工程窗口中，選擇你要增加部件的工程；從文件菜單中，選擇輸入文件以打開輸入文件對話框；從輸入文件對話框中，選擇所要輸入的文件，然后按打開。表62 設(shè)計時地質(zhì)工程數(shù)據(jù)工程名稱圍巖分級工程水文地質(zhì)里程前綴里程級別里程前綴里程描述田壩嶺隧道DK429000ⅣDK429000注1DK427200ⅢDK427200注2DK426900ⅣDK426900注3DK426500ⅢDK426500注4DK426330ⅤDK42685注5DK426200ⅣDK42685Ⅴ注：表里對工程水文地質(zhì)的描述字?jǐn)?shù)比較多使表格不協(xié)調(diào)，所以列到注釋里。潮濕427956427765該段巖性為灰色微風(fēng)化泥質(zhì)砂巖，中厚層面產(chǎn)狀為110176。潮濕，局部點(diǎn)滴狀。426280受構(gòu)造影響重（斷層影響外帶），結(jié)構(gòu)面發(fā)育，巖體呈塊石碎石狀結(jié)構(gòu)，巖體完整性較差。雖然有老師一路的指導(dǎo)但此期間更多的問題需要我們自己去嘗試去摸索，在無數(shù)的失敗與教訓(xùn)中增長經(jīng)驗?zāi)ゾ氁庵?。版?quán)1996 CivilComp有限公司和愛思唯爾科技有限公司。根據(jù)這些系統(tǒng)分類方法定義的模型線框模型，39。因此，圖形表示具有與非圖形數(shù)據(jù)相關(guān)聯(lián)的有關(guān)函數(shù)（屬性和性能標(biāo)準(zhǔn)）的設(shè)計元素。對于一個原型系統(tǒng)，成立一個訪問機(jī)制，可以允許圖形化和非圖形化設(shè)計的雙向協(xié)調(diào)信息。 構(gòu)建計算機(jī)圖形信息 39。用戶界面上表現(xiàn)的重大改進(jìn)使許多現(xiàn)有的 CAD 系統(tǒng)從所具有的數(shù)據(jù)結(jié)構(gòu)發(fā)展到設(shè)計器屏蔽的結(jié)構(gòu)。 集成的探討多個應(yīng)用程序集成的合理路徑位于集成的所有相關(guān)數(shù)據(jù)輸入和輸出 CAD 數(shù)據(jù)庫可以訪問的應(yīng)用程序?？梢钥闯觯煞椒ú粦?yīng)是那么混亂，更好的結(jié)構(gòu)化也更易于管理?？梢詫Ρ鹊氖?，系統(tǒng)操作之間的橋梁和感知設(shè)計器允許設(shè)計師更好地了解范圍和更有效地部署CAD 系統(tǒng)。它除其他外指出 子句中，計算機(jī)輔助設(shè)計系統(tǒng)用戶應(yīng)該有一定的了解他們的體系結(jié)構(gòu)如何和操作數(shù)據(jù)。傳統(tǒng)關(guān)系數(shù)據(jù)庫管理系統(tǒng) (DBMS)，可用于存儲非圖形數(shù)據(jù)， CAD 系統(tǒng)開發(fā)人員可能會更喜歡綁定到一個定制的實現(xiàn)圖形數(shù)據(jù)結(jié)構(gòu)。）。但是在實踐中，許多系統(tǒng)往往在混合系統(tǒng)中體現(xiàn)實體幾何結(jié)構(gòu)和 B 代表模型最優(yōu)秀的特性。由于缺乏協(xié)調(diào)和戰(zhàn)略方法，在幾個學(xué)科里出現(xiàn)了所謂的“局部自動化”。根據(jù)這個有針對性和比較單一的方案我們可以日益完善這個課題，可以使得本程序包含的內(nèi)容更加廣泛、更加的健全。426268巖體中結(jié)構(gòu)面發(fā)育，巖體呈塊石碎石狀結(jié)構(gòu)，巖體完整性較差。426820426630巖體極破碎，巖體穩(wěn)定性差，巖體呈散體結(jié)構(gòu)。427280427235該段巖性為紅褐色微風(fēng)化泥質(zhì)砂巖，中厚。區(qū)域性長軸背斜通過，與線路相交于DK429+380，交角20度。編輯部件的屬性，可選擇工程窗口的該部件。增加新部件增加新的部件是在工程中創(chuàng)建一空白的部件。 查看工程信息VBA IDE 包含名稱為工程窗口的窗口，其中顯示了所有已裝載 VBA 工程的列表。編輯宏，編輯宏將打開 VBA IDE 并打開所選定宏的代碼窗口。保存嵌入工程，嵌入工程是在圖形保存時同時保存的。你不能卸載嵌入工程或由其它已裝載工程所引用的工程。 用 VBA 管理器組織工程你可以使用 VBA 管理器查看裝載在當(dāng)前 AutoCAD 進(jìn)程的所有 VBA 工程。 Update：更新當(dāng)前記錄，將記錄集中編輯修改的記錄寫入數(shù)據(jù)庫中。PageSize：設(shè)置每頁所包含的記錄個數(shù)。RecordSet對象包含多條記錄，每個記錄包含多個字段，在任何時刻，只有一條記錄是當(dāng)前記錄。 UID=。 平面線路方位角的計算計算任意里程的方位角需要的參數(shù)有：lo、R、X、Y、起點(diǎn)里程，將參數(shù)代入以下公式計算任意里程的方位角。這里應(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的記錄，編寫計算方位角的函數(shù)利用getXLzx、getZXzx、getQXzx、GFfwj、調(diào)用函數(shù)。圖21 數(shù)據(jù)庫表的關(guān)聯(lián)圖第 3 章 程序結(jié)構(gòu)在AutoCAD中新建工程，根據(jù)實現(xiàn)功能的需要在新建工程里建立四個模塊、六個窗體。表26 yanxing（巖性描述）表包括的字段及內(nèi)容字段數(shù)據(jù)類型定義備注YX_IDInt巖性地址主鍵YXMCnvarchar(30)巖性描述YXTCTnvarchar(20)巖性的表示方法YXTCBLfloat巖性比例（7）YT表主要記錄各個地段的巖性特征及其分界點(diǎn)，YX_ID表示巖性變化點(diǎn)的地址