基于AutoCAD VBA與Excel的樁位偏差竣工圖繪制

翁 浩

江蘇東日基礎工程有限公司，江蘇 鎮江 212300

樁位偏差竣工圖是樁基工程驗收時必需的資料之一。繪制樁位偏差圖時需在樁位上標明樁位實際測量偏差方向與偏差值，并且驗收時往往需要準備多份資料，對于較大的工程，動輒數千根甚至上萬根樁，利用傳統手工方式對施工藍圖進行改繪不僅工作量極大、效率低，還容易出現錯誤和紕漏。隨著計算機圖形的自動化發展，樁位偏差圖自動化繪制成為可能。文章利用VBA在AutoCAD與Excel中的通用性，結合Excel較強的計算能力和AutoCAD較強的繪圖功能兩方面的優勢，闡述了樁位偏差圖自動繪制的方法。工程人員首先對現場樁位實際偏差進行統計，收集數據編制樁位偏差表，然后利用VBA在AutoCAD中讀取Excel中的數據，根據讀取的數據自動生成樁位偏差圖。該過程簡單快速，提高了工程人員的工作效率。

1 編程語言與運行環境

VBA是基于ActiveX技術的面向對象的應用程序開發工具，Microsoft Office系列軟件及AutoCAD等流行通用的應用軟件都內置Visual Basic編輯器，其強大的功能為各軟件的二次開發提供了一個良好的平臺。AutoCAD自R14.01版開始加入了VBA，由于其編程語言和開發環境較之其他簡單而熟悉，用戶可以快速高效開發滿足各自需求的程序。利用VBA對AutoCAD與Excel進行二次開發，可以顯著提高繪圖工作效率。該開發工具已經廣泛應用于各行各業專業的制圖工作，是很多設計院和高校研究的熱點。

以AutoCAD 2021和Microsoft 365 Excel為例，打開AutoCAD中Visual Basic編輯器，依次點擊“面板”“管理”“應用程序”“Visual Basic編輯器”打開Visual Basic編輯器菜單（見圖1），在Visual Basic編輯器中寫程序代碼，完成后點擊工具欄里的運行程序即可執行所編寫的宏命令。

圖1 Visual Basic編輯器菜單

2 程序設計

2.1 在Excel中創建樁位偏差表

在繪制前，需根據圖紙得到各樁位中心圖紙理論坐標及現場測量得到的各樁位實際偏差值，在Excel中按規定格式填入樁位偏差表（見圖2）。

圖2 樁位偏差表

2.2 AutoCAD與Excel交互獲取數據

利用AutoCAD內置的VBA開發工具可建立AutoCAD與Excel的通信，使AutoCAD可以調用Excel中的數據，具體方法如下：在Visual Basic編輯器菜單中選擇“工具”，然后選擇“引用”，在打開的“引用”對話框中勾選“Microsoft Excel 16.0 Object Library”（見圖3）。此步驟引用Excel工程對象是為了在VBA環境下操作Excel文檔，從而使AutoCAD和Excel中的數據可以交互共享。

圖3 引用菜單

輸入代碼引用C盤中Excel文件“偏差表.xlsx”，并且將工作簿中的“sheet1”中樁位東南西北偏差值以及x，y坐標傳入CAD，具體代碼如下。

2.3 在CAD中繪圖

首先，在CAD中創建一個名為“方向箭頭”的塊，以300樁徑為標準，線長為600，箭頭長100，起點寬50（見圖4）。具體代碼如下。

圖4 塊定義-“方向箭頭”

3 程序的使用效果

利用該程序對某樓樁位進行處理，得到樁位偏差圖，從中截取局部效果圖（見圖5）?？梢钥闯?，利用VBA程序進行批量處理后的圖紙圖面較為整潔，符合樁位偏差竣工圖的繪制要求，后期只需要進行少量的人工檢查和干預即可作為最終的樁位偏差竣工圖。

圖5 樁位偏差圖（局部）

4 結束語

工程竣工驗收前，建設單位應組織、督促和協助各設計、施工單位檢驗各自負責的竣工圖編制工作，發現不準確或短缺現象，應及時采取措施修改和補齊。其中，竣工圖是工程交工驗收的條件之一，如果其不準確、不完整、不符合歸檔要求，將不能交工驗收。樁位偏差圖是樁基工程驗收所必需的資料之一?；诖耍恼陆Y合實際工程，利用AutoCAD軟件中的VBA編程方法自動繪制樁位偏差竣工圖。該方法既可以減少工程人員的重復性工作，又可以避免錯誤的發生，提高工作效率，同時能夠滿足竣工驗收要求，已初步顯現出良好的應用價值，值得進一步推廣和應用。