좌표 찍는 리습에서 반올림 관련해서…

좌표 찍는 리습에서요..
mm로 단위로 설정되어 있는 CAD에서
단위는 m로 “28938.3482” <–이렇게  좌표값을 내고 싶은데,
현재 가진 리습으로는 소수점 셋째짜리까지 밖에 안나와서요~
반올림 하는 리습질문들 찾아보고 수정해서 써보려고 했으나..
“28938.34.8.2”<–이렇게 나오네요.. ㅠㅠ
어떻게 수정해야 소수점 5째자리에서 반올림하고 4째짜리까지 표시되게 할수 있을까요?
한시간째 혼자 어떻게 해보려다가 안되서, 질문 올려요..

고수님들 도움 부탁드려요!!

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(defun c:idd()
  (setq lup(getvar “luprec”))
  (setvar “luprec” 3)
  (setq zin(getvar “dimzin”))
  (setvar “dimzin” 0)
  (setvar “cmdecho” 0)
  (setq po (getpoint “Pick First Point:”))
  (setq po2 (getpoint po “Pick Second Point:”))
  (if (> (setq Nlen (- (strlen (setq N (rtos (cadr po) 2 0))) 3)) 0)
 (setq NP (strcat “Y:” (substr N 1 Nlen) “.” (substr N (1+ Nlen))))
  )
  (if (> (setq Elen (- (strlen (setq E (rtos (car po) 2 0))) 3)) 0)
 (setq EP (strcat “X:” (substr E 1 Elen) “.” (substr E (1+ Elen))))
  )
 (command “leader” po po2 “” NP EP “”)
 (setq ent (entget (entlast)))
 (entmod (subst (cons 71 7) (assoc 71 ent) ent))
 (princ)
)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~