캐드 좌표값 추출 리습 수정좀 해주세요ㅠ

캐드 좌표 구하는 리습입니다.
단위, 소수점 위치 모두 다 좋습니다.

다만, 실제 캐드에서 XY값에서 마지막 숫자가 반올림 되어 표현이 됩니다.

[실제 ID값]
X = 46231662.4276
Y = 25079195.3973

[표현 좌표값]
X=46231.6624
Y=25079.1954

처럼 Y값이 25079195.3973
밑줄친 9에서 반올림 되어서 3이었던 앞 숫자가 4가 됩니다.

마지막 숫자가 반올림되지 않고
절삭되어 표현되도록 리습 수정좀 해주세요ㅠ


————————————————————————–
(defun c:xy()

  (setq lup(getvar "luprec"))
  (setvar "luprec" 4)
  (setq zin(getvar "dimzin"))
  (setvar "dimzin" 1)
  (setvar "cmdecho" 0)

  (setq po (getpoint "Pick First Point:"))
  (setq po2 (getpoint po "Pick Second Point:"))

(setq xp (strcat "X=" (rtos (/ (car po) 1000) 2 4)))
(setq yp (strcat "Y=" (rtos (/ (cadr po) 1000) 2 4)))

(command "leader" po po2 "" xp yp "")
)