Discussion :

[Naografix]

Bonjour

J'aimerais savoir si il existe une fonction ou un DLL permettant de faire des conversions de coordonnés.

Par exemple dans mon projet j'ai des coordonnés en Lambert93 que je dois convertir en coordonnés Géographique WGS84 (Longitude et Latitude)

Si quelqu'un a une solution je suis preneur !


Merci, en attente de vos réponse !


EDIT : RESOLU -> http://vtopo.free.fr/convers3.pdf

[Hyppolight]

Bonjour,

J'ai eu le même problème et je viens de réaliser une fonction .NET permettant de réaliser cette transformation.

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function L93_TO_WGS84(X_L93 As Double, Y_L93 As Double) As Object
 
	Dim c As Double = 11754255.426096 'constante de la projection
	Dim e As Double = 0.0818191910428158 'première excentricité de l'ellipsoïde
	Dim n As Double = 0.725607765053267 'exposant de la projection
	Dim xs As Double = 700000 'coordonnées en projection du pole
	Dim ys As Double = 12655612.049876 'coordonnées en projection du pole
 
	Dim a As Double = (Math.Log(c / (Math.Sqrt(Math.Pow((X_L93 - xs), 2) + Math.Pow((Y_L93 - ys), 2)))) / n)
 
	Dim LONGITUDE As Double = ((Math.Atan(-(X_L93 - xs) / (Y_L93 - ys))) / n + 3 / 180 * Math.PI) / Math.PI * 180
	Dim LATITUDE As Double = Math.Asin(Math.Tanh((Math.Log(c / Math.Sqrt(Math.Pow((X_L93 - xs), 2) + Math.Pow((Y_L93 - ys), 2))) / n) + e * ATanH(e * (Math.Tanh(a + e * ATanH(e * (Math.Tanh(a + e * ATanH(e * (Math.Tanh(a + e * ATanH(e * (Math.Tanh(a + e * ATanH(e * (Math.Tanh(a + e * ATanH(e * (Math.Tanh(a + e * ATanH(e * Math.Sin(1)))))))))))))))))))))) / Math.PI * 180
 
	Return {LATITUDE, LONGITUDE}
End Function

... utilisant la fonction arc tangent hyperbolique

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
' arc tangent hyperbolique
' erreur si value =0
Function ATanH(value As Double) As Double
	ATanH = Math.Log((1 / value + 1) / (1 / value - 1)) / 2
End Function

Utilisation de la commande depuis un point ptStart en Lambert93 (j'ai arrondi les valeurs à 6 chiffres après la virgule pour des questions de visuel)

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim X_L93 As Double = ptStart.X
Dim Y_L93 As Double = ptStart.Y
 
Dim LAT_LONG As Object = L93_TO_WGS84(X_L93, Y_L93)
 
Dim dLAT As Double = Math.Round(LAT_LONG(0), 6)
Dim dLONG As Double = Math.Round(LAT_LONG(1), 6)

J'espère que ce code pourra servir à d'autres

Hyppo'