基于VBA在AutoCAD中自动绘图的应用

1、基于 vba 在 autocad 中自动绘图的应用-李广亚随着电脑技术的飞速发展，目前大多数企业都采用 autocad 制图、绘图，在工程施工领域也是采用 autocad 进行二维工程绘图。gps 的应用使的施工现场坐标的采集非常方便，通常便于直观，监理、业主会要求将 gps 采集的坐标绘制在 cad 图上。对于一个熟悉 cad 的人来说，将 10 几个坐标数据手工录入坐标绘制到 cad 中是比较容易的，但如果是几十个点，上百个点，甚至几百个点，对于一个施工技术员来说一个一个坐标的手工录入，就成了一个比较有难度的工作，主要因为手工录入会比较繁琐、耗费时间长还特别容易出错。在这方面如何能提高技术

2、人员的工作效率？基于此，我们采用 atuocad 中的 vba 技术，进二次开发，可以方便的将大量的坐标自动绘制到 cad 图中。下面通过一个简单事例来说明 atuocad 中 vba 技术的二次开发自动绘图程序的过程：事件介绍：2012 年业主在场区开挖一不规则多边形鱼塘，要求我单位将鱼塘进行测量并标注在总平面图上。1、 数据采集：使用 gps 现场进行数据采集，在鱼塘周边从一点开始，顺时针方向进行，在不规则鱼塘的所有角点拐点均采集坐标，并保存在 gps 中。2、导出坐标：将 gps 中采集的坐标导出到文本文档，如下图：3、数据处理：将导入的坐标使用 excel 文档打开并编辑处理，高程全设

3、为 0，表单重命名为“sj”，保存 excel 文档到 d 盘，文档名称为“gps 导入坐标绘图”如下图：4、vba 跨平台技术二次开发：（1）、打开 autocad，选择工具-宏-vba 编辑器，打开 vba 编辑器。在 vba 编缉器中插入用户窗体，在窗体上插入按钮组件，如图：（2）、双击按钮，打开代码编辑窗口，编缉代码如下：private sub commandbutton1_click()dim xlapp as excel.applicationdim xlbook as excel.workbookdim xlsheet as excel.worksheetset xlapp =

4、createobject(excel.application)set xlbook = xlapp.workbooks.open(d:gps 导入坐标绘图.xls) 打开的 excel 路径xlapp.visible = falseset xlsheet = xlbook.worksheets(sj) 打开 excel 中的 sj 工作表 i = xlsheet.cells(1, 2) i 为线条线数for p = 0 to i - 2 step 1p = pk1 = xlsheet.cells(3 + p, 3) 将表格第 3 行第 3 列内数值赋值给 k1， x 坐标值h1 = xlshe

5、et.cells(3 + p, 2)k3 = xlsheet.cells(3 + p, 4)k2 = xlsheet.cells(4 + p, 3)h2 = xlsheet.cells(4 + p, 2)h3 = xlsheet.cells(4 + p, 4)dim 点 as acadlinedim 起点(2) as doubledim 端点(2) as double起点(0) = k1将 k1 值贱赋值给起点数组内第一个值，即起点 x 坐标。起点(1) = h1起点(2) = k3端点(0) = k2端点(1) = h2端点(2) = h3set 点 = thisdrawing.models

6、pace.addline(起点, 端点)nextfor 语结束xlbook.closexlapp.quitset xlapp = nothingend sub结束（3）、代码编辑完成后，点击运行后，如下图，点击自动绘图按钮：自动绘制出鱼塘平面图如下：（4）、保存 vba 文件：在 vba 编辑器中点击保存按钮，将所编写的 vba 程序文件进行保存，保存名称为：gps 导入坐标绘图，如下图：（5）下次需要使用时只需在 cad 的 vba 编辑器中打开，不用重复编写程序文件。总结：本次事例中只有 12 个坐标，自动绘图对几十个坐标、上百个坐标、甚至上千个坐标都能顺间完成。15 个坐标的手工录入时间约为 30 分钟，点越多，录入时间会越长，一个人静下心来，300