[综合讨论] 我的缩放窗口宏已停止w

(defun c:zw ()
   (setq pt1 (getpoint "\nSelect First Window Point: "))
   (setq pt1 (osnap pt1 "_endp"))
   (setq pt2 (getpoint "\nSelect Second Window Point: "))
   (setq pt2 (osnap pt2 "_endp"))
     (command "zoom"
     "w"
   pt1
   pt2
     ) ; end zoom
    (princ)
) ; end program

(defun c:zw ( / p1 p2 )
 (if (and (setq p1 (getpoint "\nSelect First Window Point: "))
          (setq p1 (osnap p1 "_end"))
          (setq p2 (getcorner "\nSelect Second Window Point: " p1))
          (setq p2 (osnap p2 "_end")))
   (command "_.zoom" "_w" p1 p2)
 )
 (princ)
)

(command "_.zoom" "_endp" PAUSE "_endp" PAUSE)