Fix lisp

[Automohan]

Lisp error...

(defun c:zw (/ pt1 pt2)
(if
  (and
   (setq pt1 (getpoint "\nSelect First Window Point: "))
   (setq pt1 (osnap pt1 "_end"))
   (setq pt2 (getpoint "\nSelect Second Window Point: "))
   (setq pt2 (osnap pt2 "_end"))
  )
   (command "._zoom" "_w" "_non" pt1 "_non" pt2) ; end zoom
   (command "_.pspace")
   (command "_.MVIEW" "L" "ON" "P" "")
)
(princ)
) ; end of program

[cadffm · Accepted solution]

IF expect just one exoression for THEN case.

Use PROGN or use just one (command ..) function.

[F1] if (AutoLISP)

[Automohan]

(defun c:zw (/ pt1 pt2)
(if
  (and
   (setq pt1 (getpoint "\nSelect First Window Point: "))
   (setq pt1 (osnap pt1 "_end"))
   (setq pt2 (getpoint "\nSelect Second Window Point: "))
   (setq pt2 (osnap pt2 "_end"))
  )
   (command "._zoom" "_w" "_non" pt1 "_non" pt2 "_.pspace" "_.mview" "l" "on" "l" "")
)
(princ)
); end of program