면적구하는 리습인데요 소수점 자릿수를 바꿀려면…

면적구하는 리습인데요
소수점 둘째자리까지만 나오는데 혹시 셋째자리수로 맞출려면 어떻게
해야하는지 알수 있는분 답변 부탁드립니다…^^

;****vv.lsp***
(defun C:VV( / TEX Q AR PT1 )
(graphscr)
(setvar “cmdecho” 0)
(setq number 0)
(while (setq dum (bpoly (getpoint “n Select pick point … : “)))
(command “AREA” “entity” dum)
(setq nu (getvar “AREA”))
(if ( = number nil)
(setq number 0)
)
(setq number ( + number nu))
(princ (strcat “area ==>”(rtos number 2 2)))
)
(setq AR (rtos number 2 2))
(princ “n>>Select change Text : “)
(setq TT (ssget))
(command “CHANGE” TT “” “” “” “” “” “” AR)
(COMMAND “ERASE” “L” “”)
(COMMAND “REDRAW”)
(setq number 0)
(setvar “cmdecho” 1)
(PRINC)
)
(princ”Usage ==> Command: VV [Enter]”)(terpri)
(princ)