基于AutoCAD高斯投影换带程序实现.docVIP

基于AutoCAD高斯投影换带程序实现 　　 摘要:本文通过对AutoCAD图形dxf文件数据格式的分析，介绍了在AutoCAD系统中实现图形高斯投影换带及正反算的方法，同时也提供了直接在AutoCAD平台对坐标数据进行批量换带计算的思路。并利用visual basic语言编程实现了这些功能，可以简化相关测绘工作的流程，有效的提高工作效率，有较强的实用性。 　　关键词: AutoCAD；Dxf；高斯投影换带；高斯投影正算;高斯投影反算 　　Abstract: this article through to AutoCAD DXF file graphics data in the format of analysis, this paper introduces the realization of the system in AutoCAD graphics gaussian projection for belt and the method of positive and negative calculate, but also provide direct in AutoCAD platform for the coordinate data batch change to bring computing train of thought. And by using visual basic programming language realized the function, which can simplify the process of surveying and mapping work related, effectively improve the work efficiency, strong practicability. 　　Keywords: AutoCAD; Dxf; Gaussian projection for belt; Gaussian projection is calculate; Gaussian projection calculated 　　中图分类号：TU74文献标识码：A 文章编号： 　　 　　 　　目前，测绘空间原始数据大多数是在AutoCAD中形成；同时，工程设计人员也是利用AutoCAD数字地形图进行设计；在测量生产项目中，有些测区刚好处于投影带边缘，甚至有些工程横跨两个或两个以上投影带，如交通、水利、电力等较长的线路，为了坐标统一的需要，可以进行坐标换带，将相邻带的坐标换成同一系统的数据。但是AutoCAD却没有提供图形的投影换带功能，不能对图形进行投影换带处理。还需要将图形转换到其他GIS软件中进行换带处理，然后转换回AutoCAD中继续进行其他的工作。此过程中步骤繁琐，并且容易出错和丢失图形属性信息。 　　 笔者利用AutoCAD提供的二次开发平台，采用visual basic语言开发了基于AutoCAD的高斯投影换带程序，可直接对dwg图形和txt数据文件进行高斯投影正、反算和换带计算，将不同子午线的图形和坐标转换为我们所需要的图形和坐标，为我们的工程服务。 　　 　　一、高斯投影换带及坐标正反算 　　坐标换带有直接换带计算法和间接换带计算法两种，间接换带计算法就是根据??一带的平面坐标x1,y1和中央子午线的经度L1，按高斯-克吕格投影坐标反算公式求得大地坐标B、L，然后根据B,L和第二带的中央子午线经度L2，按高斯-克吕格投影坐标正算公式求得在第二带中的平面坐标x2、y2。由于在换带计算中，把椭球面上的大地坐标作为过渡坐标，因而称为间接换带法。这种方法理论上严密，精度高，而且通用性强，虽然计算量较大，但可用电子计算机计算来克服，已成为坐标换带中最基本的方法。 　　1.高斯投影反算即由已知点的高斯平面坐标(X，Y)计算其大地经纬度坐标(L，B)。 　　反算公式：B=Bf- NftgBfRf [D22 -(5+3Tf+Cf-9TfCf)D424 +(61+90Tf+45Tf2)D6720 ] 　　L=L0+1cosBf [D-(1+2Tf+Cf)D36 +(5+28Tf+6Cf+8TfCf+24Tf2)D5120 ] 　　核心程序如下： 　　Public Sub ZuoBiaoFanSuan( ) 　　If Combo1.Text = 北京54坐标系 Then 　　…… 　　Bf = Bradion + + (293622 + (2350 + 22 * tt) * tt) * tt) / 10000000000# * Sin(Bradion) * Cos(Bradion) 　　Nf = 63996