객체를 지정한거리만큼 이동하는 리습문의

여기 사이트에서 찾은 리습인데요

이리습은 지정거리만큼 이동을 하는리습인거같습니다.

거리를 지정하지말고 도곽이나 박스를 선택하면

그 도곽이나 박스 크기만큼 

원하는 방향으로 이동할수있게 수정좀 부탁드립니다.

(defun c:ww ( / pt ppo )
(vl-load-com)  ; 여기부터 아래 파란줄은 리습하는 분이면 무조건 불러와야 되는 습관적 함수임.
                    ; 물론 vl 을 불러올때만 사용하지만, 귀찮아서 아무생각없이 불러옵니다.
(defun dtr (a) (* pi (/ a 180.0)))
(defun rtd (a) (* 180.0 (/ a pi))) 
(defun tan (a) (/ (sin a) (cos a))) 

(setq pt (getpoint "nt기준점 클릭 :"))
(setq ppo (polar pt (dtr 90) 10000.0))   ; pt 점에서 위쪽으로 길이를 ppo 만큼 이동.
                                                   ; 그러니까 dtr 90 이 위쪽에 해당합니다.
                                                   ; dtr 180 이면 왼쪽이 되겠죠~
                                                   ; polar 함수를 사용하세요

(command "move" (ssget) "" pt ppo)
(princ)
)