基于VBA路基土方工程量计算的探讨

1、基于VBA路基土方工程量计算的探讨摘要本文以断面法土方工程量计算实例，介绍使用vba 开发excel 工程量计算、autocad绘制断面图程序的主要技术与方法。关键词：横断面面积；excel；cad ;vba在道路工程施工和监理过程中，经常需要河塘清淤、路基土方开挖和回填工程量的计算审核，工程量计算审核工作量大、耗时多、容易出错、甚至经常发生争议。基于vba excel 开发的工程量计算和autocad绘图程序，具有简便、高效、通用、修改方便的特点。本文以断面法土方工程量计算实例，介绍利用vba编程建立excel2003与autocad2006的通信，实现数据交换，快速计算工程量绘制断面图的方

2、法。1 线路横断面测量线路横断面测量是在各中线桩处测定垂直于中线方向的地面起伏，然后绘成横断面图，是横断面设计、土石方工程量计算和施工时确定断面填挖边界的依据。中桩的地面高程测量完成后，用全站仪、经纬仪、水准仪皮尺法分别测出横断面各特征点的平距（中线前进方向左侧为“-”,右侧为 “+”）和高程。2横断面面积计算2.1 坐标法断面积计算方法如图1，已知断面图上各转点坐标（xi,yi）则断面面积为：2.2设计线和原地面线的交点计算方法如图2所示，直线cd与直线ab相交于p点，则p点的坐标方程为：解上述方程得xp公式为:根据上述方程可以计算交点距离、高程。3 vba应用软件简介visual basi

3、c for applications（简称vba）是新一代标准宏语言，是基于visual basic for windows 发展而来的。vba 易于学习掌握，可以使用宏记录器记录用户的各种操作并将其转换为vba 程序代码，有助于使工作自动化，提高工作效率。vba 可以直接应用excel、autocad为平台，开发应用程序。4 基于excel vba的横断面积计算程序4.1设计计算表新建一个excel工作薄，在工作表、sheet3中分别按照图4、图3设计面积计算表和设计线和原地面线的交点计算表。4.2编辑计算程序从excel菜单中，选择工具宏visual basic 编辑器，或者按快捷键alt

4、+f11进入visual basic edirtor。从编辑器菜单中，选择插入模块在模块1中写入下列设计线和原地面线的交点计算、横断面积计算程序。public sub 交点计算()dim x(4),y(4),xp(2),yp(2),k(2,2) as doublewith sheet3do while .cells(j*3+3,3) “i=3: s=0dox(i)=.cells(j*3+3, i): y(i)=.cells(j*3+4, i)x(i+1)=.cells(j*3+3, i+1):y(i+1)=.cells(j*3+4, i+1)if .cells(j*3+4, i+1)=“ th

5、enx(i+1)=.cells(j*3+3, 3): y(i+1)=.cells(j*3+4,3)s=(y(i+1)+y(i)*(x(i+1) - x(i)/2+sexit doend ifs=(y(i+1)+y(i)*(x(i+1)-x(i)/2+s : i=i+1loop.cells(j*3+2, 15)=abs(s) : j=j+1loopend withend sub5 基于autocad vba的横断面绘图程序从编辑器菜单中，选择工具引用，在可使用的引用里勾选autocad2006 type library，点确定离开，在“模块1”中写入下列横断面绘图程序。sub cad绘制断面图(

6、)on error resume nextdim acadapp as acadapplicationset acadapp=getobject(,”autocad.application”)if err thenerr.clearset acadapp=createobject(“autocad.application”)end ifdim acaddoc as acaddocumentset acaddoc=acadapp.activedocumentdim lineobj as acadlinedim startpoint(2)，endpoint(2) as doubledim pt(0

7、 to 2) as doubledim textobj as acadtextwith sheet1do while .cells(j*3+3,3) “宏”“宏”命令（或者按alt+f8），在宏名框中键入加载的函数名。本程序需要 microsoft excel 2003和 autocad 2006运行环境，运行文件前要在excel里通过单击菜单工具宏安全性，进入“安全性”对话框，把安全性级别调整为“中”以下，启动宏。6应用实例某路基横断面设计槽底宽为210m，挖方边坡为1:1，中桩设计高程为7.7 m，横坡为2%，原地面测量记录见下表。横断面原地面测量记录把表1前两点、后两点以及左右两侧设计边坡设计线输入图3所示的sheet3中，运行“交点计算”程序，计算出左右开挖分界点；把分界点替换表1中的第1点和最后一点，和设计线一起输入到图3所示的中，程序运行后生成的成果见图5。 结论和展望笔者利用vba 开发出的excel 的工程量计算程序，在工程应用上发挥了很好的作用，尤其在复杂的工程量计算的数据处理等方面，充分体现了现代工程量计算的实时、动态和可视化等要求，为我们的工作带来了方便。此计算方法对excel软件实用技术在建设工程中的全面应用与推广也具有一定的积极意义。参考文献1microsoft