리습 수정 부탁드림니다

(defun C:CS (/ p1 p2 p3 p4)
(setvar “cmdecho” 0)
(setvar “blipmode” 1)
(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” cel “”)
(setvar “cmdecho” 1)
(setvar “blipmode” 0)
(princ)
)
마지막에 blipmode 가켜지는건 0에서 1로 바꾸면 될거같은데요 바꿔도 이상이 없는지 그리고 마지막에 오스넵이 초기화 되버립니다 기존 오스넵을 초기화시키지 않는 방법은 없을까요 보시구 수정 부탁드립니다