양쪽옵셋 리습사용하면 스넵이 꺼지네요~

리습을 다운받어 사용하고싶은대 리습만 사용하면 객체스넵이 다꺼지네요~
머가 잘못돼나 봐주세요

(defun c:oo (/ cl os d1 d2 d3 cl st1 e1
               p1 p2 p3 p4 ang1 ang2 ang3)
   (setq cl (getvar “clayer”) os (getvar “osmode”))
   (setvar “osmode” 0)
   (setq d2 200)
   (if (/= wallthk nil)(setq d2 wallthk) )
   (setq st1 (itoa d2))
   (setq st1 (strcat “Enter wall thikness<” st1 “>:”))
   (prompt “nCommand: Wall Draw…”)(terpri)
   (setq d1 (getdist st1))
   (if (= d1 nil)(setq d1 d2) )
   (setq e1 (entsel “nPick line -> “))
   (setq d3 (/ d1 2))
   (while (/= e1 nil)
      (setq p1 (osnap (cadr e1) “END”)
            p2 (osnap (cadr e1) “MID”)
            ang1 (angle p1 p2)
            ang2 (+ ang1 (/ pi 2) )
            ang3 (- ang1 (/ pi 2) )
            p3 (polar p2 ang2 100)
            p4 (polar p2 ang3 100)
      )
      (command “offset” d3 e1 p3 “”)
      (command “change” “l” “” “p” “la” cl “”)
      (command “offset” d3 e1 p4 “”)
      (command “change” “l” “” “p” “la” cl “”)
       (setq e1 (entsel “nPick line -> “))
   )
   (setvar “osmode” os)
   (setq wallthk (fix d1))(princ)
)