객체마다 제자리 크기(스케일) 일괄조정 하는 리습 없나요??

아무리 검색을 해도 안나오네요..

xicad에는 scalemulti라는 명령어로 해결 한다는데 일단 저는 일반 zwcad를 쓰고 있구요 검색을 해도 안나올뿐더러 리습 공유된거 받아서 써봤는데

분명 제자리에서 스케일 조정이 된다고 하는데 한 기준점을 기준으로 조정이 되더라구요.

제가 말하는 제자리는 객체의 삽입점이라던지 중심점이라던지 그런 기준으로 각각 스케일을 조정하고 싶은건데요 일단 제가 받은 리습 공유 해드리겠습니다.

(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