객체 각 포인트에서 스케일 조정 리습 수정 부탁드립니다.

고캐드에서 검색하다가 얻은 리습인데요…
수많은 원들의 각 중심점을 기준으로 스케일 조정하는 리습입니다.

상큼 메론90님이 만드셨는데..이걸 원 말고 선, 폴리선, 원, 타원 등 각 객체의 중심선을 기준으로 스케일 일괄 적용하게 할수는 없나요?

(defun c:ch (/ ch1 ch2 chobj X)
(vl-load-com)
(setvar “CMDECHO” 0)
(setq ch1 (ssget (list (cons 0 “CIRCLE”))))
(setq ch2 (getreal “n 변경할 원의 스케일값은? : “))
(setq chobj (mapcar ‘vlax-ename->vla-object (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ch1)))))
(foreach X chobj
(vla-put-Radius X (* (vla-get-Radius X) ch2))
)
(princ)
)

원본 리습입니다.