중심선 리습 수정 좀 부탁 드립니다.

다른분꺼 퍼와서 중심선 리습을 사용중에 있는데요.
선 색상을 bylayer 아닌 빨간색으로 바꿧으면 하고,
선 종류를 bylayer가 아닌 center로 바꿧으면 합니다.
리습은 아예 초짜라 좀 부탁드립니다.ㅎㅎ
업무중에 유용한 리습 가지고 계시거나 필요하신분 공유 좀 직접했으면 하구요.
jaechung-an@hanmail.net 제 메일 주소입니다.ㅎㅎ
그러 고수님들 부탁 좀 드릴께요.

(defun c:ce(/ os ss k ent elist cenp rad p1 p2 p3 p4 dam ext la)
;->*error* start
 (defun *error* (msg)(princ “error: “)(princ msg)
 (setvar “clayer” la) (setvar “osmode” os)
 (princ))
;-<*error* end
  (setvar “cmdecho” 0)
  (setq la (getvar “clayer”))
  (setq os (getvar “osmode”))  
  (setq ss (ssget ‘((0 . “circle,arc”))))  
  (setq k 0)  
  (setvar “osmode” 0)
  (command “undo” “be”)
  (repeat (sslength ss)    
   (setq ent (ssname ss k)) 
   (setq elist (entget ent)) 
   (setq cenp (cdr (assoc 10 elist)))
   (setq rad (cdr (assoc 40 elist)))
   (setq dam (* 2 rad)
         ext (+ (* dam 0.3) rad)) 
   (setq p1 (polar cenp pi ext)
         p2 (polar cenp 0 ext)   
         p3 (polar cenp (/ pi 2) ext)
         p4 (polar cenp (+ (/ pi 2) pi) ext)
   );setq
   (setvar “clayer” “1”)
   (command “line” p1 p2 “”)
   (command “line” p3 p4 “”)
   (setq k (1+ k))
  );repeat
   (command “undo” “e”)
   (setvar “clayer” la)
   (setvar “osmode” os)
(princ)
);defun