리습문의...

(defun c:att (/ radd L:1 L:22 L1 L2 L3 dist dist11 dist22 dist1)
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)     
  (command "color" "bylayer")

;  (command "layer" "unlock" "*" "")
  (prompt "\n Automatic wire... ")
  (setq radd (getvar "filletrad"))
  (setq radd (fix radd))
  (prompt "\n How much Fillet Radius <")
            (prin1 radd)
  (setq L:1 (getdist "> : "))
  (if (/= L:1 nil)
      (progn
         (setvar "filletrad" L:1)
         (setq radd L:1)
      )
      (setq L:1 radd)
  )
  (command "osnap" "QUA,MID")
  (setq L1 (getpoint "\n Pick First line point : "))
  (setq L2 (getcorner L1 "\n Pick Second point : "))
  (setvar "osmode" 0)
  (setq L3 (list (car L1) (cadr L2)))
  (setq dist11 (distance L3 L1))
  (setq dist22 (distance L2 L3))

  (if (< dist11 dist22)
      (setq dist dist11)
      (setq dist dist22)
  )
 
  (if (< dist L:1)
      (setq L:1 (* 3 (/ dist 4)))
  )
 
  (if (or (= (car L1) (car L2)) (= (cadr L1) (cadr L2)))
      (command "line" L1 L2 "")
      (progn
         (command "pline" L1 "w" "0" "" L3 L2 "")
         (command "fillet" "r" L:1)
         (command "fillet" "p" "L")
         (setvar "filletrad" radd)
      )
  )   

   (setvar "blipmode" 0)
)

리습을 사용하고나면 스냅옵션이 모두 꺼져요...
어떻게 수정하면 좋을까여