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

AutoCAD 2024 开发者帮助

关于文档窗口的定位和大小（ActiveX）

2024-5-18 19:06| 发布者: admin| 查看: 152| 评论: 0|原作者: admin|来自: AutoCAD

使用该对象可以修改任何文档窗口的位置和大小。Document

可以使用该属性最小化或最大化“文档”窗口，并且可以使用该属性查找“文档”窗口的当前状态。WindowStateWindowState

“放置文档”窗口

本示例使用 and 属性将活动的“文档”窗口设置为 400 像素宽 x 400 像素高。WidthHeight

AutoLISP

(vl-load-com)
(defun c:Ch3_SizeDocumentWindow ()
    (setq acadObj (vlax-get-acad-object)
          doc (vla-get-ActiveDocument acadObj))

    (vla-put-Width doc 400)
    (vla-put-Height doc 400)
)

VBA（仅限 AutoCAD）

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

最大化活动的“文档”窗口

AutoLISP

(vl-load-com)
(defun c:Ch3_MaximizeDocumentWindow ()
    (setq acadObj (vlax-get-acad-object)
          doc (vla-get-ActiveDocument acadObj))

    (vla-put-WindowState doc acMax)
)

VBA（仅限 AutoCAD）

Sub Ch3_MaximizeDocumentWindow()
  ThisDrawing.WindowState = acMax
End Sub

最小化活动的“文档”窗口

AutoLISP

(vl-load-com)
(defun c:Ch3_MinimizeDocumentWindow ()
    (setq acadObj (vlax-get-acad-object)
          doc (vla-get-ActiveDocument acadObj))

    (vla-put-WindowState doc acMin)
)

VBA（仅限 AutoCAD）

Sub Ch3_MinimizeDocumentWindow()
  ThisDrawing.WindowState = acMin
End Sub

查找活动“文档”窗口的当前状态

AutoLISP

(vl-load-com)
(defun c:Ch3_CurrentWindowState()
    (setq acadObj (vlax-get-acad-object)
          doc (vla-get-ActiveDocument acadObj)
          CurrWindowState (vla-get-WindowState doc)
          msg "")

    (cond
      ((= CurrWindowState 1)(setq msg "normal"))
      ((= CurrWindowState 2)(setq msg "minimized"))
      ((= CurrWindowState 3)(setq msg "maximized"))
    )

    (alert (strcat "The document window is " msg))
)

VBA（仅限 AutoCAD）

Sub Ch3_CurrentWindowState()
  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