My zoom window macro stopped working

[rookie37]

This macro worked great for years. Now all of a sudden, it stopped.

 

I can't figure out why

 

 

 

(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

[Lee Mac]

Perhaps allow for language changes:

 

(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)
)

[alanjt]

JIC...

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