banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

#1 Tue 22 May 2012 13:01

hedda
Juste Inscrit !
Date d'inscription: 19 May 2012
Messages: 8

ArcGis 9.3 - Affichage des coordonnées de point en VBA

bonjour à tous
j'aimerai récupérer les coordonnés d'un point spécifié par l'utilisateur  sur écran par un Click , j'ai établi le code suivant:

Code:

Dim pMxDoc As IMxDocument
Dim pActiveView As IActiveView
Dim m_blnMouseDown As Boolean
Dim pPoint As IPoint
Set pMxDoc = ThisDocument
Set pActiveView = pMxDoc.FocusMap
Set pPoint = pActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(x, y)

MsgBox " the coordinate of point is :" & x & "   " & y

mais lorsque j'exécute le programme j'obtient des résultats éronnés , c'est des cordonnés dont l'origine est le point supérieur gauche de la fenêtre view de arcmap, je pense qu'il s'agit des coordonnées  de l'écran.
est ce qu'il ya moyen de les convertir en coordonnées géographiques , sachant que mes couches sont toutes géoréférenciées.
merci pour votre aide

Hors ligne

 

Pied de page des forums

Powered by FluxBB