倾斜设计面的三角网法土方量计算 - Read.PDF

48 测绘信息与工程 　Journal of Geomatics Feb . 2009 ; 34 ( 1) 文章编号 (2009) 0 1004802 中图分类号 :P2 18 　　　文献标志码 :B 倾斜设计面的三角网法土方量计算 李向民 (广西建设职业技术学院土木工程系 ,南宁市秀灵路西一里 6 号 ,530003) 摘 　要 　利用了VBA for Auto CAD 编程工具 ,开发了基于 Auto CAD 的三角网法土方量计算软件 ,实现了填挖设 计面为水平面和倾斜面两种情况下的土方量计算 。 关键词 　VBA ;倾斜设计面 ;三角网;土方量计算 　　在根据数字高程模型 D EM 计算土方量时 ,对地形复杂 点时则输入第 1 点至该点的设计坡度 i1 , 指定第 3 点时输入 的场地来说 ,三角网法是精度最高的方法[ 1] 。因其没有表示 该点与第 1 、2 点连线的垂线方向的坡度 i2 , 然后计算得到 2 、3 各三角形的面积和填挖高度等数据 ,不便于了解计算过程和 点的设计高程 z 2 、z 3 。其中第 2 点的设计高程算式为 : 进行检查复核 。为此利用 Auto CAD 的 VBA , 开发了根据 z = z + i [ ( x - x ) 2 + ( y - y ) 2 ] 1/ 2 2 1 1 2 1 2 1 Auto CAD 图上已有三角网进行土方量计算的软件 , 既能计 第 3 点的设计高程算式为 : 算倾斜设计面的土方量 ,又能显示详细的过程数据 。 r = [ x 1 ( y 2 - y 3) - x 2 (y 1 - y 3) + x 3 ( y 1 - y 2) ] / [ ( x 2 - x 1) 2 + ( y 2 - y 1) 2 ] 1 　图上三角网的读取 x = x 3 + r ( y 2 - y 1) 　y = y 3 + r ( x 1 - x 2) z = z + i [ ( x - x) 2 + ( y - y) 2 ] 1/ 2 + 在 Auto CAD 图上 , 不规则三角网一般用三维多义线 3 1 1 1 1 ( ) i [ ( x - x) 2 + ( y - y) 2 ] 1/ 2 AcDb3dPolyline 绘制 ,每个顶点有位置属性 , 即平面坐标 2 3 3 x 、y 和高程 z 。 多数情况下地面高程大于 1 m ,而坡度为绝对值小于 1 的小 读取三角网时 ,先用 Get Entit y Entobj 方法在图上选择 数 ,因此程序根据输入数据的绝对值是否小于 1 判断输入高 一个三角