用EXCEL进行道路横断土方计算和自动绘图的方法

本帖最后由 ddx_2002 于 2017-8-27 12:31 编辑作为公路市政施工单位经常要进行横断土方的计算和横断图的绘制，有没有什么快捷的方法能方便我们做这项工作呢，今天我就来说说用我们常见的EXCEL软件来进行这两项工作： EXCEL软件具有强大的计算功能和图表，根据横断面的几何关系，编辑相应的计算公式就可以对任意形式的横断面进行计算，举例如下：如图，已知A点平距X，高程Y，路面宽L，横坡i%，求B点的平距X1，高程Y1，根据数学几何关系可得：X1=X-L,Y1=Y-L*i%，该公式可以用来计算路面边部的点，但是显然这样编写公式的任务量是比较大的，所以可以把这个公式用VBA封装成一个函数，比如这个可以封装成“路面边缘（X,Y,L,i%）”，这个在单元格中使用起来就非常方便了，依此类推可以将各种复杂计算都封装成这种vba函数，然后就可以应对各种类型的横断面几何计算了

本帖最后由 ddx_2002 于 2017-8-27 12:31 编辑

作为公路市政施工单位经常要进行横断土方的计算和横断图的绘制，有没有什么快捷的方法能方便我们做这项工作呢，今天我就来说说用我们常见的EXCEL软件来进行这两项工作：

EXCEL软件具有强大的计算功能和图表，根据横断面的几何关系，编辑相应的计算公式就可以对任意形式的横断面进行计算，举例如下：

如图，已知A点平距X，高程Y，路面宽L，横坡i%，求B点的平距X1，高程Y1，根据数学几何关系可得：X1=X-L,Y1=Y-L*i%，该公式可以用来计算路面边部的点，但是显然这样编写公式的任务量是比较大的，所以可以把这个公式用VBA封装成一个函数，比如这个可以封装成“路面边缘（X,Y,L,i%）”，这个在单元格中使用起来就非常方便了，依此类推可以将各种复杂计算都封装成这种vba函数，然后就可以应对各种类型的横断面几何计算了

各点几何数据计算出来后就可以将数据变成绘图脚本CAD的SCRIPT脚本，比如面就可以写成line x,y x1,y1，然后复制到CAD中执行会出图形，但是这样的效率也是非常低，尤其是有大量的重复对象时，也需要利用VBA进行封装，按划线、标注文字等区分功能的封装好，然后在根据要绘制内容在EXCEL单元格中进行组合使用。在CAD中绘出图形后再用CAD面积查询Area命令得到填挖面积。