원에 중심선 그리는 리습 수정좀 부탁드립니다

지금 사용하고 있는 원에 중심선 그리는 리습인데요

호에도 사용 가능하게 수정이 가능할까요?


(DEFUN C:CC (/ os ss k ent elist cenp rad p1 p2 p3 p4) ;;
  (setvar “cmdecho” 0)
  (setq os (getvar “osmode”)) 
  (setq ss (ssget ‘((0 . “circle”)))) 
  (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 p1 (polar cenp pi (* rad 1.0)) ;;
         p2 (polar cenp 0 (* rad 1.0))     ;;
         p3 (polar cenp (/ pi 2) (* rad 1.0))  ;;
         p4 (polar cenp (+ (/ pi 2) pi) (* rad 1.0)) ;;
   );setq
   (command “line” p1 p2 “”)
   (command “line” p3 p4 “”)
   (setq k (1+ k))
  );repeat
   (command “undo” “e”)
   (setvar “osmode” os)
(princ)
);defun