| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Zoomwindow (654 mal gelesen)
|
Stelli1 Ehrenmitglied Verm.-Ing.
Beiträge: 1521 Registriert: 17.08.2005 Map 2000-2014, Rasterdesign MapGuide autodesk Topobase 2-2014 VS6, VS.net 2010
|
erstellt am: 15. Jan. 2014 16:58 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich sehe im Moment die Bäume nicht mehr im Wald, deshalb nochmal eine dumme Frage zum Zoomen Code: ' Boundingbox Dim acBound As Autodesk.AutoCAD.DatabaseServices.Extents3d acBound = acPolyline.GeometricExtents() Dim LowerLeft As Point2d = New Point2d(acBound.MinPoint.X - 50, acBound.MinPoint.Y - 50) Dim UpperRight As Point2d = New Point2d(acBound.MaxPoint.X + 50, acBound.MaxPoint.Y + 50) Dim acView As Autodesk.AutoCAD.GraphicsSystem.View acView = ( Autodesk.AutoCAD.GraphicsSystem.View) ??????? acView.ZoomWindow(LowerLeft, UpperRight)
Wie komme ich auf den View?? Wilfried Stelberg ------------------ Warum lisp'eln wenn's auch anders geht. www.ib-stelberg.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 15. Jan. 2014 17:23 <-- editieren / zitieren --> Unities abgeben: Nur für Stelli1
Hallo Wilfried, Code:
public static void dtZoomWindows(Editor _ed, Point3d _min, Point3d _max, Boolean _ZoomOnLayout) { 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 |
Stelli1 Ehrenmitglied Verm.-Ing.
Beiträge: 1521 Registriert: 17.08.2005 Map 2000-2014, Rasterdesign MapGuide autodesk Topobase 2-2014 VS6, VS.net 2010
|
erstellt am: 15. Jan. 2014 18:20 <-- editieren / zitieren --> Unities abgeben:
Hallo Holger, wiedermal Danke. So habe ich es jetzt gelöst:
Code: ' Viewposition rund um die Leitung setzen Dim acView As Autodesk.AutoCAD.DatabaseServices.ViewTableRecord acView = _Editor.GetCurrentView() acView.CenterPoint = LowerLeft + (UpperRight - LowerLeft) / 2 acView.Width = UpperRight.X - LowerLeft.X acView.Height = UpperRight.Y - LowerLeft.Y _Editor.SetCurrentView(acView) _Editor.UpdateScreen()
Warum benutzt du nicht die Methode ZOOMWINDOW ? Wilfried Stelberg ------------------ Warum lisp'eln wenn's auch anders geht. www.ib-stelberg.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|