绘制隧道测量断面程序.doc

AutoCadVBA在绘制隧道断面图中的应用

姬根杰

中铁十七局集团四公司重庆404100

E-mail：jcglj.ji@vip.sina

【内容摘要】隧道测量断面图绘制程序以大家熟悉的AutoCad界面为工作平台，利用AutoCadVBA二次开发功能，和Excel表格数据交换，到达在Excel表中批量输入数据，在AutoCad中批量绘制隧道断面图的效果，从而减少我们的工作强度，大大增加工作效率。

【关键词】ExcelAutoCadVBA编程断面图绘制

在隧道施工中，经常测量隧道的开挖断面图、或测量衬砌后的净空断面图，是隧道施工技术人员时常遇到的任务。测量数据枯燥、重复、繁琐的计算，断面图逐点的绘制，超欠挖从图中的量测，以及测量数据成果的整理，你或许感觉到不方便吧？相信大家在工作中经常使用Excel和AutoCad办公软件，Excel办公软件作为最优秀的电子表格处理软件之一，广泛应用于工程计算和报表，而AutoCad在工程制图中更是首选的办公软件。

其实，AutoCad本身为我们提供了强大的二次开发功能AutoCadVBA〔VisualBasicforApplication〕,使用VBA具有以下优点：1)使重复的批量计算、绘图任务自动化，减轻测量内业计算的工作强度。2)创立满足工程要求的特定图表。3)便于测量数据的管理和维护。

为了方便程序的应用，本断面图绘制程序以大家熟悉的AutoCad界面为工作平台，调用excel表格数据，进行隧道断面图的批量绘制，它将成百倍地减少我们的工作强度，大大增加工作效率，具有以下功能：

1、在excel表中批量输入设计参数和所测量的隧道断面图数据。

2、隧道断面图的批量绘制。

3、断面图数据形成excel表格数据。

4、图形的的动态修改以及与excel表格数据的交换。

5、隧道断面图的批量打印。

一、图绘制程序程序的使用

程序由“断面数据.xls”和“隧道断面.dwg”两个文件组成，且必须放置在同一文件夹中。当绘制新的断面图时，把文件夹整个复制后使用。

翻开“隧道断面”CAD文件，〔注意“断面数据”excel文件必须和“隧道断面”CAD文件在同一目录下〕，如果有询问“是否启用宏”的平安警告的对话框，选择“启用宏”；点击鼠标右键，出现人机对话窗口，进入到下列图页面。

二、输入数据

可以在excel表中批量输入设计参数和所测量的隧道断面数据。

〔一〕设计参数的输入

1、设计参数数据是指隧道的标准断面的参数。

2、以隧道中心线为Y轴，以內轨顶面为X轴建立坐标系。

3、标准断面由直线和圆弧组成的闭合多边形。

4、多边形顶点的坐标，按顺时针顺序，从表格左侧第二行开始依次输入，注意最后一点是第一点的坐标。

5、半径是指本点与下一点之间圆弧的半径，直线时，输入999999即可，表示半径无穷大。

6、数据单位：米。

〔二〕断面数据的输入

1、从第一列开始，每三列为一组断面数据。

2、每组数据第一列〔1~4行〕为本断面的里程、內轨顶面高程、断面类型〔可不填〕、备注〔可不填〕。

3、每组数据第二、三列本断面的X,Y坐标，输入时一定按顺序输入，第一点不必重新输入。

〔三〕完成输入后保存并关闭excel文件。

三、隧道绘图

1、按‘绘制图形’键后，开始绘制隧道断面图。

2、图框局部是个图块，随意按实际要求编辑一个保存后，以后不必每次编辑。

四、断面数据形成表格数据

按‘图到数据’后即在excel文件中输出。

五、图形的的动态修改

1、直接在CAD图中移动修改所测点的位置至所需要的位置。

2、按‘图到数据’，这样把修改后的断面数据会返回excel表中，并且覆盖原来表中的数据。

3、按‘绘制图形’键后，重新绘制隧道断面图即可得到修改后的图形。

六、批量打印图形

按‘打印图形’后，即可批量打印。

七、AutoCadVBA的学习和探讨

本程序是AutoCadVBA在绘制隧道断面图中的一个简单应用，VBA是AutoCad，Excel办公软件和VB设计程序语言的完美结合，自定义AutoCad使其成为开发应用平台，如果我们工程技术人员把ExcelVBA，应用于测量试验等计算、工程制图方面〔AutoCadVBA〕，它将成百倍地减少我们的工作强度，大大增加工作效率。本程序在西溪河水电工程，北天山隧道工程的施工中使用并得到验证，我相信：AutoCadVBA，ExcelVBA将在工程领域得到更加广泛的应用。

本程序在AUTOCAD2007版本和EXCEL2003中编制并正常运行，如有疑问或好的建议，请及时与本人联系：E-mail：jcglj.ji@vip.sinaQQ：437370491