면적관련 질문입니다. (소수점 5째자리에서 반올림하는걸 버림으로 바꾸는 방법 질문)

;;면적을 화면에 찍는 리습입니다.
(defun C:aa (/ cmd a m)
     (setq cmd (getvar “cmdecho”))
     (setvar “cmdecho” 0)
     (command “area” “e” pause)
     (setq a (getvar “area”))
     (setq m (/ a 1.0e+06))
     (princ “n       Area : “)
     (princ m)
     (princ “㎡”)
     (setvar “cmdecho” cmd)
     (prin1)

   (setq pt (getpoint “n문자 위치: “))
(setq h (getvar “textsize”))
               (prompt “nText Height: “)
               (princ H)
               (princ ”  : “)
               (setq z (getdist))
               (if z
                   (setq h z)
               )

 (setq m (rtos m 2 4))

 
   (command “text”
                        (setq z pt)
                        (setq z h)
                        (setq z 0.0)
   (setq z m ) )

 
  (prin1)

)

이 리습을 사용하면 소수점 5째자리에서 반올림하여 소수점 4째자리로 표현을 해주는데

소수점 5째자리에서 버림하고 소수점 4째자리로 표현되게 수정하고 싶은데 어떻게 하는지 궁금합니다.

고수님~ 도와주세요 ^^