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

翁 浩

江蘇東日基礎(chǔ)工程有限公司，江蘇 鎮(zhèn)江 212300

樁位偏差竣工圖是樁基工程驗(yàn)收時(shí)必需的資料之一。繪制樁位偏差圖時(shí)需在樁位上標(biāo)明樁位實(shí)際測(cè)量偏差方向與偏差值，并且驗(yàn)收時(shí)往往需要準(zhǔn)備多份資料，對(duì)于較大的工程，動(dòng)輒數(shù)千根甚至上萬(wàn)根樁，利用傳統(tǒng)手工方式對(duì)施工藍(lán)圖進(jìn)行改繪不僅工作量極大、效率低，還容易出現(xiàn)錯(cuò)誤和紕漏。隨著計(jì)算機(jī)圖形的自動(dòng)化發(fā)展，樁位偏差圖自動(dòng)化繪制成為可能。文章利用VBA在AutoCAD與Excel中的通用性，結(jié)合Excel較強(qiáng)的計(jì)算能力和AutoCAD較強(qiáng)的繪圖功能兩方面的優(yōu)勢(shì)，闡述了樁位偏差圖自動(dòng)繪制的方法。工程人員首先對(duì)現(xiàn)場(chǎng)樁位實(shí)際偏差進(jìn)行統(tǒng)計(jì)，收集數(shù)據(jù)編制樁位偏差表，然后利用VBA在AutoCAD中讀取Excel中的數(shù)據(jù)，根據(jù)讀取的數(shù)據(jù)自動(dòng)生成樁位偏差圖。該過(guò)程簡(jiǎn)單快速，提高了工程人員的工作效率。

1 編程語(yǔ)言與運(yùn)行環(huán)境

VBA是基于ActiveX技術(shù)的面向?qū)ο蟮膽?yīng)用程序開(kāi)發(fā)工具，Microsoft Office系列軟件及AutoCAD等流行通用的應(yīng)用軟件都內(nèi)置Visual Basic編輯器，其強(qiáng)大的功能為各軟件的二次開(kāi)發(fā)提供了一個(gè)良好的平臺(tái)。AutoCAD自R14.01版開(kāi)始加入了VBA，由于其編程語(yǔ)言和開(kāi)發(fā)環(huán)境較之其他簡(jiǎn)單而熟悉，用戶可以快速高效開(kāi)發(fā)滿足各自需求的程序。利用VBA對(duì)AutoCAD與Excel進(jìn)行二次開(kāi)發(fā)，可以顯著提高繪圖工作效率。該開(kāi)發(fā)工具已經(jīng)廣泛應(yīng)用于各行各業(yè)專業(yè)的制圖工作，是很多設(shè)計(jì)院和高校研究的熱點(diǎn)。

以AutoCAD 2021和Microsoft 365 Excel為例，打開(kāi)AutoCAD中Visual Basic編輯器，依次點(diǎn)擊“面板”“管理”“應(yīng)用程序”“Visual Basic編輯器”打開(kāi)Visual Basic編輯器菜單（見(jiàn)圖1），在Visual Basic編輯器中寫程序代碼，完成后點(diǎn)擊工具欄里的運(yùn)行程序即可執(zhí)行所編寫的宏命令。

圖1 Visual Basic編輯器菜單

2 程序設(shè)計(jì)

2.1 在Excel中創(chuàng)建樁位偏差表

在繪制前，需根據(jù)圖紙得到各樁位中心圖紙理論坐標(biāo)及現(xiàn)場(chǎng)測(cè)量得到的各樁位實(shí)際偏差值，在Excel中按規(guī)定格式填入樁位偏差表（見(jiàn)圖2）。

圖2 樁位偏差表

2.2 AutoCAD與Excel交互獲取數(shù)據(jù)

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

圖3 引用菜單

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

2.3 在CAD中繪圖

首先，在CAD中創(chuàng)建一個(gè)名為“方向箭頭”的塊，以300樁徑為標(biāo)準(zhǔn)，線長(zhǎng)為600，箭頭長(zhǎng)100，起點(diǎn)寬50（見(jiàn)圖4）。具體代碼如下。

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

3 程序的使用效果

利用該程序?qū)δ硺菢段贿M(jìn)行處理，得到樁位偏差圖，從中截取局部效果圖（見(jiàn)圖5）?？梢钥闯?，利用VBA程序進(jìn)行批量處理后的圖紙圖面較為整潔，符合樁位偏差竣工圖的繪制要求，后期只需要進(jìn)行少量的人工檢查和干預(yù)即可作為最終的樁位偏差竣工圖。

圖5 樁位偏差圖（局部）

4 結(jié)束語(yǔ)

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