Excel VBA在导线近似平差计算中的应用.pdfVIP

· 31 · 地矿测绘 2015，31(2)：31—34 CN53一l124／TD ISSN 1oo7—9394 SurveyingandMappingofGeologyandMineralResources ExcelVBA在导线近似平差计算中的应用 刘 科 ，廖中平 ，余泽彬 (1．道路灾变防治及交通安全教育部工程研究中心，湖南 长沙 410004；2．长沙理工大学 交通运输工程学院，湖南 长沙 410004) 摘要：传统导线平差计算过程繁琐，且易受人为因素影响。利用ExcelVBA编程进行导线 自动平差计算，平差结果包括自动生 成的CASS展点文件和平差报告。当观测数据存在粗差，可进行一个转角或一条导线边粗差的自动查找。以闭合导线平差计算为 例，本程序可快速检查数据且计算出未知点坐标。 关键词：导线平差；ExcelVBA；数据检查；CASS 中图分类号：P221．4 文献标识码：B 文章编号：1007—9394(2015)02—0031一o4 ApplicationofExcelVBAinApproximateAdjustmentofTraverse LIU Ke ，LIAO Zhong．ping ，YU Ze—bin (1．EngineeringResearchCenterofCatastrophicProphylaxisandTreatmentofRoadTrafficSafety，ll~nistryofEducation，ChangshaHunan410004， China；2_SchoolofrrqCficandTransportationEngineering，ChangshaUniversityofScienceandTechnology，ChangshaHunan410004，hCina) Abstract：Theprocessoftraditionaladjustmentcalculationoftraversesurveyisnotonlytedious，butalsoeasytobe influencedbyhumanfactors．WecanutilizethedevelopmenttoolsVBA intheExceltoprogram tofinishtheprocessauto- matically．TheadjustmentresultsincludethefileofpointsforCASSandtherepoa．Whentheobserveddataincludesthe rgosserlY)rs，theprorgam canbeappliedtofindoutthemistakeontheconditionthatonlyoIIeangleorsidecontainsrgoss error．Bytakingtheadjustmentcalculationofclosedtraverseofranexample，wecanrapidlycheckthedataandcancal— culatethecoordinateofunknownpointsbyusingtheprorgam． Keywords：traverseaajustment；ExcelVBA；datacheck；CASS 需选择导线类型和输入未知点个数，程序就会 自动生成相应的 O 弓l言 导线平差计算表格 。 导线内业平差是工程勘测中常见的一项数据处理工作 ，一 表格的自动生成主要调用 ExcelVBA 中常用的几个函数， 般测绘人员借助科学计算器按相应的导线平差计算表格进行分 如单元格选定函数 cell、单元格合并函数 merge、边框加粗函数 步计算 ，过程较繁琐。当测区面积较大 ，待计算导线数较多时， border等Is]。 计算量就成倍增加。