더하기 소수점 .0 일경우 소수점이 안나타나네요..ㅜㅜ

(defun C:SM (/ b1 b2 b3 b4 tot pot total)
     (setvar “cmdecho” 0)
     (graphscr)
     (setq n 0 t 0
           ss (ssget ‘((-4 . “<or”)(0 . “TEXT”)(0 . “MTEXT”)(-4 . “or>”)))
           en (sslength ss)
     )
     (while (< n en)
            (setq ename (ssname ss n)
                  elist (entget ename)
                  no (atof (cdr (assoc 1 elist) ) )
                  sum (+ t no)
                  t sum
                  n (+ n 1)
            )
     )
     (setq total (rtos t 2 1))
     (prompt (strcat “nTotal = ” total )) (terpri)
     (setq tot (entsel “Pick a change on target text”))(terpri)
     (setq b1 (entget (car tot)))
     (setq b2 (assoc 1 b1))
     (setq b3 (cons (car b2) total))
     (setq b4 (subst b3 b2 b1))
     (entmod b4)
 (princ “*** 계산이 완료되었습니다. ***”)
)






결과값이 .0 으로 끝나면 소수점이 없이 나옵니다.
소수점 값이 있을 경우는 소수 한자리로 나오구요

무조건 소수 한자리가 나오게 어떻게 할까요..ㅜㅜ
고수님들 부탁드립니다.~