利用VBA实现Excel与CAD相结合自动绘制平面图

利用VBA实现Excel与CAD相结合自动绘制平面图

摘要:本文将Excel与CAD相结合，运用VBA语言编程，提出了一种自动绘制工程施工平面图的方法，给出了程序的思路图和主程序。改方法充分考虑了与用户进行交互的问题，大大减小了受Excel固定表格约束的影响，使程序更具有人性化特点。

关键词:VBA；Excel；CAD；平面图

1 引言

在公路、铁路、水利等工程施工测量中，都需要将单调、繁琐的测量数据运用软件处理方法转化为形象、直观的图形，就目前而言，Excel是使用最广泛的办公软件之一，具有强大的功能和良好的人机交互对话界面，可以方便地进行数据处理和VBA二次开发，在工程测量中有广泛的运用；CAD具有强大的绘图功能，将测量数据转为形象、直观的图形更有易于数据检核、提高计算工作准确性和工作效率，同时CAD还提供VBA二次开发。现在利用Excel开发的数据处理软件和利用CAD开发的绘图软件很多，而把两者相结合利用VBA实现在Excel中自动打开CAD绘图功能却很少。对此，本文作了一些有益的尝试。

本文所阐述的是用电子表格Excel和CAD相结合的方法，根据人机交互对话界面提示选取原始数据区域，借助Excel中的VBA启动CAD，并在CAD中自动绘图。另外根据用户选择的图形文件，在其图形中绘制新的图形，实现新老图合并，也是本文的一大特色。本文最后给出了关于平面图自动绘制和桩号标注的源程序，该程序在Excel 2007和CAD2004中测试通过。

2基本思路和方法

基本思路是按照用户选取的CAD图形文件名判断该图形是否在Windows界面下打开，按照提示对话框选取桩号、偏距、坐标、前进方位角区域，下一步会询问用户是否标注，根据用户选择来进行下一步操作。

2.1首先打开一个电子表格，录入原始数据。

在Excel工作表第一列输入里程桩号，第二列输入偏移的外距，第三列输入X坐标，第四列输入Y坐标，第五列输入路线的前进方位角（以弧度为单位），如图2所示，其中除了保证里程与偏移外距两列为连续的两列，中间不允许插入空列或隐藏列；X、Y两列为连续的两列，中间不允许插入空列或隐藏列外，其它区域可以任由用户编辑，若用户忽略前进方位角或前进方位角一列输入0，则标注桩号的方向呈水平状态。