osmode 에러 자꾸떠요

제가 엄청 많이 쓰는 리습인데 골치가 아픕니다..
전에는 다른 리습을 쓰다가 센터 크기를 조절을 할 필요가 있어서
이걸 쓰려 하는데 어제는 에러 떠도 잘 되더니 오늘은 에러에
osmode 요거 문제 일으키고 셋팅 다시,,,…
리습 전혀 모르는데 약간씩 편집과 가져다 쓰기만 하는데 어디가 문제죠?
(defun c:fh ()
(defun dtr (a)
(* pi (/ a 180.0))
)
(setvar “cmdecho” 0)
(setq osm (getvar “osmode”))
(setvar “osmode” 0)
(prompt “n “)
(prompt “n** CENTER LINE **”)
(setq e (entsel “nSelect the circle: “))
(setq et1 (entget (car e)))
(setq r1 (assoc 40 et1))
;;
(setq s1 (cdr (assoc 10 et1)))
(setq r (getdist s1 “nPick the centerline endpoint: “))
(setq l1 (polar s1 (dtr 180) r)
l2 (polar s1 0 r)
l3 (polar s1 (dtr 90) r)
l4 (polar s1 (dtr -90) r)
)
(command “line” l1 l2 “”)
(setq t1 (entlast))
(command “line” l3 l4 “”)
(setq t2 (entlast))
(command “chprop” t1 t2 “” “la” “1” “”)
(setvar “osmode” osmold) <--??? ㅡ,.ㅡ;