도면 이동후 스케일 조절 리습 질문건!

안녕하세요! 모델 프로그램에서 도면을 추출하였는데 모두 제각각으로 추출되어 수정하고자 합니다.

우선 도면의 우상귀점을 (840,594)로 이동 시킨후 그림과 같이 Scale을 조절하는 리습을 만들고 싶습니다.

작업순서는 Move=>객체 전체 => 객체의 우상귀점 => 840,594로 좌표이동 => Scale => 객체전체 => 기준점 840,594

=>참조 r => 기준점 840,594 => 객체의 좌하귀점 클릭 => 0,0까지 끌기 입니다.

안되는 이유가 뭔지 알려주세요!

고수님들 부탁드립니다.

(defun c:test()
  (command "move" "all" "" (reverse (cdr (reverse (getvar "extmax")))) '(840 594) )
  (command "scale" "all" "" '(840 594) "r" "" '(840 594) "" (reverse (cdr (reverse (getvar "extmin")))) '(0 0) )
  (command "zoom" "e")
);defun