Hi,
Mit VBA kannst Du IMHO nicht auf die Extents des gesamten ModelSpace zurückgreifen, d.h. alle Elemente durchscannen, prüfen ob diese sichtbar sind (über Layereinstellungen) und dann die Extents jedes einzelnen Elements zu einem kumulierten Wert hinzufügen. Alternativ zuerst aus der Layerliste nachsehen, was eingeschaltet und getaut ist und dann ein SelectionSet bauen, das diese Layer als SelectionSet-Filter enthält.
Wenn Du mit dotNET arbeitest, lass es mich wissen, da geht's eleganter.
Und nachdem das ganze doch rechenintensiv ist, lass mich/uns mal wissen, wozu Du's brauchst, denn dann kommen vielleicht Ideen, wie es ev. grundsätzlich einfacher zu lösen sein könnte.
[EDIT]uuiii ExtMin und ExtMax von Thomas
ist aber sehr heisser Tip, da war ich sehr viel zu kurz im Denken
[/EDIT]
- alfred -
------------------
www.hollaus.at
[Diese Nachricht wurde von a.n. am 23. Jun. 2009 editiert.]