리습 사용 후 오스냅 초기화

교차된 선을 끊어주는 리습인데
이 리습만 사용하면 오스냅이 초기화됩니다.

제가 리습수정을 하는 법을 몰라 그대로 올릴테니 수정좀 부탁드릴께요 ㅠㅠ
이거때문에 일할때 너무 스트레스입니다.




(setq distt1 0)
(setq dist nil)

(defun c:bh()
       (setvar “cmdecho” 0)
       (setvar “osmode” 0)
       (setq dist nil)
;      (setq distt1 (fix distt1))
   (if (= dist nil)
       (progn (prompt “nEnter break disk <“)
              (prin1 distt1)
              (setq dist (getdist “> : “))
    )
)
   (if (= dist nil)
       (setq distt1 distt1)
       (setq distt1 dist)
)
       (setvar “osmode” 32)
       (setq p1 (getpoint “nPick INT point : “))
       (setvar “osmode” 0)
       (setq a (car p1))
       (setq b (cadr p1))
       (setq c (/ distt1 2))
       (setq p2 (list (- a c) (cadr p1)))
       (setq p3 (list (+ a c) (cadr p1)))
   (if (and (= dist nil) (= distt1 0))
       (progn (prompt “nExit BH command…”)
       (exit)
   )    
       (and (command “break” p2 p3)
       (princ))
   )
       (setq p1 nil)
       (princ)
)