ドキュメント ウィンドウの位置とサイズを変更する(.NET)

Document オブジェクトを使用して、あらゆるドキュメント ウィンドウの位置およびサイズを変更できます。ドキュメント ウィンドウは、WindowState プロパティを使って最小化および最大化することができます。また WindowState プロパティを使ってドキュメント ウィンドウの現在の状態を確認することができます。

アクティブなドキュメント ウィンドウのサイズを変更する

この例では、 Location プロパティと Size プロパティを使用して、ドキュメント ウィンドウの配置とサイズを幅 400 ピクセル×高さ 400 ピクセルに設定します。

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 System.Windows.Point = New System.Windows.Point(0, 0)
    acDoc.Window.DeviceIndependentLocation = ptdoc

    '' Set the size of the Document window
    Dim szDoc As System.Windows.Size = New System.Windows.Size(400, 400)
    acDoc.Window.DeviceIndependentSize = szDoc
End Sub

C#

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;

    // Works around what looks to be a refresh problem with the Application window
    acDoc.Window.WindowState = Window.State.Normal;
            
    // Set the position of the Document window
    System.Windows.Point ptDoc = new System.Windows.Point(0, 0);
    acDoc.Window.DeviceIndependentLocation = ptDoc;

    // Set the size of the Document window
    System.Windows.Size szDoc = new System.Windows.Size(400, 400);
    acDoc.Window.DeviceIndependentSize = szDoc;
}

VBA/ActiveX コード リファレンス

Sub SizeDocumentWindow()
    ThisDrawing.Width = 400
    ThisDrawing.Height = 400
End Sub

アクティブなドキュメント ウィンドウを最小化および最大化する

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

C#

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 コード リファレンス

Sub MinMaxDocumentWindow()
    '' Minimize the Document window
    ThisDrawing.WindowState = acMin
    MsgBox "Minimized"
 
    '' Minimize the Document window
    ThisDrawing.WindowState = acMax
    MsgBox "Maximized"
End Sub

アクティブなドキュメント ウィンドウの現在の状態を確認する

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

C#

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 コード リファレンス

Sub CurrentDocWindowState()
    Dim CurrWindowState As Integer
    Dim msg As String
    CurrWindowState = ThisDrawing.WindowState
    msg = Choose(CurrWindowState, "Normal", _
                 "Minimized", "Maximized") 
    MsgBox "The document window is " + msg
End Sub

関連概念