ArcView: Zur Auswahl zoomen bei Beibehaltung des Massstabs

From GISWiki

'-----------------------------------------------------------------|
'| Zur Auswahl zoomen bei Beibehaltung des Massstabs              |
'|                                                                |
'| 11.04.2003, Heinz, h-j.luecking@t-online.de      |   
'|                                                                |
'-----------------------------------------------------------------|


theTable = av.GetActiveDoc
theTable.Select

theView = av.FindDoc("ViewName")
r = Rect.MakeEmpty
for each t in theView.GetActiveThemes
  if (t.CanSelect) then
    r = r.UnionWith(t.GetSelectedExtent)
  end
end
if (r.IsEmpty) then
  return nil
elseif ( r.ReturnSize = (0@0) ) then
  theView.GetDisplay.PanTo(r.ReturnOrigin)
else
  theView.GetDisplay.SetExtent(r.Scale(1.1))
end
theWindow = theTable.GetWin
theWindow.activate