Eckkoordinaten von Themen ermitteln mit ArcView 3

So'n Mist, schon wieder falsches Forum ;o)

Also, das kannst du z.B. mit dem folgenden Avenue-Code machen. Er schreibt dir die Ausdehnungs-Eckkoordinaten des ersten aktiven Themas in eine Reportbox:

theActThm = av.GetActiveDoc.GetActiveThemes.Get(0)
theActThmExt = theActThm.ReturnExtent

theBott = theActThmExt.GetBottom.SetFormat("d.dddd")
theTop = theActThmExt.GetTop.SetFormat("d.dddd")
theLeft = theActThmExt.GetLeft.SetFormat("d.dddd")
theRight = theActThmExt.GetRight.SetFormat("d.dddd")

MsgBox.Report(""+nl+
"XMin = "+theLeft.AsString+nl+
"XMax = "+theRight.AsString+nl+
"YMin = "+theBott.AsString+nl+
"YMax = "+theTop.AsString,
"Extent-Coordinates of"++theActThm.GetName)

Hello again (vom Zweitplatzierten),

alternativ kannst auch folgende Varianten ausprobieren:

Calculator:
[Shape].ReturnExtent.GetTop etc.

Script:

Msgbox.Info("Oberer Rand: " + av.GetActiveDoc.GetActiveThemes.Get(0).ReturnExtent.GetTop.AsString, "Oben")
Msgbox.Info("Linker Rand: " + av.GetActiveDoc.GetActiveThemes.Get(0).ReturnExtent.GetLeft.AsString, "Links")
Msgbox.Info("Rechter Rand: " + av.GetActiveDoc.GetActiveThemes.Get(0).ReturnExtent.GetRight.AsString, "Rechts")
Msgbox.Info("Unterer Rand: " + av.GetActiveDoc.GetActiveThemes.Get(0).ReturnExtent.GetBottom.AsString , "Unten")

Schoene Gruesse

Uwe