[原创]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>

是偶自己写滴代码