캐드 다중 객체 제자리 스케일 질문입니다.

아무리 검색을 해도 안나오네요.. 리습 몇개 받긴 했는데 한 기준점을 기준으로 스케일이 변경 될뿐 제자리에서 여러객체들이 스케일 조정 가능한 리습은 못찾겠네요 ..

혹시 알고계신 고수분 계시면 공유 부탁드립니다.

제가 받은 리습 올리겠습니다.

(defun c:MSS(/ deflt old_b_scale alrim bp ojt)
(setvar “DIMZIN” 0)
(if (= b_scale nil) (setq b_scale 1) (setq old_b_scale b_scale))
(setq deflt (rtos b_scale 2 3))
(setq alrim (strcat “n 스케일값 ? [기본값=” (print deflt) “] : “))
(setq b_scale (getreal alrim))
(if (= b_scale nil) (setq b_scale old_b_scale))
(setq bp (getpoint “n 기준점 ?…”))
(setq ojt (ssget))
(while (/= bp nil) ;반복 구문
(command “scale” ojt “” bp b_scale)
(setq bp (getpoint “n 기준점 ?…”))
(prompt “n 스케일값 ?…”)
(setq ojt (ssget))
);end of wile
);end of defun