基于AutoCAD VBA的公路施工橫斷面圖的繪制和土方量計算

紀凱

(安徽交通職業技術學院土木系，安徽合肥 230051)

基于AutoCAD VBA的公路施工橫斷面圖的繪制和土方量計算

紀凱?

(安徽交通職業技術學院土木系，安徽合肥 230051)

路基斷面圖和土石方量是施工單位工程計量的重要依據，本文針對施工特點，闡述了在AutoCAD平臺下如何使用VBA開發適合施工單位的橫斷面圖繪制和土方計算程序的一些問題。開發的程序使用方便，計算精度高。

施工；橫斷面；土方量；AutoCAD

1 概 述

目前我國交通建設發展迅猛，特別是隨著公路交通和高速公路的增加，舊有公路不斷拓寬和改建，在公路施工過程中，由于一些客觀的原因，設計文件中的路基土石方的數量誤差較大，特別是地形起伏變化大的地方更是如此。究其原因:一是設計部門在勘測時，由于現場復雜，特別是雜草叢生、樹木較多通視條件差的地方，測量誤差大；二是有些地方無法精確詳細測量，如遇河塘；三是斷面測量間距受到限制，不可能很小，否則對于設計單位來說，勘測工作量很大。因此各施工單位進入現場后，都要對各自施工的路段的路基土石方進行復核。主要包括:一是公路線路原地面復測；二是繪制橫斷面圖和土石方量計算。這兩項工作量都較大。繪制橫斷面圖和土石方量計算在設計單位目前全部采用計算機軟件自動完成，而在施工單位主要采用在方格厘米紙上用人工方法完成或在AutoCAD用Command命令繪制。勞動強度大，效率差，精度低，而橫斷面圖和土石方量是業主對施工單位路基工程計量的重要依據。本文討論結合施工的特點，開發適合施工單位使用的路基施工橫斷面圖繪制和土方計算的程序。

2 公路施工測量斷面的特點

2.1 原地表

(1)同一樁號的斷面比勘測設計階段準確。這是由于施工單位進場后投入人力對原地表進行了處理，如清表、砍伐植物等，為精確測量提供了條件。

(2)斷面間距縮短。我們知道，土方量計算的精度與斷面的間距有很大的關系，間距越小，精度越高。由于每個施工單位施工的標段里程有限，因此，施工單位為了提高土方量的精度，橫斷面的間距都較小，在土方成本大的地方，甚至5 m測量一個斷面。

2.2 標準斷面

(1)對于復測后的斷面與原設計單位勘測的相差不大的情況，對施工單位來說，標準斷面都是由設計圖紙確定，施工單位不得變更。(而設計階段的標準斷面可以自由確定)

(2)對于復測后的斷面與原設計單位勘測的相差大的情況，標準斷面如果不能滿足要求，應重新設計。

3 AutoCAD VBA編程介紹

Visual Basic for Application(VBA)是Microsoft面向最終用戶的應用軟件編程語言。它最早出現于Microsoft的Excel和Project中，如今VBA已成為VB和所有Office產品的組件。常用的繪圖軟件AutoCAD也已支持VBA作為二次開發工具。

VBA最大特點和最大優點是利用面向對象(OOP)的ActiveX Automation技術，使語言的引擎在技術上與開發環境分離。它的功能在很大程度上依賴于它的客戶顯露的Automation接口。同時，由于VBA是基于ActiveX Automation技術，它可以使用任何Automation技術的應用程序共同工作。

基于AutoCAD的VBA應用程序就是高級程序語言的計算功能與AutoCAD的繪圖功能結合，使用VBA程序語句來控制對AutoCAD圖形的操作。VBA作為一個集成的開發環境，它提供了高質量的用戶化編程能力，能夠使AutoCAD數據與其他的VBA應用程序，如Microsoft Excel軟件直接共享，實現無縫連接，交換數據非常方便。

VBA的兩種重要的基礎是宏和集合對象。宏是執行特定操作的一系列命令，可以只是完成任務的按鈕記錄，也可以是復雜的命令，例如，AutoLISP，DIESEL和ActiveX編程代碼等的組合。宏的定義方式與VB中的過程(SUB)的定義是一致的，一般用來實現某一些特定的功能，也可作為VBA的啟動過程。在Auto-CAD的“宏”對話框的宏列表中，僅會顯示ThisDrawing或者標準模塊的宏。ThisDrawing模塊中無法創建全局變量，可以放置AutoCAD事件處理的代碼，而標準模塊則與之相反。

