리습 오류 부탁드립니다

사각박스안에 X표시 하는 리습인데 사용하면 오스냅이 자동으로 꺼져버리는 현상입니다.

오류수정좀 해주실 있나요

(defun C:XX(/ p1 p2 p3 p4)
  (setvar “cmdecho” 0)
  (setvar “blipmode” 0)
  (setvar “osmode” 32)
  (setq p1 (getpoint “nPick First Corner: “))
  (setq p2 (getcorner p1 “Pick Other Corner: “))
  (setvar “osmode” 0)
  (setq p3 (list (car p2) (cadr p1)))
  (setq p4 (list (car p1) (cadr p2)))
  (setq cel (getvar “CELTYPE”))
  (setvar “blipmode” 0)
  (command “linetype” “S” “CONTINUOUS” “”)
  (command “line” p1 p2 “”)
  (command “line” p3 p4 “”)
  (command “linetype” “S” “CONTINUOUS” “”)
  (setvar “cmdecho” 1)
  (setvar “blipmode” 0)
  (princ)