좌표추출 리습 소수점 문의 드립니다.

안녕하세요.

좋은 자료 많이 찾아봤지만 없어서 문의 드립니다.
좌표 추출 리습을 수정해서 사용하는데

아래와 같이 수정을 하고 싶어 문의 드려요.




예)
1500.0    —>    15.0000 
1) 위 그림 처럼 제가 어떤 점을 찍으면 해당 좌표가 좌측 그림처럼 결과 값이 나오는데
    여기서 나누기 100을 하고 싶습니다. 그리고 소수점 4자리 까지 표현하고 싶어요

2) 리드선을 중간에 두고 위에는 X:0000 좌표가 ,  아래는 Y:0000 좌표가 
    위치 하도록 할 수도 있을까요?

아래는 제가 현재 수정해서 사용하는 리습 이구요 부탁 드려봅니다.
감사합니다.

=============================================

  ;;
;; 좌표 추출하기
;;
(defun c:bb()

  (setq lup(getvar “luprec”))
  (setvar “luprec” 4)
  (setq zin(getvar “dimzin”))
  (setvar “dimzin” 0)
  (setvar “cmdecho” 0)

  (setq po (getpoint “Pick First Point:”))
  (setq po2 (getpoint po “Pick Second Point:”))

(setq xp (strcat “X:” (rtos (car po) 2 1)))
(setq yp (strcat “Y:” (rtos (cadr po) 2 1)))

(command “leader” po po2 “” xp yp “”)
)