资源描述：
《基于VBA路基土方工程量计算探析.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、基于VBA路基土方工程量计算探析［摘要］本文以断面法土方工程量计算实例，介绍使用VBA开发Excel工程量计算、AutoCAD绘制断面图程序的主要技术与方法。［关键词］:横断面面积；Excel；CAD；VBA在道路工程施工和监理过程中，经常需要河塘清淤、路基土方开挖和回填工程量的计算审核，工程量计算审核工作量大、耗时多、容易出错、甚至经常发生争议。基于VBAExcel开发的工程量计算和AutoCAD绘图程序，具有简便、髙效、通用、修改方便的特点。本文以断面法土方工程量计算实例,介绍利用VBA编程建立Excel2
2、003与AutoCAD2006的通信,实现数据交换，快速计算工程量绘制断面图的方法。1线路横断面测量线路横断面测量是在各中线桩处测定垂直于中线方向的地面起伏，然后绘成横断面图，是横断面设计、土石方工程量计算和施工时确定断面填挖边界的依据。中桩的地面高程测量完成后，用全站仪、经纬仪、水准仪皮尺法分别测出横断面各特征点的平距（中线前进方向左侧为”，右侧为“+”）和高程。2横断面面积计算2.1坐标法断面积计算方法2.2设计线和原地面线的交点计算方法如图2所示，直线CD与直线AB相交于P点，则P点的坐标方程为：解上述方
3、程得XP公式为：根据上述方程可以计算交点距离、高程。3VBA应用软件简介VisualBasicforApplications（简称VBA）是新一代标准宏语言，是基于VisualBasicforWindows发展而来的。VBA易于学习掌握，可以使用宏记录器记录用户的各种操作并将其转换为VBA程序代码，有助于使工作自动化，提高工作效率。VBA可以直接应用Excel.AutoCAD为平台，开发应用程序。4基于ExcelVBA的横断面积计算程序4.1设计计算表新建一个Excel工作薄，在工作表、Sheet3中分别按照图
4、4、图3设计面积计算表和设计线和原地面线的交点计算表。4.2编辑计算程序从Excel菜单中，选择［工具］f［宏］f［VisualBasic编辑器］，或者按快捷键Alt+Fll进入VisualBasicEdirtoro从编辑器菜单中，选择［插入］f［模块］在［模块1］中写入下列设计线和原地面线的交点计算、横断面积计算程序。PublicSub交点计算()Dimx(4),y(4),Xp(2),Yp(2),k(2,2)AsDoubleWithSheet3DoWhile.Cells(j*3+3,3)““Forn=lTo2
5、Fori二1To4x(i)二.Cells(j*3+3,(n-l)*4+i+2)y(i)=.Cells(j*3+4,(n~l)*4+i+2)Nextik(n,l)=(y(2)-y(1))/(x⑵-x(l))k(n,2)=(y(3)-y(4))/(x(3)-x(4))Xp(n)=(k(n,l)*x(l)-k(n,2)*x(4)+y(4)-y(l))/(k(n,l)-k(n,2))Yp(n)=y(l)+k(n,l)*(Xp(n)-x(l)).Cells(j*3+3,10+n)=Xp(n):.Cells(j*3+4,1
6、0+n)-Yp(n)Nextnj二j+1LoopEndWithEndSubPublicSub面积计算2()Dimx(20),y(20),SAsDoubleWithSheet2DoWhile.Cells(J*3+4,3)““i=3：S=0Dox(i)=Cells(J*3+3,i)：y(i)=Cells(J*3+4,i)x(i+l)=.Cells(J*3+3,i+1):y(i+l)=.Cells(J*3+4,i+l)If.Cells(J*3+4,i+l)=““Thenx(i+l)=Cells(J*3+3,3)：y(
7、i+l)二・Cells仃*3+4,3)S=(y(i+l)+y(i))*(x(i+l)-x(i))/2+SExitDoEndIfS二(y(i+l)+y(i))*(x(i+l)-x(i))/2+S:i=i+lLoop.Cells(J*3+2,15)二Abs(S):J二J+lLoopEndWithEndSub5基于AutoCadVBA的横断面绘图程序从编辑器菜单中，选择［工具］-［引用］,在［可使用的引用］里勾选AutoCad2006TypeLibrary，点［确定］离开，在“模块1”中写入下列横断面绘图程序。Sub
8、CAD绘制断面图()OnErrorResumeNextDimacadAppAsAcadApplicationSetacadApp二GetObject(，”AutoCAD.Application”)IfErrThenErr.ClearSetacadApp=CreateObject("AutoCAD.Appliestion”)EndIf
