사각형 이동할때 중심점 선택 리습인데요, 도와주세요

안녕하세요, 항상 고캐드로부터 많은 정보를 얻고 있습니다.
제목처럼 사각형을 이동 또는 복사를 많이 하는데요.
중심점은 잡고 싶을때 센터선을 그리고 합니다.
이게 너무 귀찮아서 스냅선택 옵션 “m2p”를 입력하기도 합니다만,
이것을 아예 리습을 합쳐서 사용하고 싶습니다.
나름 짜집기를 해봤는데 막히는 부분이 있어서 도움을 요청합니다.
아래 리습 구문에서 어떤걸 고쳐야할까요? 고수님들의 지도 바랍니다.

(defun c:RM ()
  (prompt “n>> 사각형 중심점 이동입니다. 객체 선택후 대각 모서리를 선택하세요… “)
  (setq se (ssget))
  (setq a (getpoint “n Enter first corner: “)
        b (getcorner a “n Enter opposite corner: “))
  (command “move” se “m2p” a b )
  (princ))
(princ)