ArcView: Zur Auswahl zoomen bei Beibehaltung des Massstabs: Unterschied zwischen den Versionen
GISWiki - Das freie Portal für Geoinformatik (GIS)
Pete (Diskussion | Beiträge) |
|||
Zeile 32: | Zeile 32: | ||
− | [[Kategorie:ArcView | + | [[Kategorie:ArcView]] |
Version vom 16. August 2005, 09: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