선택한 직각사각형으로 ZOOM window

;; 확대평면도를 레이아웃에 배치할 때 zoom window를 직각사각형을 선택하여 실행
;; 20210924
(defun c:ZS ( );/ lwp dxf len n pts e1 lst_dxf )
(setq dxf (entget (car (entsel))))
(setq len (length dxf))
(setq n 0)
(setq pt nil)
(setq ptx '( ))
(setq pty '( ))
(repeat len
(setq lst_dxf (nth n dxf))
(setq e1 (car lst_dxf))
(if (= e1 10)
(progn
(setq pt (cdr lst_dxf))
(setq ptx (append ptx (list (car pt))))
(setq pty (append pty (list (cadr pt))))
)
(princ)
)
(setq n (1+ n))
)
(setq pt1 (list (apply 'min ptx) (apply 'min pty)))
(setq pt2 (list (apply 'max ptx) (apply 'max pty)))
(setq Acad (vlax-get-acad-object))
(vla-ZoomWindow Acad (vlax-3d-point pt1) (vlax-3d-point pt2))
(princ)
)