Cómo calcular el área de un polígono en ArcMap

Después de crear un gráfico de polígonos en ArcMap --- que es la interfaz gráfica de usuario en el paquete de software de sistema de información geográfica de ESRI, ArcGIS --- puede que tenga que calcular el área del objeto. Para ello, tendrá que utilizar las herramientas de ArcMap para crear un botón especial de control. Después de haber creado el botón, podrás utilizarlo ahora o en cualquier momento en el futuro para calcular el área de cualquier polígono en su documento de ArcGIS.

Instrucciones

1 ArcGIS abiertos y luego iniciar ArcMap.

2 Seleccione el menú "Herramientas" y luego haga clic en el botón "Personalizar".

3 Haga clic en la pestaña "comandos" de la caja "Personalizar" y luego seleccione "UIControls" del cuadro de lista "Categorías" que aparece en la pantalla.

4 Elija la opción "Normal". Esto agregará el botón para todos los archivos de ArcGIS actuales y futuras, lo que significa que usted no tiene que crear de nuevo.

5 Presione el botón "Nuevo UIControl" y luego seleccionar la opción "Crear".

6 Arrastre el UIButtonControl recién creada a una barra de herramientas. Escoja un lugar que sea conveniente barra de herramientas, para que tenga fácil acceso a ella.

7 Cierre el cuadro de diálogo "Preferencias" para salir del cuadro "Personalizar".

8 Haga clic con el UIButtonControl que ha realizado y seleccione la opción "Ver código fuente".

9 Escribe o copia y pega el siguiente código en la "fuente" de la UIButtonControl:

Dim Papp Como IApplication

Establecer Papp = Aplicación

pDoc tenue Como IMxDocument

Establecer pDoc = ThisDocument

Dim PAV Como IActiveView

Establecer PAV = pDoc.ActiveView

Dim PGC Como IGraphicsContainerSelect

Establecer PGC = pAv.GraphicsContainer

Si pGc.ElementSelectionCount = 0 Entonces

MsgBox "Por favor, seleccione un elemento gráfico"

Exit Sub

Terminara si

Dim Pélem Como IElement

Si pGc.ElementSelectionCount> 1 Entonces

MsgBox "Sólo un elemento se puede seleccionar"

Exit Sub

Terminara si

Dim pPoly Como IPolygon

Dim Parea Como IArea

Establecer Pélem = pGc.SelectedElement (0)

Si TypeOf pElem.Geometry Es IPolygon Entonces

Parea establecer = pElem.Geometry

pApp.StatusBar.Message (0) = "Área Elemento:" & pArea.Area

MsgBox "Área Elemento:" & pArea.Area

Terminara si

10 Seleccionar un polígono que se quiere medir y pulse el UIButtonControl que ha creado. El área aparecerá en la barra de estado, así como en un cuadro de mensaje emergente.