0번레이어로 나오는 리습을 현재레이어로

현재 이 리습을 사용 하는데요…
이 리습으로 그리면 0번으로 출력 되는것을
현재 선택 되어있는  레이어로 출력 되게끔
밑에 있는 외형선 레이어 0에 해당하는 부분을 이것저것으로 바꿔보았는데 원하는대로 안되네요 ㅠ
어떻게 수정해야 될지 알려주시면 감사하겠습니다!!





평면도 핀홀 리습

(defun c:vg (/ D1 pt0 PT1 PT2 PT3 PT4 PT1A PT2A PT3A PT4A r1 R2 os cla)
  (setq os (getvar “osmode”))
  (setq cla (getvar “clayer”))
  (setq pt0 (getpoint “n≫ Pin의 중심점을 선택하세요 : “))
  (setq d1 (getreal “n≫ Pin의 지름을 입력하세요 : “))
  (setq r1 (/ d1 2))
  (setq r2 (/ r1 2))
  (setq pt1 (list (+ (car pt0) r2) (cadr pt0)))
  (setq pt1a (list (+ (car pt0) (* r1 1.5)) (cadr pt0)))
  (setq pt2 (list (- (car pt0) r2) (cadr pt0)))
  (setq pt2a (list (- (car pt0) (* r1 1.5)) (cadr pt0)))
  (setq pt3 (list (car pt0) (+ (cadr pt0) r2)))
  (setq pt3a (list (car pt0) (+ (cadr pt0) (* r1 1.5))))
  (setq pt4 (list (car pt0) (- (cadr pt0) r2)))
  (setq pt4a (list (car pt0) (- (cadr pt0) (* r1 1.5))))
  (setvar “osmode” 0)
  (command “-LINETYPE” “S” “center” “”)
  (command “layer” “s” “1” “”) ;; 사용자 변경 부분 -중심선 레이어 22
  (command “line” pt1a pt2a “”)
  (command “line” pt3a pt4a “”)
  (command “-LINETYPE” “S” “bylayer” “”)   
  (command “layer” “s” “0” “”)
  (command “circle” pt0 r1) ;; 사용자 변경 부분 -외형선 레이어 0
  (command “pline” pt1 “w” r1 “” “a” “a” 90 pt3 “”)
  (command “pline” pt2 “w” r1 “” “a” “a” 90 pt4 “”)
   (command “pline” pt2 “w” “0” “0” *consol*)
  (setvar “osmode” os)
  (setvar “clayer” cla)

); end of defun

(defun bot_er (s)
(if (/= s “Function Cancelled”)
   (if (= s “quit / exit abort”)
   (princ) (princ (strcat “nERROR :” s)) ))
(setvar “cmdecho” ocmde) (setvar “osmode” oosmo)(setvar “clayer” cla)
(setq *error* olderr)
(princ))

(defun dtr (dtr1)(* pi (/ dtr1 180.00)))

(defun ss-add () (while (setq lst(entnext lst))(ssadd lst ss) ))

(defun out_lay () (command “layer” “s” “0” “”))
(defun cen_lay () (command “layer” “s” “22” “”))