基于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 结束语

工程竣工验收前，建设单位应组织、督促和协助各设计、施工单位检验各自负责的竣工图编制工作，发现不准确或短缺现象，应及时采取措施修改和补齐。其中，竣工图是工程交工验收的条件之一，如果其不准确、不完整、不符合归档要求，将不能交工验收。桩位偏差图是桩基工程验收所必需的资料之一。基于此，文章结合实际工程，利用AutoCAD软件中的VBA编程方法自动绘制桩位偏差竣工图。该方法既可以减少工程人员的重复性工作，又可以避免错误的发生，提高工作效率，同时能够满足竣工验收要求，已初步显现出良好的应用价值，值得进一步推广和应用。