리습 수정 요청드려요..

면적이 끝자리 반올림되는 것을 반올림없이 순수 면적으로 표시되게 수정 요청드립니다.
어떤것을 수정해야 하는지 모르겠어요..
부탁합니다!!

(princ)
(defun c:zz(/ cmd a pyng sm)
 (setq cmd(getvar”cmdecho”))
 (setvar”cmdecho”0)
 (setq sc(getvar”ltscale”))
 (setq ts(* sc 5))
 (princ”Select polyline:”)
 (command”area””e”pause)
 (setq area(getvar”area”))
 (setq sm(rtos(/ area 1.0e+06) 2 4))
 (setq py(rtos(* area 0.0000003025) 2 4))
 (princ”n      Area : “)
 (princ sm)
 (princ” sq m”)
 (princ”   -> “)
 (princ py)
 (princ” pyong”)
 (setq pt(getpoint”nnnn    Pick Text Point :”))(terpri)
 (setq ar1(strcat “”sm” M2″))
 (command”text””s””standard””mc”pt ts”0″ar1)
 (setvar”cmdecho”cmd)
 (prin1))
(princ)
(defun c:xx(/ cmd a pyng sm)
 (setq cmd(getvar”cmdecho”))
 (setvar”cmdecho”0)
 (setq sc(getvar”ltscale”))
 (setq ts(* sc 5))
 (princ”Select polyline:”)
 (command”area””e”pause)
 (setq area(getvar”area”))
 (setq sm(rtos(/ area 1.0e+06) 2 4))
 (setq py(rtos(* area 0.0000003025) 2 4))
 (princ”n      Area : “)
 (princ sm)
 (princ” sq m”)
 (princ”   -> “)
 (princ py)
 (princ” pyong”)
 (setq pt(getpoint”nn      Pick Text Point :”))(terpri)
 (setq ar1(strcat “”py” PY”))
 (command”text””s””standard””mc”pt ts”0″ar1)
 (setvar”cmdecho”cmd)
 (prin1))
(princ)