폴리타입 원을 써글타입 원으로 변경 가능한가요?

 autolisp polytocircle 찾아보니, 4점으로 구성되어있는 폴리타입 원을 써클타입 원으로 바꿔주는 기능이네요.. 아래분이 올려주신 리습이 다수의 점으로 구성되어 있는 폴리타입 원을 원으로 바꿔주네요

위/아래 분들이 답변주셔서 해결됏습니다. 감사합니다^^

와,, 감사합니다^^^^^^

ㅋㅋ구글링으로 해봤는데..제 검색능력이 부족했나봅니다..

;아 바로 변경 가능하네요  폴리라인 원만 다중으로 잡고 실행해보세요

(defun c:kkk()

 (setq ob (ssget))  (setq n (sslength ob) i 0)  (while (< i n)         (command "explode" (ssname ob i) "")         (setq obj (ssget "p"))         (setq pt1 (cdr (assoc 11 (entget (ssname obj 1)))))         (setq pt2 (cdr (assoc 10 (entget (ssname obj 1)))))         (setq pt3 (cdr (assoc 10 (entget (ssname obj 0)))))         (command "arc" pt1 pt2 pt3)         (setq arc_obj (entlast))         (command "erase" obj "")         (setq pt (cdr (assoc 10 (entget arc_obj))))         (setq rad (cdr (assoc 40 (entget arc_obj))))         (command "erase" arc_obj "")         (command "circle" pt rad)         (setq i (+ 1 i))  );while  (princ)

)

어라?? 도면이 어떤 상태인지는 모르겠지만  구글에 검색하니 리습이 잡히네요 도데체 어디서 찾아보신건가요?? 혹시 네이뇬?? 담에?? 이제는 사라진 라이코스??  검색어 autolisp polytocircle 

폴리라인원 사이즈가 동일한지 레이어가 따로 있는건지 도면이랑 같이 쪽지 보내주세요

혹시 공유해주실 수 있을까요..?

직접적으로 바꿔주는 방법은 좀 힘들것 같고 다른방식으로 리습제작은 가능합니다.

없습니다