원하는 좌표 값을 입력하여 그 좌표값으로 이동시키는 방법….

안녕하세요.

제가 원하는 좌표로 특정 모델을 이동 시키는 리습을 만들고 싶은데요
그 좌표가 그때 그때 달라서…
상황에 따라 좌표 값을 변경하여 입력해야 되는데 그렇게 리습을 어떻게 작성하죠?

아직 초보라서…
제가 작성한 리습인데
(defun c:nwa () 
  (command “CIRCLE” “-109,-109” “d” “0.21” “”)
  (command “CIRCLE” “-109,109” “d” “0.21” “”)
  (command “CIRCLE” “109,-109” “d” “0.21” “”)
  (command “CIRCLE” “109,109” “d” “0.21” “”)
  (command “RECTANG” “0.07,0.07” “0.17,0.17” “”)
  (command “RECTANG” “0.095,0.095” “0.145,0.145” “”)
  (command “RECTANG” “-0.07,0.07” “-0.17,0.17” “”)
  (command “RECTANG” “-0.095,0.095” “-0.145,0.145” “”)
  (command “RECTANG” “-0.07,-0.07” “-0.17,-0.17” “”)
  (command “RECTANG” “-0.095,-0.095” “-0.145,-0.145” “”)
  (command “RECTANG” “0.07,-0.07” “0.17,-0.17” “”)
  (command “RECTANG” “0.095,-0.095” “0.145,-0.145” “”)
  (command “MOVE” “win” (list 1 1)
      (list -1 -1)
      (list 0 0)
      (princ “n 좌측으로 이동할 좌표 입력 : n”) “”) 
  (princ)
  )
여기서 원하는 좌표로 이동을 시키고 싶은데 어떤식으로 진행을 해야할까요? ㅠ_ㅠ