Excel VBA在曲线放样数据计算中的应用  

Application of Excel VBA in Data Calculation of Curve Lofting

作　　者：陈月[1] 

机构地区：[1]长沙理工大学交通运输工程学院,湖南长沙410004

出　　处：《地矿测绘》2017年第1期18-20,27,共4页Surveying and Mapping of Geology and Mineral Resources

摘　　要：基于偏角法的曲线放样数据计算繁琐,且传统的手算方法易受人为因素的影响。为提高放样数据计算的效率及准确率,提出一种基于Excel VBA编程的计算方法。利用该方法能实现圆曲线、缓和曲线上整桩里程坐标、曲线点间距及偏角值的自动计算,为曲线放样提供数据。通过对圆曲线及缓和曲线进行实验,结果表明,利用所编程序可以快速准确的得到数据,在生产实践中具有一定的实用价值。Based on the method of deflection angle in the curve lofting data calculation is complicated, and the tradi-tional hand calculation method is error prone by man-made factors,in order to improve the efficiency and accuracy of the loft data calculation, this paper presents a calculation method based on Excel VBA programming. This paper has achieved automatic calculation of the whole pile mileage coordinates, curve point spacing and deflection angle value in the circular curve and easement curve, and can provide data for the curve lofting. In the end, the experiments of circular curve and easement curve are performed. The results show that we can fast and exact to get the data with this program,and it has a certain practical value in production practice.

关 键 词：曲线放样 Excel VBA 偏角法 圆曲线 缓和曲线 数据自动计算 

分 类 号：P208[天文地球—地图制图学与地理信息工程] P209[天文地球—测绘科学与技术]