원이나 호에서 center선 만드는 리습임돠… 디버깅좀 해주세염… 안되네염 ㅜㅜ

(defun c:center (/ a b lay rad cen pt1 pt2 pt3 pt4)
(setq lay (getvar “clayer”))
(setq a (entsel “n원 혹은 호를 선택: “))
(setq b (entget (car a)))
(setq cen (cdr (assoc 10 b)))
(setq rad (cdr (assoc 40 b)))
(setq pt1 (polar cen (dtr 90) (+ rad (/ rad 5))))
(setq pt2 (polar cen (dtr -90) (+ rad (/ rad 5))))
(setq pt3 (polar cen (dtr 180) (+ rad (/ rad 5))))
(setq pt4 (polar cen (dtr 0) (+ rad (/ rad 5))))
(command “-layer” “s” “g” “”)
(command “line” pt1 pt2 “”)
(command “line” pt3 pt4 “”)
(command “layer” “s” lay “”)
(princ)
)

리습은 위와 같고염… “G”레이어가 존재해야 됩니다…
그거의 다 맞는거 가튼데.. 왜 안되죠??
디버깅좀 해주세염