rec 만드는 리습 수정좀 부탁드립니다

(defun c:rt( / ss)
 (setvar “cmdecho” 0)
;; (if (setq ss (ssget))
;;  (command “rec” ss “” “_non” “0,0” “@1087,870“)
 (setq po (getpoint “기준점을 찍으세요”))
 (command “rec”  po “” “@1087,870”)
 )
 (princ)
)

무조건 어떤 기준점을 찍으면 그점을 기준으로 @1087,870 만큼의 사이즈인
사각형을 만들고 싶습니다..
제가 아는 지식으로 최대한 만들어 보았는데 잘안되네요..
수정좀 부탁드립니다