概要 - 窓ズームを定義する(ActiveX)

領域のコーナーを定義することで、特定の領域にすばやく拡大ズームすることができます。

領域の境界を指定して領域を拡大ズームするには、ZoomWindow メソッドまたは ZoomPickWindow メソッドを使用します。ZoomWindow メソッドを使用すると、ズーム窓を表す 2 点をプログラムで定義できます。ZoomPickWindow を使用する場合は、ユーザが 2 点を選択します。選択したこの 2 つの点が、ズーム窓になります。

アクティブな図面を 2 点で定義された窓にズームする

AutoLISP

(vl-load-com)
(defun c:Ch3_ZoomWindow()
    ;; ZoomWindow
    (alert (strcat "Perform a ZoomWindow with:\n"
                   "1.3, 7.8, 0\n"
                   "13.7, -2.6, 0"))

    (setq point1 (vlax-3d-point 1.3 7.8 0)
          point2 (vlax-3d-point 13.7 -2.6 0))

    (setq acadObj (vlax-get-acad-object))
    (vla-ZoomWindow acadObj point1 point2)
  
    ;; ZoomPickWindow
    (alert  "Perform a ZoomPickWindow")

    (vla-ZoomPickWindow acadObj)
)

VBA (AutoCAD のみ)

Sub Ch3_ZoomWindow()
  ' ZoomWindow
  MsgBox "Perform a ZoomWindow with:" & vbCrLf & _
  "1.3, 7.8, 0" & vbCrLf & _
  "13.7, -2.6, 0", , "ZoomWindow"

  Dim point1(0 To 2) As Double
  Dim point2(0 To 2) As Double
  point1(0) = 1.3: point1(1) = 7.8: point1(2) = 0
  point2(0) = 13.7: point2(1) = -2.6: point2(2) = 0
  ThisDrawing.Application.ZoomWindow point1, point2
  ' ZoomPickWindow
  MsgBox "Perform a ZoomPickWindow", , "ZoomPickWindow"

  ThisDrawing.Application.ZoomPickWindow
End Sub