You could try this worked for what I needed a while ago now... http://forums.augi.com/showthread.php?106364-lower-amp-upper-bounds-of-the-current-window-view
Imports AC_App = Autodesk.AutoCAD.ApplicationServices.Application
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Interop
Public Class FloorSurferView
Private pMax As Point3d
Private pMin As Point3d
Public Sub New()
SaveView()
End Sub
Private Sub SaveView()
Dim ed As Editor = AC_App.DocumentManager.MdiActiveDocument.Editor
Using acView As ViewTableRecord = ed.GetCurrentView()
Dim pCenter As Point3d = New Point3d(acView.CenterPoint.X, acView.CenterPoint.Y, 0)
pMin = New Point3d(pCenter.X - (acView.Width / 2), pCenter.Y - (acView.Height / 2), 0)
pMax = New Point3d(pCenter.X + (acView.Width / 2), pCenter.Y + (acView.Height / 2), 0)
End Using
End Sub
Public Sub Zoom()
Dim app As AcadApplication = CType(Application.AcadApplication, AcadApplication)
Dim lower() As Double = New Double() {pMin.X, pMin.Y, pMin.Z}
Dim upper() As Double = New Double() {pMax.X, pMax.Y, pMax.Z}
app.ZoomWindow(lower, upper)
End Sub
End Class
