Lecture d'un shapefile ESRI

Version imprimable

24/03/2008, 19h24
rikidude

Lecture d'un shapefile ESRI

Bonjour,

J'essais de développer une petite application qui fais la lecture des fichiers ShapeFile d'ESRI. (.shp, .dbf et .shx)

Dans mon état d'avancement je suis rendu à l'affichage des points. Par programmation je lance cette fonction pour ajouter le point:

l_obj_graphicPath.AddEllipse(l_obj_coordinates.X, l_obj_coordinates.Y, 5, 5)

Voilà le problème: mes coordonnées X et Y sont en LAT/LON ou p-e même en mètres. Comment je fais pour mettre cela à l'échelle dans mon contrôle de type PANEL ou PICTUREBOX. Par exemple mon premier point est (226483,5371490) Ou est-ce qu'il apparaitra dans mon application?

Merci beaucoup.

TEST 1

Selon le lien suivant: http://www.codeproject.com/KB/dotnet/Calibrator.aspx

J'ai fais quelque chose du genre. Pour le moment, je n'obtiens pas le résultat souhaité

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        Private Sub setTransformParameters()
            DeltaX = (MaxLon - MinLon) / (DisplayPanel.Width)
            DeltaY = (MinLat - MaxLat) / (DisplayPanel.Height)
            Lat0 = MaxLat * DeltaY
            Lon0 = MinLon * DeltaX
        End Sub
 
        Public Function LatLongtoXY(ByVal Lat As Double, ByVal Lon As Double) As Point
            Dim X As Double = (Lon - Lon0) / DeltaX
            Dim Y As Double = (Lat - Lat0) / DeltaY
            Dim pnt As Point = New Point(X, Y)
 
            Return pnt
        End Function

26/03/2008, 09h44
Poulain

En fait, normalement pour remettre à l'echelle, il faut tout simplement faie un produit en croix ;)

Voilà

Voila la solution:

Code:

1
2
3
4
5
6
7
        Private Function LatLongtoXY(ByVal p_bln_lon As Double, ByVal p_bln_lat As Double) As Point
            Dim l_dbl_x As Double = 0 + (p_bln_lon - MinLon) * (DisplayPanel.Width / (MaxLon - MinLon))
            Dim l_dbl_y As Double = 0 - (p_bln_lat - MaxLat) * (DisplayPanel.Height / (MaxLat - MinLat))
            Dim l_obj_point As Point = New Point(l_dbl_x, l_dbl_y)
 
            Return l_obj_point
        End Function