0

Openlayers 形式で配置された Web サービス座標から取得しますか??

座標は(オランダで)次のようになります。

    X = 217382.52712700056
    Y = 576653.00667405012

5.34343、51.34356 のような経度/緯度 (10 進形式) に変換したいと思います。

Spherical Mercator Meters 形式だと思いました。そして、この式を使用して変換しました。しかし、結果は意味がありません。

Dim mercX As Double = 217382.52712700056
Dim mercY As Double = 576653.00667405012
Dim rMajor As Integer = 6378137
Dim shift As Double = Math.PI * rMajor
Dim lon As Double = mercX / shift * 180.0
Dim lat As Double = mercY / shift * 180.0
lat = 180 / Math.PI * (2 * Math.Atan(Math.Exp(lat * Math.PI / 180.0)) - Math.PI / 2.0)

うまくいけば、誰かが私をさらに助けてくれます....

4

1 に答える 1