치수 고정 리습에서 소수점 이하를 절사하고 싶습니다.

(defun rtd (a)
  (/ (* a 180.0) pi)
)
(defun c:d2()
(setq ent (ssget ‘((0 . “DIMENSION”))))
(setq n 0)
(repeat (sslength ent)
(setq e1 (entget (ssname ent n)))
(setq lengt (rtos (cdr (assoc 42 e1))))
(setq n-len (subst (cons 1 lengt) (assoc 1 e1) e1))
(entmod n-len)
(setq n (1+ n))
)
)
(defun c:t2()
(setq ent (ssget ‘((0 . “DIMENSION”))))
(setq n 0)
(repeat (sslength ent)
(setq e1 (entget (ssname ent n)))
(setq lengt (rtos (cdr (assoc 42 e1))))
(if (/= lengt “”)
(progn
(setq n-len (subst (cons 1 “”) (assoc 1 e1) e1))
(entmod n-len)
(setq n (1+ n))
)
)
)
)

고캐드에서 구한 치수고정리습입니다.
예를들어 1000의 치수를 고정을 하면 1000.00이 되버리는데요.
이 소수점 이하를 절사하려면 어떻게 수정을 해야될지 여기저기 뒤져봤습니다.
rtos len 2 0 이렇게 하면 되나 싶어서 넣어봤더니 인수가 너무 많다고 하고
통 방법을 못찾겠습니다.

도와주세요!