关于定义缩放窗口 （ActiveX）
您可以通过指定定义某个区域的角来快速放大该区域。
若要通过指定区域边界来放大区域，请使用 or 方法。该方法允许您以编程方式定义表示缩放窗口的两个点。该方法要求用户选择两个点。这两个选取的点成为缩放窗口。ZoomWindowZoomPickWindowZoomWindowZoomPickWindow
将活动图形缩放到由两个点定义的窗口
- 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
| 
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 苏公网安备32011402011833)
