Eckkoordinaten von Themen ermitteln

Hallo Gast,

moechtest du die Koordinaten mit dem Calculator berechnen? Dann findest du auf der Website:

[url=http://www.ian-ko.com
]http://www.ian-ko.com
[/url]

unter EasyCalculate die Formeln shape_Get_X_Min.cal etc.

Folgende einfache VBA-Prozedur koennte es in deinem Fall auch tun:

Public Sub LayerExtent()

' Variablendeklaration
' ArcView-Objekte

Dim pMxDoc As IMxDocument
Dim pMap As IMap

Dim pLayer As ILayer
Dim pGeodataset As IGeoDataset

Dim pExtent As IEnvelope

' Das Dokument (*.mxd)
Set pMxDoc = ThisDocument

' Aktive Karte (Data frame oder Map)
Set pMap = pMxDoc.FocusMap

' Selektierter Layer
Set pLayer = pMxDoc.SelectedLayer

' Wurde ein Layer selektiert?
If pLayer Is Nothing Then
Exit Sub
End If

Set pGeodataset = pLayer
Set pExtent = pGeodataset.Extent

Msgbox strExtent & pLayer.Name & ":" & vbCrLf & _
"XMin: " & pExtent.xMin & vbCrLf & _
"XMax: " & pExtent.xMax & vbCrLf & _
"YMin: " & pExtent.yMin & vbCrLf & _
"YMax: " & pExtent.yMax

End Sub

Es ist hoffentlich kein Schreibfehler drin.

Gruss

Uwe