進入VBA的編程環境可以有兩種方法:第一種方法是在AutoCAD中，選擇“工具”→“宏”→“VISUAL BASIC編輯器”。第二種方法是在AutoCAD的命令中輸入命令“VBAIDE”。

4 公路橫斷面繪制的方法

為了在AutoCAD中繪制公路橫斷面圖需要解決3個問題:第一是從Excel中讀取斷面數據的問題；第二是坐標轉換的問題，也即是把斷面的坐標轉換成Auto-CAD的地圖坐標；第三是設計橫斷面的坡度線與原地面線段求交點的問題。

4.1 從Excel讀取數據的方法

在Microsoft Excel中，與表對應的對象是工作表(Sheet或Worksheet)，與每一個表格方格對應的對象是單元格區域(range)，它可以僅包括一個單元格(cell)，也可以由多個單元格合并而成。工作表對象中的 cells屬性，在單元格的選擇方面可以達到與range相同的效果。它是以行(row)和列(col)作為參數的，對于行和列的選擇可以采用變量的形式。

在AutoCAD中，沒有與表對應的對象，但可以根據表中前后樁號定義水平距離，根據地面高程定義垂直距離，將表中數據理解為線條與文字對象的集合。這樣，通過讀取Microsoft Excel文件中的最小對象－單元格區域[cells(i，，j)]的主要信息，利用VBA建立AutoCAD與Excel的通信，然后在AutoCAD文件里指定的圖層、位置畫線條，書寫文字。通過循環，遍歷所有單元格區域[cells(i，，j)]，邊讀邊寫，最終完成縱斷面地面線的繪制及樁號的書寫。

4.2 橫斷面數據的坐標轉換方法

為了把橫斷面數據繪制在AutoCAD中，需要將橫斷面數據轉化成AutoCAD的平面坐標。由于數據的格式不同，可分為設計斷面線的平面坐標數據轉換和原地面線的平面坐標的轉換。

(1)設計橫斷面線數據的平面坐標計算問題

如圖1所示:已經知道起點A在AutoCAD平面坐標系中的平面坐標為(x0，y0)，該設計線的長度為L和坡度為i，點B的平面坐標為:

當B在右側的時候，式(1)取加號，當B在左側的時候，式(1)取減號。

為了計算出各設計坡度變化點的平面坐標，可以先算出設計中樁的平面坐標，然后依次求解出各坡度變化點的平面坐標。

圖1 設計坡度變化點坐標求解

圖2 原地面點平面坐標計算

(2)原地面數據的平面坐標計算問題

如圖2所示，已經知道點A的平面坐標(x0，y0)，點A，B的高程分別為H0和H，A與B的橫坐標增量為△XAB，則

當B在右側的時候，式(2)取加號，當B在左側的時候，式(2)取減號。

為了計算出各原地面點的平面坐標，可以先算出中樁的平面坐標，然后求解出各原地面點的平面坐標。

4.3 設計橫斷面的坡度線跟原地面線段求交點的方法

如圖3所示，設計橫斷面的坡度線AB的起點A的平面坐標為(xa，ya)，B為該坡度線AB上的一點，其平面坐標為(xb，yb)，CD為原地面的一段線段，點C和點D的平面坐標分別為(xc，yc)和(xd，yd)。則AB的參數方程為:

其中t＞0，同理可得線段CD的參數方程為:

其中0＜s＜1，由式(3)、式(4)聯合解參數t和s可得:

圖3 設計橫斷面的坡度線跟原地面線交點的求解

使用式(5)、式(6)參數求解法，先求出t和s。如果t＞0并且0＜s＜1的時候，則存在交點，將t代入式(3)，或者將s代入式(4)，即可求得AB和線段CD的交點。

5 橫斷面圖的繪制程序設計

本程序以AutoCAD 2004為平臺，在VBA的編程環境開發出適合于施工和監理單位的土石方計算與繪圖程序，以VBA語言編制程序，采用Active－X Automation技術控制AutoCAD對象。斷面圖全部在AutoCAD自動生成，土方量的計算可以由AutoCAD提供的求面積的工具求得。

程序要求輸入的原始數據有:原地面測量和設計橫斷面數據文件，由施工單位測量和圖紙上所得，其格式:

對于設計線，其中Li，Ii分別表示第i個點的跟前一個點i－1的距離和該設計線的橫坡度，最后一個數據i表示設計線的最后坡度線的坡度。對于原地面線，其中Li，hi分別表示第i個點跟前一個點i－1的距離和第i個點的高程。

