면적구하는 리습인데 소수점자리 늘리는부분좀 알려주세요

(defun c:ae(/ d_s ent_p ar_1 ar_2 py_1 py_2 t_p n_p)
  (graphscr)
  (setvar “cmdecho” 0)
  (setq d_s (getvar “dimscale”))
  (command “units” “” “8” “” “” “” “”)
  (setq ent_p (entsel “n PLINE을 선택하세요!! :”))
  (command “area” “e” ent_p)
  (setq ar_1 (/ (getvar “area” ) 1.0e+06))
  (setq ar_2 (rtos ar_1 2 3))
  (setq py_1 (* ar_1 0.3025))
  (setq py_2 (rtos py_1 2 3))
  (command “units” “” “0” “” “” “” “”)
  (prompt “nArea (M2):”)(princ ar_2)
  (prompt “nArea (Py):”)(princ py_2)(princ)
  (setq t_p (getpoint “nText 삽입 Point:”))

  (if (not t_h) (setq t_h 100))
  (setq t_h1 (getreal (strcat “nText Height 입력<” (rtos t_h) “>:”))) 
  (if t_h1 (setq t_h t_h1))

  (setq n_p (list (car t_p) (- (cadr t_p) (* t_h 2))))
  (command “text” t_p t_h “” (strcat  ar_2 ” m2 “))
  (command “text” n_p t_h “” (strcat  py_2 ” py “))
  (setvar “cmdecho” 1)
  (princ)
)
————————————————————————————–
위 내용이 현재 소수점 셋재자리까지만 표기가되어서요 그 이상표기하고 싶으면 어딜 수정해야 하나요
고수님들 부탁드립니다.