move관련 리습 만들어 봤는데 조언쫌 부탁 드릴깨요

(DEFUN C:FF(/)
     (SETQ OJ (SSGET))
     (SETQ p1 (GETPOINT “n기준점:”))
     (SETQ p2 (GETPOINT “nX점:”))
     (SETQ p3 (GETPOINT P2″nY점:”))
     (SETQ P4 (LIST(CAR P2) (CADR P3)))
       (COMMAND “MOVE” OJ “” P1 P4)
  )

FF : 객체를 P2의 X좌표 P3의 Y좌표로 이동

리습 만들어봤는데 될때도 있고

x점 무시하고 p3로 바로 이동 할때도 있고 그래요

문제점이 멀까요?

조언쫌 부탁할깨요