5.1 在AutoCAD中創建Excel應用程序和Excel數據的讀取問題

要編寫存取Excel的應用程序，必須通過VBA將Excel中的對象能夠讓用戶使用，這就需要參考Excel對象的數據庫。其具體步驟如下。

(1)打開 AutoCAD的 VBA編輯器(命令: VBAIDE)；

(2)選擇“工具”＼“引用”項，在彈出的“引用”對話框的“可使用的引用”列表框內，選擇“Microsoft Excel 8.0 Object Library”項；

(3)單擊“確定”按鈕；

(4)接下來使用下列代碼可創建完整的應用程序對象實例

其中FileName為Excel的包括路徑的文件名。這樣就可以通過excelSheet.Cells(i，j).Value來獲取第i行和第j列的值了。

5.2 繪制橫段面圖

通過不斷讀取Excel中的數據，并且計算出各點的地圖坐標，利用AutoCAD中的繪制線段的Addline方法，該方法的具體語法是:

其中LineObject為Acadline對象，SPoint和EPoint分別為線段的起點和終點坐標。

為了方便使用AutoCAD命令來調用已編制完成的斷面繪制程序“dmhz.dvb”，首先找到AutoCAD2004.lsp文件，它一般是在AutoCAD的安裝目錄中的SUPPOTR文件夾下，文件AutoCAD2004.lsp的文件名中的2004會隨AutoCAD的版本號的不同而有所不同。在Auto-CAD2004.lsp文件的后面增加如下內容:

該段程序中hdmhz是用戶自定義的命令，“c:＼dmhz.dvb”為含路徑的工程文件名，每當CAD程序啟動后，AutoCAD2004.lsp會自動讀入并運行，這樣當在AutoCAD的命令行中輸入dmhz命令，就會執行宏命令dmhz。

為了能在 AutoCAD中啟動的時候能自動加載VBA程序，先把新建的編好的VBA工程dmhz.dvb拷貝到AutoCAD安裝目錄下的SUPPOTR文件夾中，并修改文件acad.lsp，該文件一般在用戶的目錄下的Application Data＼Autodesk＼AutoCAD 2004＼R16.0＼chs＼Support文件夾下，其中AutoCAD 2004和R16.0會隨著安裝的AutoCAD的版本不同而不同，如果找不到該文件，則在該文件夾下增加該文件。在該文件后面增加如下內容:

這樣只要用戶在AutoCAD的命令行中輸入hdmhz命令，就可自動執行編好工程dmhz.dvb的宏。

本程序的界面以及利用AutoCAD的面積查詢功能編輯生成的橫斷面圖分別如圖4和圖5所示。

圖4 程序界面圖

圖5 橫斷面圖的生成

6 結 語

利用本文提供的施工橫斷面圖的繪制和土方計算方法開發程序，可以迅速畫出施工橫斷面圖，然后利用AutoCAD提供求面積的工具可以很容易求出施工橫斷面圖的土方量。作者在多年的公路測量中，已經使用該程序在安徽大顧店到葉集高速、周六高速、合六高速以及新疆和－鐵－托等公路中得到了實踐，有效地提高了施工單位和監理單位的工作效率。

[1]符鋅砂.公路計算機輔助設計[M].人民交通出版社，1999年4月第一版，P189

[2]龔健雅.地理信息系統基礎[M].科學出版，2001年2月第一版，P156～P157

[3]張帆.AutoCAD VBA二次開發教程[M].清華大學出版社，2006年1月第一版，P386

[4]李鳳華.AutoCAD2002/2004 VBA開發指南[M].清華大學出版社，2001年4月第一版，P2、P15、P426

[5]王衛東，蔣紅斐.道路與鐵道工程技算機輔助設計[M].機械工業出版社，2004年1月第一版，P146～P149

Shallowly Discussed The Cross Section and Calculaton of Earthwork′s Volume of Road Construction Based on AutoCAD VBA

Ji Kai
(Anhui communications Technology Institute，Hefei 230051，China)

The graph of cross section and the volume of earthwork is the important base of construction′s measurement，This paper discusses the problems of drawing of cross section and calculating of earthwork′s volume in the plateforme of onAutoCAD.The program is convenient for applying in practice and the calculating accuracy is high.

construction；cross section；earthwork′s volume；AutoCAD

1672－8262(2010)04－133－04

P209

B

2009—10—31

紀凱(1979—)，男，講師，在職研究生；研究方向:變形監測和測量教學。