Position and Size the Document Window

Use the Document object to modify the position and size of any document window. The Document window can be minimized or maximized by using the WindowState property, and you can find the current state of the Document window by using the WindowState property.

Size the active Document window

This example uses the Location and Size Height properties to set the placement and size of Document window to 400 pixels wide by 400 pixels high.

VB.NET

Imports Autodesk.AutoCAD.Runtime

Imports Autodesk.AutoCAD.ApplicationServices

Imports Autodesk.AutoCAD.Windows

<CommandMethod("SizeDocumentWindow")> _

Public Sub SizeDocumentWindow()

  '' Size the Document window

  Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument

  acDoc.Window.WindowState = Window.State.Normal

  '' Set the position of the Document window

  Dim ptDoc As Point = New Point(0, 0)

  acDoc.Window.Location = ptDoc

  '' Set the size of the Document window

  Dim szDoc As Size = New Size(400, 400)

  acDoc.Window.Size = szDoc

End Sub

using Autodesk.AutoCAD.Runtime;

using Autodesk.AutoCAD.ApplicationServices;

using Autodesk.AutoCAD.Windows;

[CommandMethod("SizeDocumentWindow")]

public static void SizeDocumentWindow()

  // Size the Document window

  Document acDoc = Application.DocumentManager.MdiActiveDocument;

  acDoc.Window.WindowState = Window.State.Normal;

  // Set the position of the Document window

  Point ptDoc  = new Point(0, 0);

  acDoc.Window.Location = ptDoc;

  // Set the size of the Document window

  Size szDoc = new Size(400, 400);

  acDoc.Window.Size = szDoc;

VBA/ActiveX Code Reference

Minimize and maximize the active Document window

VB.NET

Imports Autodesk.AutoCAD.Runtime

Imports Autodesk.AutoCAD.ApplicationServices

Imports Autodesk.AutoCAD.Windows

<CommandMethod("MinMaxDocumentWindow")> _

Public Sub MinMaxDocumentWindow()

  Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument

  '' Minimize the Document window

  acDoc.Window.WindowState = Window.State.Minimized

  MsgBox("Minimized", MsgBoxStyle.SystemModal, "MinMax")

  '' Maximize the Document window

  acDoc.Window.WindowState = Window.State.Maximized

  MsgBox("Maximized", MsgBoxStyle.SystemModal, "MinMax")

End Sub

using Autodesk.AutoCAD.Runtime;

using Autodesk.AutoCAD.ApplicationServices;

using Autodesk.AutoCAD.Windows;

[CommandMethod("MinMaxDocumentWindow")]

public static void MinMaxDocumentWindow()

  Document acDoc = Application.DocumentManager.MdiActiveDocument;

  // Minimize the Document window

  acDoc.Window.WindowState = Window.State.Minimized;

  System.Windows.Forms.MessageBox.Show("Minimized" , "MinMax");

  // Maximize the Document window

  acDoc.Window.WindowState = Window.State.Maximized;

  System.Windows.Forms.MessageBox.Show("Maximized" , "MinMax");

VBA/ActiveX Code Reference

Find the current state of the active Document window

VB.NET

Imports Autodesk.AutoCAD.Runtime

Imports Autodesk.AutoCAD.ApplicationServices

Imports Autodesk.AutoCAD.Windows

<CommandMethod("CurrentDocWindowState")> _

Public Sub CurrentDocWindowState()

  Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument

  System.Windows.Forms.MessageBox.Show("The document window is " & _

  acDoc.Window.WindowState.ToString(), "Window State")

End Sub

using Autodesk.AutoCAD.Runtime;

using Autodesk.AutoCAD.ApplicationServices;

using Autodesk.AutoCAD.Windows;

[CommandMethod("CurrentDocWindowState")]

public static void CurrentDocWindowState()

  Document acDoc = Application.DocumentManager.MdiActiveDocument;

  System.Windows.Forms.MessageBox.Show("The document window is " +

  acDoc.Window.WindowState.ToString(), "Window State");

VBA/ActiveX Code Reference