---

Hallo an Alle,

ich habe mal wieder ein Problem bei dem ich selbst nicht so recht weiterkomme. Und zwar möchte ich ein Fenster zoomen. Dazu habe ich die kleine Sub im Internet gefunden. Funktioniert so weit ganz gut nur nicht in einem UCS. Dort zoomt es an die falsche Stelle.
Jetzt dachte ich:

min= min.TransformBy(Ed.CurrentUserCoordinateSystem)
max= max.TransformBy(Ed.CurrentUserCoordinateSystem)

wäre eine Lösung. Aber leider läuft irgend etwas schief. kann mir da jemand helfen?
Danke Theo

Private Shared Sub ZoomWin(ed As Editor, min As Point3d, max As Point3d)

        Dim min2d As New Point2d(min.X, min.Y)

        Dim max2d As New Point2d(max.X, max.Y)

        Dim view As New ViewTableRecord()
        view = ed.GetCurrentView

        view.CenterPoint = min2d + ((max2d - min2d) / 2.0)

        view.Height = (max2d.Y - min2d.Y) * 2

        view.Width = (max2d.X - min2d.X) * 2

        ed.SetCurrentView(view)

    End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Theo,

mein Bibliotheksfunktion sieht wie folgt aus:

Code:

---

internal static void dtZoomWindows(this Editor _ed, Point3d _min, Point3d _max, Boolean _ZoomOnLayout, Boolean _PointsInUCS)
        {
            if (_PointsInUCS)
            {
                _min = _min.TransformBy(_ed.CurrentUserCoordinateSystem);
                _max = _max.TransformBy(_ed.CurrentUserCoordinateSystem);
            }
            Point2d min2d = new Point2d(_min.X, _min.Y);
            Point2d max2d = new Point2d(_max.X, _max.Y);
            ViewTableRecord view = new ViewTableRecord();
            view.IsPaperspaceView = _ZoomOnLayout;
            view.CenterPoint = min2d + ((max2d - min2d) / 2.0);
            view.Height = max2d.Y - min2d.Y;
            view.Width = max2d.X - min2d.X;
            _ed.SetCurrentView(view);
        }

---

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP