【正文】 管理器并選擇你所要嵌入的工程；選擇嵌入。當(dāng)你分離工程時(shí)，其實(shí)是將工程從圖形數(shù)據(jù)庫(kù)中刪除，同時(shí)會(huì)提示你將工程保存為外部的工程文件。如果你沒(méi)有將其保存為外部工程文件，該工程的數(shù)據(jù)將會(huì)刪除。從 AutoCAD 圖形中分離工程的操作：打開(kāi) VBA 管理器并選擇要從圖形中分離的工程；選擇分離；如果你想保存工程信息為外部工程文件，可以在 “ 你是否想在刪除 VBA 工程前將其輸出？ ”的提示下選擇 “ 是 ” ，此時(shí)會(huì)顯示另存為對(duì)話框，允許你保存文件。如果你不想保存該工程信息到外部文件，可以在 “ 你是否想在刪除 VBA 工程前將其輸出？ ” 的提示下選擇 “ 否 ” ，此時(shí)工程信息將在沒(méi)有保存的情況下從圖形中刪除。創(chuàng)建新的工程：新的工程將作為未保存的全局工程被創(chuàng)建。當(dāng)工程創(chuàng)建時(shí)，你可以將工程嵌入圖形中，或?qū)⑵浔４鏋楣こ涛募?。?chuàng)建新的 VBA 工程的操作：打開(kāi) VBA 管理器；選擇新建。新創(chuàng)建的工程將使用默認(rèn)的工程名稱 ACADproject 。你必須到 VBA IDE 中才可以更改工程名稱。保存嵌入工程，嵌入工程是在圖形保存時(shí)同時(shí)保存的。全局工程必須使用 VBA 管理器或 VBA IDE 進(jìn)行保存。使用 VBA 管理器保存工程的操作：打開(kāi) VBA 管理器并選擇要保存的工程；選擇另存為，此時(shí)另存為對(duì)話框打開(kāi)；選擇用于保存工程的文件；選擇保存 處理宏 與設(shè)置 VBA 工程選項(xiàng)一樣，宏對(duì)話框允許你運(yùn)行、編輯、刪除和創(chuàng)建宏。宏是公用 ( 可執(zhí)行 ) 的子程序。每一工程通常至少一個(gè)宏。打開(kāi)宏對(duì)話框的操作：從工具菜單中選擇宏：或在 AutoCAD 中調(diào)用 VBARUN 命令。在對(duì)話框中顯示的是所有在有效范圍內(nèi)的宏名稱。你可通過(guò)下拉列表來(lái)改變有效范圍。該列表指定所要顯示的宏所在的工程或圖形。你可在以下列表內(nèi)容選擇所石家莊鐵道大學(xué)畢業(yè)設(shè)計(jì)26要顯示宏范圍所有圖形和工程所有圖形所有工程在當(dāng)前所打開(kāi)的單獨(dú)圖形在當(dāng)前所裝載的單獨(dú)工程通過(guò)限制有效范圍你可控制顯示在列表中的宏名稱的數(shù)量。它可幫助你注意到當(dāng)前有多少宏裝載到圖形中或指定工程中有多少宏。運(yùn)行宏，運(yùn)行宏就是在當(dāng)前 AutoCAD 進(jìn)程中執(zhí)行宏代碼。當(dāng)前活動(dòng)圖形指的是當(dāng)宏執(zhí)行開(kāi)始時(shí)處于打開(kāi)并處理激活狀態(tài)。所有在全局工程的宏中所涉及的 ThisDrawing 對(duì)象將指向當(dāng)前活動(dòng)圖形。在嵌入工程中，ThisDrawi ng 對(duì)象通常指向嵌入該宏的圖形。運(yùn)行宏的操作：打開(kāi)宏對(duì)話框并選擇要運(yùn)行的宏；選擇運(yùn)行。編輯宏，編輯宏將打開(kāi) VBA IDE 并打開(kāi)所選定宏的代碼窗口。詳細(xì)的介紹請(qǐng)參考 “ 用 VBA IDE 編輯工程 ”。編輯宏的操作：打開(kāi)宏對(duì)話框并選擇要編輯的宏； 選擇編輯。逐語(yǔ)句運(yùn)行宏指的是開(kāi)始運(yùn)行宏并在第一行代碼時(shí)暫停。 VBA IDE 也隨之打開(kāi)所選定的宏的代碼窗口并高亮顯示所執(zhí)行宏所在的行。逐語(yǔ)句運(yùn)行宏的操作：在宏對(duì)話框中，選擇要逐語(yǔ)句運(yùn)行的宏；選擇逐語(yǔ)句；選擇逐語(yǔ)句。創(chuàng)建新的宏操作：打開(kāi)宏對(duì)話框并輸入新宏的名稱；在宏位置下拉列表中選擇所創(chuàng)建宏所要存在的位置；選擇創(chuàng)建。如果所指定宏的名稱已經(jīng)存在，系統(tǒng)將提示你是否替換現(xiàn)在的宏。如果你在提示下選擇“是” ，則現(xiàn)在的宏代碼將被刪除，而一個(gè)新的而沒(méi)有內(nèi)容的宏也會(huì)以指定名稱而創(chuàng)建 。如果你在提示下選擇“否”這時(shí)會(huì)返回宏對(duì)話框以輸入另外的宏名稱。如果你在提示下選擇“取消”宏對(duì)話框?qū)⑾?，宏也沒(méi)有創(chuàng)建。刪除宏操作：打開(kāi)宏對(duì)話框并選擇要?jiǎng)h除的宏；選擇刪除，系統(tǒng)會(huì)提示你是否確認(rèn)刪除；在提示下，選擇“是”而刪除宏，或者選擇“否”以取消刪除的操作。 VBA IDE 編輯工程打開(kāi) VBA IDE，當(dāng)打開(kāi) VBA IDE 時(shí)，它就可以訪問(wèn)所有已裝載的工程。按需要打開(kāi) VBA IDE 的操作 ，你可以從命令行或從菜單欄中打開(kāi) VBA IDE 從命令行，可輸入 VBAIDE ?；驈墓ぞ卟藛危褂煤? V isual Basic 編輯器。在 AutoCAD 啟動(dòng)時(shí)自動(dòng)打開(kāi) VBA IDE 的操作。 查看工程信息VBA IDE 包含名稱為工程窗口的窗口，其中顯示了所有已裝載 VBA 工程的列表。它也顯示包含在工程中的代碼、類和窗體模塊，還有關(guān)聯(lián)到該工程的文檔，在該工程所引用的 VBA 工程，以及工程的物理 位置 ( 也稱路徑 ) 。工程窗口有它自己的工具欄，使用其工具欄可打開(kāi)不同的工程部件進(jìn)行編輯。使用查看代碼按石家莊鐵道大學(xué)畢業(yè)設(shè)計(jì)27鈕可打開(kāi)選定模塊的代碼。使用查看對(duì)象按鈕可顯示如窗體之類的選定對(duì)象。VBA IDE 工程窗口，工程窗口默認(rèn)為可見(jiàn)。如果不可見(jiàn)，可從查看菜單中選擇工程窗口，或按 CTRL+R 。定義工程的部件，每個(gè)工程可包含多個(gè)不同的部件。在工程中包含的不同部件可以是對(duì)象、窗體、標(biāo)準(zhǔn)模塊、類模塊和引用。對(duì)象部件聲稱了 VBA 代碼可訪問(wèn)的對(duì)象或文檔的類型。在 AutoCAD VBA 工程，該對(duì)象聲稱為當(dāng)前 AutoCAD 圖形。窗體部件包含了當(dāng)前你在工程中為了使用而建立的自定義對(duì)話框。該代碼部件包含了普通程序和函數(shù)。標(biāo)準(zhǔn)模塊也歸類為代碼模塊或簡(jiǎn)單的模塊。類模塊部件包含你所有定義為類的自己的對(duì)象。引用部件包含所有引用其它的工程和庫(kù)。增加新部件增加新的部件是在工程中創(chuàng)建一空白的部件。你可在工程中增加新的模塊、窗體和類模塊。你有責(zé)任更新所有部件的屬性 ( 如部件的名稱 ) 并在其中寫(xiě)入適當(dāng)?shù)拇a。當(dāng)命名一個(gè)新的部件，請(qǐng)記住可能其它開(kāi) 發(fā)都會(huì)在以后的應(yīng)用程序中用到你的部件。在你的開(kāi)發(fā)項(xiàng)目中應(yīng)該跟隨適當(dāng)?shù)拿Q約定。增加新的部件到工程的操作：在 VBA IDE 的工程窗口中，選擇你要增加部件的工程；從插入菜單中，選擇用戶窗體、模塊或類模塊以增加新的部件到你的工程中。新的模塊將被增加到你的工程中并出現(xiàn)在工程窗口中。輸入現(xiàn)存的部件輸入功能允許你增加現(xiàn)存的部件到工程中。你可以輸入窗體、模塊或類模塊。輸入的窗體文件為 FRM 文件，輸入的模塊文件為 BAS 文件，輸入的類模塊文件為 CLS 文件。當(dāng)你輸入一個(gè)部件文件，文件 的一個(gè)副本將輸入并增加到工程中。而原來(lái)的文件也會(huì)保持不變。在輸入部件中所做的 不會(huì)影響到原來(lái)的部件文件。如果你用現(xiàn)存的同樣的名稱輸入部件，該文件將添加到工程中相應(yīng)的部件上。從工程中輸入現(xiàn)存的部件的操作： 在 VBA IDE 的工程窗口中，選擇你要增加部件的工程；從文件菜單中，選擇輸入文件以打開(kāi)輸入文件對(duì)話框；從輸入文件對(duì)話框中，選擇所要輸入的文件，然后按打開(kāi)。該輸入部件將增加到你的工程中并在工程窗口中出現(xiàn)。編輯部件的屬性，可選擇工程窗口的該部件。所選部件的屬性將在屬性窗口中列出并可編輯。編輯部件的操作：在 VBA IDE 的工程窗口中，選擇你要編輯的部件；選擇工程窗口中的查看代碼按鈕以打開(kāi)代碼窗口；選擇工程窗口中的查看對(duì)象按鈕以打開(kāi)用戶窗體窗口和關(guān)石家莊鐵道大學(xué)畢業(yè)設(shè)計(jì)28聯(lián)的工具箱。你可同時(shí)打開(kāi)你所有模塊中的代碼窗口，所以你可很容易地 不同窗體或模塊中的代碼，并在它們之間進(jìn)行復(fù)制和粘貼。石家莊鐵道大學(xué)畢業(yè)設(shè)計(jì)29第 6 章 工程實(shí)例本章主要是以田壩嶺隧道進(jìn)口為例對(duì)本程序的使用進(jìn)行說(shuō)明和應(yīng)用。 工程名稱的錄入為了實(shí)現(xiàn)對(duì)不同工程的管理，首先要錄入工程名稱，且每個(gè)工程名稱對(duì)應(yīng)一個(gè)E_ID 不允許重復(fù)。添加工程名稱的步驟：點(diǎn)擊工具欄的“隧道地質(zhì)編錄”菜單項(xiàng) 選擇“工程管理”項(xiàng)彈出（圖 61） 點(diǎn)擊“添加工程”按鈕彈出（圖 62） ，根據(jù)提示錄入信息，工程名稱為“田壩嶺隧道進(jìn)口” ，打印名稱為“田壩嶺隧道進(jìn)口圖” ，起始里程“426085” ，反向開(kāi)挖不選中，信息錄入完畢退出對(duì)話框。圖 61 工程管理石家莊鐵道大學(xué)畢業(yè)設(shè)計(jì)30 圖 62 新建工程 巖性表設(shè)置為了使用方便我們搜集了大量的巖性信息并將其存放到 PAT 文件夾中通過(guò)模塊調(diào)用該文件夾中的內(nèi)容顯示在“巖性表管理”對(duì)話框的“巖性及填充庫(kù)”列表中。根據(jù)線路地質(zhì)勘測(cè)的信息歸納總結(jié)出所有的巖性特征參數(shù)，然后通過(guò)巖性表管理將信息從“巖性及填充庫(kù)”里添加到“yanxing”表中。所添加的巖性有：變質(zhì)砂巖、變質(zhì)頁(yè)巖、綠泥片巖、硅質(zhì)灰?guī)r、泥灰?guī)r、泥巖、油頁(yè)巖、砂巖、硅質(zhì)頁(yè)巖、碳質(zhì)板巖、石英砂巖、砂質(zhì)礫巖、變質(zhì)砂巖、斷層角礫巖、含泥質(zhì)灰?guī)r、砂卵礫巖等。在“巖性表管理”中可以添加所需要的巖性、刪除多余的巖性并且可以更新填充比例，詳見(jiàn)圖（63） 平面數(shù)據(jù)錄入在田壩嶺隧道這個(gè)工程里添加本線路包含的特征參數(shù)，本工程有 5 個(gè)交點(diǎn)：0、3，其中 JD_ID=1 時(shí)表示終點(diǎn)曲線的信息，JD_ID=0 表示起點(diǎn)曲線信息，因?yàn)槠瘘c(diǎn)是直線所以我們可以把起點(diǎn)的里程錄入到 lo 里方便以后使用。將表 61 里的數(shù)據(jù)通過(guò)圖 64 平面數(shù)據(jù)管理窗體添加到數(shù)據(jù)庫(kù)。表 61 線路曲線參數(shù)E_ID JD_ID R lo X Y1 1 0 0 80001 0 0 426085 801 1 3000 80 230 650石家莊鐵道大學(xué)畢業(yè)設(shè)計(jì)31E_ID JD_ID R lo X Y1 2 4000 100 1600 35001 3 4500 90 800 6500圖 63 巖性表管理圖 64 平面數(shù)據(jù)管理設(shè)置續(xù)表 61石家莊鐵道大學(xué)畢業(yè)設(shè)計(jì)32 工程地質(zhì)數(shù)據(jù)錄入本窗體主要實(shí)現(xiàn)了工程項(xiàng)目設(shè)計(jì)和施工時(shí)工程地質(zhì)情況的數(shù)據(jù)錄入，使工程的信息完整化。田壩嶺隧道設(shè)計(jì)的地質(zhì)數(shù)據(jù)見(jiàn)表 62，把表中的數(shù)據(jù)通過(guò)工程數(shù)據(jù)管理—設(shè)計(jì)窗體添加到表中添加后窗體如圖 65 所示。表 62 設(shè)計(jì)時(shí)地質(zhì)工程數(shù)據(jù)圍巖分級(jí) 工程水文地質(zhì)工程名稱里程前綴 里程 級(jí)別 里程前綴 里程 描述DK 429000 Ⅳ DK 429000 注 1DK 427200 Ⅲ DK 427200 注 2DK 426900 Ⅳ DK 426900 注 3DK 426500 Ⅲ DK 426500 注 4DK 426330 Ⅴ DK 42685 注 5DK 426200 Ⅳ田壩嶺隧道DK 42685 Ⅴ注：表里對(duì)工程水文地質(zhì)的描述字?jǐn)?shù)比較多使表格不協(xié)調(diào)，所以列到注釋里。該段巖性為泥盆系中統(tǒng)信都組砂巖、泥質(zhì)砂巖夾頁(yè)巖，青灰色，紫紅色，中細(xì)粒質(zhì)結(jié)構(gòu)，中厚厚層狀?yuàn)A薄層狀，巖質(zhì)較硬。區(qū)域性長(zhǎng)軸背斜通過(guò)，與線路相交于 DK429+380，交角 20 度。地下水主要為基巖裂隙水，環(huán)境水對(duì)混凝土結(jié)構(gòu)無(wú)侵蝕性。該段為泥盆系中統(tǒng)組砂巖、泥質(zhì)砂巖夾頁(yè)巖，青灰色，紫紅色，中細(xì)粒質(zhì)結(jié)構(gòu)，中厚厚層狀?yuàn)A薄層狀，巖質(zhì)較硬。節(jié)理發(fā)育，巖體較完整。該段未見(jiàn)明顯構(gòu)造跡象。地下水主要為基巖裂隙水環(huán)境水對(duì)混凝土結(jié)構(gòu)無(wú)侵蝕性。該段巖性為砂巖、泥質(zhì)砂巖夾頁(yè)巖，中厚層厚層狀，埋深較淺，巖質(zhì)較硬。節(jié)理較發(fā)育，巖體較完整。該段巖性砂巖、泥質(zhì)砂巖夾頁(yè)巖，中厚厚層狀，巖質(zhì)較硬。節(jié)理發(fā)育，巖體較完整。該段巖性灰?guī)r和砂巖、泥質(zhì)砂巖夾頁(yè)巖，中厚薄層狀，巖質(zhì)軟硬相間。節(jié)理較發(fā)育，王家莊逆斷層與線路交于 DK426+350 處。田壩嶺隧道施工的地質(zhì)數(shù)據(jù)見(jiàn)表 6表 64，把表中的數(shù)據(jù)通過(guò)工程數(shù)據(jù)管理—施工窗體添加到表中添加后窗體如圖 66 所示。表 63 層面特征線路里程 層面特征工程名稱里程前綴 劃分級(jí)別 里程 傾向 傾角 巖石特征石家莊鐵道大學(xué)畢業(yè)設(shè)計(jì)33工程名稱線路里程 層面特征里程前綴 劃分級(jí)別 里程 傾向 傾角 巖石特征100 22 泥質(zhì)砂巖DK Ⅴ 42894750 22 泥質(zhì)砂巖DK Ⅴ 428935 100 20 泥質(zhì)砂巖DK Ⅲ 428745 110 35 泥質(zhì)砂巖DK Ⅲ 428600 110 35 泥質(zhì)砂巖DK Ⅲ 428560 110 35 泥質(zhì)砂巖DK Ⅲ 428450 110 35 泥質(zhì)砂巖DK Ⅲ 428300 110 35 泥質(zhì)砂巖DK Ⅲ 428210 110 35 泥質(zhì)砂巖DK Ⅲ 428160 110 20 泥質(zhì)砂巖DK Ⅲ 42841 110 20 砂巖DK Ⅲ 427956 110 20 砂巖DK Ⅲ 427861 110 20 砂巖DK Ⅲ 427841 110 20 砂巖DK Ⅲ 427765 110 20 砂巖DK Ⅲ 427561 110 20 砂巖DK Ⅲ 427443 110 20 砂巖DK Ⅲ 427372 110 20 砂巖DK Ⅲ 427280 110 20 砂巖DK Ⅲ 427235 110 20 砂巖DK Ⅳ 427200 110 20 砂巖DK Ⅲ 427180 110 20 砂巖DK Ⅲ 427110 110 20 砂巖DK Ⅴ 42767 110 20 砂巖DK Ⅲ 426970 110 20 泥質(zhì)砂巖DK Ⅲ 426912 110 20 泥質(zhì)砂巖DK Ⅴ 426897 110 20 泥質(zhì)砂巖DK Ⅳ 426853 110 20 泥質(zhì)砂巖DK Ⅴ 426820 110 20 泥質(zhì)砂巖田壩嶺隧道DK Ⅴ 426750 110 20 泥質(zhì)砂巖田壩嶺隧道續(xù)表 63石家莊鐵道大學(xué)畢業(yè)設(shè)計(jì)34工程名稱線路里程 層面特征里程前綴 劃分級(jí)別 里程 傾向 傾角 巖石特征DK Ⅴ 426745 110 20 泥質(zhì)砂巖DK Ⅳ 426740 110 20 泥質(zhì)砂巖DK Ⅳ 426700 110 20 泥質(zhì)砂巖DK Ⅴ 426655 110 20 泥質(zhì)砂巖DK Ⅴ 426630 110 20 石英砂巖DK Ⅴ 426547 11