概要 - アクティブなビューポートを分割する(ActiveX)

アクティブなビューポートは、Split メソッドを使用して複数のビューポートに分割することができます。

このメソッド は、ビューポートを分割する際の設定の種類であるパラメータを 1 つ受け取ります。ウィンドウ設定を指定するには、上記の既定の設定に対応する次のいずれかの定数を使用します。acViewport2Horizontal、acViewport2Vertical、acViewport3Left、acViewport3Right、acViewport3Horizontal、acViewport3Vertical、acViewport3Above、acViewport3Below、acViewport4。

ビューポートを 2 つの水平なウィンドウに分割する

以下の例は、ビューポートを新しく作成し 2 つの水平なウィンドウに分割します。

AutoLISP

(vl-load-com)
(defun c:Ch3_SplitAViewport()
    (setq acadObj (vlax-get-acad-object)
          doc (vla-get-ActiveDocument acadObj))
  
    ;; Create a new viewport
    (setq viewportsCollection (vla-get-Viewports doc)
          vportObj (vla-Add viewportsCollection "TEST_VIEWPORT"))

    ;; Split vportObj into 2 horizontal windows
    (vla-Split vportObj acViewport2Horizontal)

    ;; Now set vportObj to be the active viewport
    (vla-put-ActiveViewport doc vportObj)
)

VBA (AutoCAD のみ)

Sub Ch3_SplitAViewport()
  ' Create a new viewport
  Dim vportObj As AcadViewport
  Set vportObj = ThisDrawing.Viewports.Add("TEST_VIEWPORT")

  ' Split vportObj into 2 horizontal windows
  vportObj.Split acViewport2Horizontal

  ' Now set vportObj to be the active viewport
  ThisDrawing.ActiveViewport = vportObj
End Sub