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

GISWiki - Das freie Portal für Geoinformatik (GIS)
Wechseln zu: Navigation, Suche
 
 
(Eine dazwischenliegende Version von einem anderen Benutzer wird nicht angezeigt)
Zeile 32: Zeile 32:
  
  
[[Kategorie:ArcView 3.x]]
+
[[Kategorie:ArcView]]
 +
[[Kategorie:Avenue]]

Aktuelle Version vom 15. November 2005, 20:31 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