繪制隧道測量斷面程序

1、AutoCad VBA在繪制隧道斷面圖中的應(yīng)用姬根杰中鐵十七局集團四公司 重慶404100E-mail： HYPERLINK mailto:_jcglj.ji _jcglj.ji【內(nèi)容摘要】隧道測量斷面圖繪制程序以大家熟悉的AutoCad界面為工作 平臺，利用AutoCad VBA二次開發(fā)功能，和Excel表格數(shù)據(jù)交換，達到在Excel 表中批量輸入數(shù)據(jù)，在AutoCad中批量繪制隧道斷面圖的效果，從而減少我們 的工作強度，大大增加工作效率?！娟P(guān)鍵詞】Excel AutoCad VBA 編程 斷面圖繪制在隧道施工中，經(jīng)常測量隧道的開挖斷面圖、或測量襯砌后的凈空斷面圖， 是隧道施工技術(shù)人員時常遇

2、到的任務(wù)。測量數(shù)據(jù)枯燥、重復(fù)、繁瑣的計算，斷 面圖逐點的繪制，超欠挖從圖中的量測，以及測量數(shù)據(jù)成果的整理，你或許感 覺到不方便吧？相信大家在工作中經(jīng)常使用Excel和AutoCad辦公軟件，Excel 辦公軟件作為最優(yōu)秀的電子表格處理軟件之一，廣泛應(yīng)用于工程計算和報表， 而AutoCad在工程制圖中更是首選的辦公軟件。其實，AutoCad本身為我們提供了強大的二次開發(fā)功能AutoCad VBA（Visual Basic for Application），使用VBA具有以下優(yōu)點：1）使重復(fù)的批量 計算、繪圖任務(wù)自動化，減輕測量內(nèi)業(yè)計算的工作強度。2）創(chuàng)建滿足工程要求 的特定圖表。3）便于測量數(shù)據(jù)

3、的管理和維護。為了方便程序的應(yīng)用，本斷面圖繪制程序以大家熟悉的AutoCad界面為工 作平臺，調(diào)用excel表格數(shù)據(jù)，進行隧道斷面圖的批量繪制，它將成百倍地減 少我們的工作強度，大大增加工作效率，具有以下功能：1、在excel表中批量輸入設(shè)計參數(shù)和所測量的隧道斷面圖數(shù)據(jù)。2、隧道斷面圖的批量繪制。3、斷面圖數(shù)據(jù)形成excel表格數(shù)據(jù)。4、圖形的的動態(tài)修改以及與excel表格數(shù)據(jù)的交換。5、隧道斷面圖的批量打印。一、圖繪制程序程序的使用程序由“斷面數(shù)據(jù).xls”和“隧道斷面dwg”兩個文件組成，且必須放置 在同一文件夾中。當繪制新的斷面圖時，把文件夾整個復(fù)制后使用。打開“隧道斷面” CAD文件，

4、（注意“斷面數(shù)據(jù)excel文件必須和“隧 道斷面 CAD文件在同一日錄下），如果有詢問“是否啟用宏”的安全警告的 對話框，選擇“啟用宏”；點擊鼠標右鍵，出現(xiàn)人機對話窗口，進入到下圖頁 面。（一）設(shè)計參數(shù)的輸入1、設(shè)計參數(shù)數(shù)據(jù)是指 隧道的標準斷面的參數(shù)。2、以隧道中心線為Y 軸，以內(nèi)軌頂面為X軸建立坐標 系。3、標準斷面由直線和 圓弧組成的閉合多邊形。讓0妍微溶魂蹄跳蹤文件 編輯遂）視圖。 插X（i）格式敏ABCD1建標Y坐標R半徑點號2-30999913-325243299993530999946-301789:lJ 2 0 |昌直母我I詁亳t 7:宋體-12 -IB I U I 1714-4

5、、多邊形頂點的坐 標，按順時針順序，從表格左側(cè) 第二行開始依次輸入，注意最后 一點是第一點的坐標。5、半徑是指本點與下一點之間圓弧的半徑，直線時，輸入999999即 可，表示半徑無窮大。6、數(shù)據(jù)單位：米。（二）斷面數(shù)據(jù)的輸入1、從第一列開始，每三列為 一組斷面數(shù)據(jù)。2、每組數(shù)據(jù)第一列（14行） 為本斷面的里程、內(nèi)軌頂面高程、斷 面類型（可不填）、備注（可不填）。3、每組數(shù)據(jù)第二、三列本斷 面的X,Y坐標，輸入時一定按順序輸 入，第一點不必重新輸入。（三）完成輸入后保存并關(guān)閉excel文件。三、隧道繪圖1、按繪制圖形鍵后，開始繪制隧道斷面圖。2、圖框部分是個圖塊，隨意按實際要求編輯一個保存后，以

6、后不必每 次編輯。四、斷面數(shù)據(jù)形成表格數(shù)據(jù)按圖到數(shù)據(jù)后即在excel文件中輸出。五、圖形的的動態(tài)修改1、直接在CAD圖中移動修改所測點的位置至所需要的位置。2、按圖到數(shù)據(jù)，這樣把修改后的斷面數(shù)據(jù)會返回excel表中，并 且覆蓋原來表中的數(shù)據(jù)。3、按繪制圖形鍵后，重新繪制隧道斷面圖即可得到修改后的圖形。六、批量打印圖形按打印圖形后，即可批量打印。七、AutoCad VBA的學習和探討本程序是AutoCad VBA在繪制隧道斷面圖中的一個簡單應(yīng)用，VBA是 AutoCad , Excel辦公軟件和VB設(shè)計程序語言的完美結(jié)合，自定義AutoCad使 其成為開發(fā)應(yīng)用平臺，如果我們工程技術(shù)人員把Excel VBA，應(yīng)用于測量試驗 等計算、工程制圖方面(AutoCad VBA)，它將成百倍地減少我們的工作強度， 大大增加工作效率。本程序在西溪河水電項目，北天山隧道項目的施工中使用 并得到驗證，我相信：AutoCad VBA，Excel VBA將在工程領(lǐng)域得到更加廣泛 的應(yīng)用。本程序在AUTOCAD2007版本和EXCEL2003中編制并正常運行，如有疑問或好的建議，請及時與本人聯(lián)系：E-mail: HYPERLINK mailto:jcglj.ji jcglj.ji QQ:437370491參考文獻：1張立科.Visual Basic 6.0程序