리습 수정좀 도와주세요~

도면내에 하나밖에 없는 점을 기준으로 전체 도면을 0,0자리로 무브를 시키려고 합니다
도면마다 포인트 위치가 다르기 때문에 일단 포인트의 좌표를 알아내고 무브를 할때 그 좌표를 기준점으로 사용해서 전체도면을 0,0위치로 무브 시키려하는데요~
포인트의 x,y좌표값은 알아냈는데..
그 좌표를 기준으로 무브하는 방법을 모르겠어요..ㅠㅠ
아래 리습 좀 도와주세요 고수님들~  

(defun c:qqq(/ ss)
(setq ss1 (ssget “X”‘((0 . “point”))))
(setq ss2 (ssname ss1 0))
(setq ss3 (assoc 10(entget ss2)))
(setq ss4 (cadr ss3))
(setq ss5 (car(cddr ss3)))
(command “move” “all” (?) “0,0”)
)
)