ArcView: Zur Auswahl zoomen bei Beibehaltung des Massstabs: Unterschied zwischen den Versionen

GISWiki - Das freie Portal für Geoinformatik (GIS)
Wechseln zu: Navigation, Suche
 
Zeile 32: Zeile 32:
  
  
[[Kategorie:ArcView 3.x]]
+
[[Kategorie:ArcView]]

Version vom 16. August 2005, 08:36 Uhr


'-----------------------------------------------------------------|
'| 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