센터선 레이어 수정부탁드립니다

(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 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.1) 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
  
   (command “line” p1 p2 “”)
   (command “line” p3 p4 “”)
   (setq k (1+ k))
  );repeat
   (command “undo” “e”)
  
   (setvar “osmode” os)
(princ)
);defun


센터선이 현제 레이어로 작성됩니다 이것을 원하는것으로 작성하고 작성후 다시 원래 레이어로 현제상태를 돌려놓고싶은데요 부탁드립니다 꾸벅