캐드 리습 (면적관련) 소수점 변환

면적를 쉽게구하는 리습입니다.
P라인 면적을 소수점2자리까지 표시되도록 되었는데..
                         소수점4자리까지 표시되도록 수정하고 싶습니다. 

고수님들의 도움을 바랍니다.  


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