|
阅读：3955回复：6
[原创]MO中WGS84转BJ54的方法
<P>Public pcsCS As New MapObjects2.ProjCoordSys '投影坐标系
Public gcsGeo As New MapObjects2.GeoCoordSys '地图坐标系</P> <P> Private Sub WGS2BJ54(mapDest As MapObjects2.map, L0 As Double) 'mapDest 地图控件名 'L0 转换区某点的经度 Dim n As Long, nProj As Long n = CInt(L0 / 6) + 1 nProj = CInt("214" + CStr(n)) ProjCS.Type = nProj ' moProjCS_Beijing1954GK_18 '投影带号计算 n=[L/6]+1 如：某点测得经度为103.XXXX，故n=[103.X/6]+1=17+1=18 gcsGeo.Type = moGeoCS_Krasovsky1940 mapDest.CoordinateSystem = ProjCS End Sub</P> <P>调用方法：</P> <P>Call WGS2BJ54(mapDisp, 103.345)</P> |
|
|
|
1楼#
发布于：2005-05-14 11:22
转换精度如何？
|
|
|
2楼#
发布于：2005-09-22 11:05
<img src="images/post/smile/dvbbs/em08.gif" />
|
|
|
3楼#
发布于：2005-10-15 17:17
<img src="images/post/smile/dvbbs/em03.gif" />
|
|
|
4楼#
发布于：2005-12-06 15:59
今天教员刚讲过的东西又在网上见到了,顶顶顶!!!!!!!!!
|
|
|
|
5楼#
发布于：2005-12-13 18:59
是偶自己写滴代码
|
|
|
|
6楼#
发布于：2006-01-10 17:58
<P>肯定有偏差</P>
|
|
|