CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2018 开发者帮助 › 查看内容

AutoCAD 2018 开发者帮助

文档窗口的位置和大小（.NET）

2024-5-18 16:57| 发布者: admin| 查看: 269| 评论: 0|原作者: admin|来自: AutoCAD

文档窗口的位置和大小（.NET）

使用该对象可以修改任何文档窗口的位置和大小。可以使用该属性最小化或最大化“文档”窗口，并且可以使用该属性查找“文档”窗口的当前状态。DocumentWindowStateWindowState

调整活动“文档”窗口的大小

本示例使用 Location 和属性将 Document 窗口的位置和大小设置为 400 像素宽 x 400 像素高。Size

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