Hallo, wie kann man bei 8.3 auf eine Koordinate zommen/eine Koordinate anfahren - braucht man da ein Tool, eine Erweiterung wie es die für 3.x gab?
Für Infos oder Download-Links wäre ich dankbar.
S. Möllers
Für Infos oder Download-Links wäre ich dankbar.
S. Möllers
- Anmelden oder Registieren, um Kommentare verfassen zu können
Gespeichert von uwelangehh am Mi., 27.07.2005 - 14:16
Permalinkmit ArcObjects geht das wie folgt:
Private Sub cmdZoom2XY()
Dim pEnvelope As IEnvelope
Dim pMap As IMap
Dim pMxDoc As IMxDocument
Dim dblX As Double
Dim dblY As Double
Dim dblAbstand As Double
Set pEnvelope = New Envelope
dblAbstand = InputBox("Breite des Ausschnittes:", "Ausdehnung")
dblX = InputBox("X-Koordinate:", "Eingabe X")
dblY = InputBox("Y-Koordinate:", "Eingabe Y")
pEnvelope.XMin = dblX - dblAbstand / 2
pEnvelope.XMax = dblX + dblAbstand / 2
pEnvelope.YMin = dblY - dblAbstand / 2
pEnvelope.YMax = dblY + dblAbstand / 2
Set pMxDoc = ThisDocument
pMxDoc.ActiveView.Extent = pEnvelope
pMxDoc.ActiveView.Refresh
End Sub
Gruß
Uwe
http://www.lange-is.de/arcview_forum