概要 - ドキュメント ウィンドウの位置を設定、サイズ変更する(ActiveX)

Document オブジェクトを使用して、あらゆるドキュメント ウィンドウの位置およびサイズを変更できます。

ドキュメント ウィンドウは、WindowState プロパティを使用して最小化および最大化することができます。また WindowState プロパティを使用してドキュメント ウィンドウの現在の状態を確認することができます。

ドキュメント ウィンドウの位置を設定する

次の例では、Width と Height プロパティを使用して、アクティブなドキュメント ウィンドウのサイズを幅 400 x 高さ 400 ピクセルに変更します。°

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