Capturar coordenadas de mapa con un clic del ratón utilizando ArcObjects SDK for the Microsoft .NET Framework

Resumen

No hay ninguna herramienta que devuelva las coordenadas de una ubicación específica en un mapa haciendo clic con el ratón. ArcObjects SDK for the Microsoft .NET Framework se puede utilizar para ampliar la funcionalidad de ArcMap, donde se crea una nueva barra de herramientas para devolver las coordenadas precisas en un mapa utilizando la funcionalidad Extender ArcObjects y modificando el evento OnMouseDown.

Este artículo proporciona pasos para capturar coordenadas de mapa con un clic del ratón en ArcMap mediante ArcObjects SDK for the Microsoft .NET Framework.

Procedimiento

1. Cree una barra de herramientas personalizada mediante Microsoft Visual Studio con Visual Basic. Consulte la información proporcionada en Guía: Crear una herramienta personalizada (ArcObjects .NET 10.8 SDK). Siga estos pasos hasta "Eliminar el archivo class1".
2. Cree la barra de herramientas para utilizar en ArcMap. Haga clic con el botón derecho en el archivo de proyecto y haga clic en Agregar > Nuevo elemento para abrir la ventana Agregar nuevo elemento.
3. En la ventana Agregar nuevo elemento, expanda ArcGIS > Extender ArcObjects y seleccione Barra de herramientas base. Modifique el nombre de la barra de herramientas como desee y haga clic en Agregar.
4. En el mismo archivo de proyecto, agregue otro elemento nuevo.
5. En la ventana Agregar nuevo elemento, expanda ArcGIS > Extender ArcObjects y seleccione Herramienta base.
6. Asigne al elemento el nombre GetCoordinate.vb y haga clic en Agregar.
7. Seleccione Herramienta de ArcMap Desktop cuando aparezca la ventana Opciones del asistente del nuevo elemento de ArcGIS.
8. Cuando se agregue el nuevo elemento, agregue el siguiente script al archivo .vb creado en el paso 3 en la clase Public Sub New():

Public Sub New() 'TODO: Defina aquí la barra de herramientas agregando elementos AddItem("<Project_Name>.GetCoordinate") End Sub

Nota: Para cambiar el nombre de la barra de herramientas que se va a mostrar en ArcMap, edite el método Public Overrides ReadOnly Property Caption() de la siguiente manera: Public Overrides ReadOnly Property Caption() As String Get 'TODO: Sustituya el título de la barra Return "<Toolbar_Name>" End Get End Property

9. En el archivo de script GetCoordinate.vb, agregue el siguiente fragmento de código en el método Public Overrides Sub OnMouseDown():

Public Overrides Sub OnMouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Integer, ByVal Y As Integer)     Dim pMxDoc As IMxDocument = m_application.Document     Dim pPoint As IPoint = pMxDoc.ActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(X, Y)     MsgBox("Map X: " & pPoint.X & vbCrLf & "Map Y: " & pPoint.Y) End Sub

Nota: En algunos casos, la variable IPoint requiere la referencia a la biblioteca Esri.ArcGIS.Geometry. Para agregar la referencia, haga clic con el botón derecho en Referencia en el panel Explorador de soluciones y haga clic en Agregar referencia. Busque Esri.ArcGIS.Geometry y active la casilla de verificación.

10. Cree la solución pulsando CTRL+Mayús+B.
11. Abra ArcMap.
12. Haga clic en Personalizar > Barra de herramientas. La barra de herramientas creada está disponible en la selección. La herramienta devuelve la coordenada de la ubicación en el mapa haciendo clic en el cursor en el punto deseado del mapa.