주왕님 원 중심선 그리기 리습 수정 가능할까요?

전에 리습 수정하여 주셔서 잘 사용하고 있습니다

한가지 수정을 좀 할 수 있을까 해서 질문 드립니다



저는 도면작업할때 ucs를 옮겨가면서 작업을 하는데요

ucs를 절대점에서 다른곳으로 옮겼을때 리습을 사용하면

절대점에서 옮겨진만큼 원에서 벗어난 위치에 중심선이 생성이 되는데요

ucs의 현재 위치와 상관 없이 원이나 호의 중심에 중심선이 그려지도록 수정이 가능할까요?



아래 전에 수정해주신 리습 올립니다


(defun c:cc(/ os ss k ent elist cenp rad p1 p2 p3 p4 exrad1)
;->*error* start
 (defun *error* (msg)(princ “error: “)(princ msg)
 (setvar “osmode” os) (setvar “clayer” la)
 (princ))
;-<*error* end
  (setvar “cmdecho” 0)
  (setq os (getvar “osmode”)
        la (getvar “clayer”)
        dc (getvar “dimcen”)
        ds (getvar “dimscale”))
   (setq tb1 (tblsearch “LAYER” “center”)) (if (= tb1 nil)
  (command “c” “bylayer” “la” “center” “lt” “bylayer” “”) )
  (setq ss (ssget ‘((0 . “circle,arc”)))) 
  (setq k 0) 
  (if (not exrad) (setq exrad (* dc ds)))
  (setq exrad1 (getreal (strcat “n중심표식 외경에서의 길이<” (rtos exrad) “>:”)))
  (if exrad1 (setq exrad exrad1))
  (setvar “osmode” 0)
  (command “undo” “be”)
  (setq clayer (getvar “CLAYER”)) ;<– 현제 레이어 이름 추출 그리고 변수 clayer 에 저장
  (setvar “CLAYER” “Center”) ;<–원하시는 레이어로 바꿈
  (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 exrad))
         p2 (polar cenp 0 (+ rad exrad))
         p3 (polar cenp (/ pi 2) (+ rad exrad))
         p4 (polar cenp (+ (/ pi 2) pi) (+ rad exrad))
   );setq
   (command “line” p1 p2 “”)
   (command “line” p3 p4 “”)
   (setq k (1+ k))
  );repeat
   (command “undo” “e”)
   (setvar “clayer” la)
   (setvar “osmode” os)
(princ)
);defun