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.
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.