ArcMap Bildmitte Koordinaten ermitteln

Gespeichert von gerhardH am
im Forum ArcGIS
Hallo
Hat wer schon mal die koordinaten vom angezeigten Bild ermittelt?
bin für jeden Tipp dankbar

Gespeichert von Maxilla am Di., 24.01.2012 - 16:17

Permalink
In VBA (auf einen Button gelegt) sollte folgendes funktionieren:

Public Sub UIButtonControl1_Click()

Dim pMxDoc As IMxDocument
Dim pActView As IActiveView

Set pMxDoc = ThisDocument
Set pActView = pMxDoc.FocusMap

With pActView.Extent
MsgBox "Zentrum: " & vbCrLf & (.XMin + .XMax) / 2 & vbCrLf & (.YMin + .YMax) / 2
Debug.Print "Centre is: "; (.XMin + .XMax) / 2; ","; (.YMin + .YMax) / 2
End With

End Sub