Create  Edit  Diff  FrontPage  Index  Search  Changes  History  Source  RSS  wikifarm  Login

pointObj.project

pointObj.project メソッド

説明

引数で与えれた座標から座標へ座標変換します

public int project(
   projectionObj projin,
   projectionObj projout
);
Public Function project(ByVal projin As projectionObj, ByVal projout As projectionObj) As Integer

サンプル

コード
Dim _map As mapObj = New mapObj("")
Dim _layer As New layerObj(_map)

Dim _proj1 As New projectionObj("init=epsg:4301")
Dim _proj2 As New projectionObj("init=epsg:4326")
Dim _pt5 As New pointObj(-125.948008, 46.735923, 0, 0)
Dim intRet As Integer

Debug.WriteLine("Ret,lon,lat:" & intRet.ToString & "," & _pt5.x.ToString & "," & _pt5.y.ToString)
intRet = _pt5.project(_proj1, _proj2)
Debug.WriteLine("Ret,lon,lat:" & intRet.ToString & "," & _pt5.x.ToString & "," & _pt5.y.ToString)

→結果
Ret,lon,lat:0,-125.948008,46.735923
Ret,lon,lat:0,-125.948008,46.7365202332448
マップファイル

影響なし

参照

pointObj メンバ | (global) 名前空間

Last modified:2007/11/13 15:03:15
Keyword(s):
References:[pointObj メンバ]