[原创]MO中WGS84转BJ54的方法

Public pcsCS As New MapObjects2.ProjCoordSys   '投影坐标系 Public gcsGeo As New MapObjects2.GeoCoordSys    '地图坐标系

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

调用方法：

Call WGS2BJ54(mapDisp, 103.345)

肯定有偏差