Come calcolare l'area di un poligono in ArcMap

October 17

Dopo aver creato un grafico poligonale in ArcMap --- che è l'interfaccia utente grafica in suite software di sistema di informazione geografica di ESRI, ArcGIS --- potrebbe essere necessario calcolare l'area dell'oggetto. Per fare questo, è necessario utilizzare gli strumenti di ArcMap per creare un apposito pulsante di controllo. Dopo aver creato il pulsante, sarete in grado di utilizzare subito o in qualsiasi momento in futuro per calcolare l'area di un poligono nel documento ArcGIS.

istruzione

1 ArcGIS aperte e quindi avviare ArcMap.

2 Selezionare il menu "Strumenti" e quindi fare clic sul pulsante "Personalizza".

3 Fare clic sulla scheda "Comandi" dal dialogo "Impostazioni", quindi selezionare "UIControls" dalla casella di riepilogo "Categorie" che appare sullo schermo.

4 Scegliere l'opzione "Normale". Questo aggiungerà il pulsante per tutti i file di ArcGIS attuali e future, il che significa che non c'è bisogno di creare di nuovo.

5 Premere il pulsante "Nuovo UIControl" e quindi selezionare l'opzione "Crea".

6 Trascinare il UIButtonControl appena creato una barra degli strumenti. Scegliere una posizione della barra degli strumenti che è conveniente, in modo da avere facile accesso ad essa.

7 Chiudere il "Personalizza" finestra di dialogo per uscire dal dialogo "Impostazioni".

8 Fare clic con il UIButtonControl che hai fatto e selezionare l'opzione "View Source".

9 Digitare o copiare e incollare il seguente codice sorgente in "Source" del UIButtonControl:

Dim Papp Come IApplication

Set PAPP = Application

pDoc fioco come IMxDocument

Set pDoc = ThisDocument

Dim Pav Come IActiveView

Set PAV = pDoc.ActiveView

Dim PGC Come IGraphicsContainerSelect

Set PGC = pAv.GraphicsContainer

Se pGc.ElementSelectionCount = 0 Then

MsgBox "Si prega di selezionare un elemento grafico"

Exit Sub

Finisci se

Dim Pelem Come IElement

Se pGc.ElementSelectionCount> 1 Poi

MsgBox "Un solo elemento può essere selezionato"

Exit Sub

Finisci se

Dim pPoly Come IPolygon

Dim Parea Come IArea

Set Pelem = pGc.SelectedElement (0)

Se TypeOf pElem.Geometry è IPolygon Poi

Set Parea = pElem.Geometry

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

MsgBox "Elemento Area:" & pArea.Area

Finisci se

10 Selezionare un poligono che si desidera misurare e quindi premere il UIButtonControl che si è creato. L'area verrà visualizzata nella barra di stato, oltre che in una finestra di messaggio pop-up.