利用VB编程调用Excel进行精密测距气象改正

Accuracy ranging meteorological correction by VB programming calling Excel

针对精度要求很高的精密测距,需要根据外界气象条件(温度、气压)对测距结果进行气象改正计算,但传统方法不方便、易出错,且不能生成电子文档保存。以徕卡系列全站仪为例,依据光电测距规范要求,结合实际观测情况,以VB6.0为编程语言、Excel电子表格为数据存储载体,编程进行精密测距的气象改正计算,生成了测边手薄和便于计算的测距数据。主要介绍了程序的数据处理流程和计算代码,可供测量人员参考。

For high required accuracy ranging,the ranging results need to be corrected according to meteorological conditions（temperature and air pressure）.However,conventional method is not convenient,error-prone and can not obtain electronic document for preservation.Taking the Leica series of total station as an example and according to EDM code and practical condition,we choose VB6.0 as programming language and Excel as storage carrier to realize the meteorological correcting for accuracy ranging.Trilateration hand book and the calculation-convenient ranging results are obtained.We mainly introduce data processing and calculation code to provide reference for survey engineers.