거리 리습 수정부탁드립니다.(m단위로)

아래 목록에서 거리의 합을 M단위로 나타내고 싶은데요
어디를 수정해야 하나요?

;;
(defun c:ds()
(setvar “CMDECHO” 0)
(Setq ent (ssget))
(setq n 0)
(setq nu (sslength ent))
(setq a1 0)
(while (/= n nu)
(setq en (ssname ent n))
(command “area” “o” en)
(setq aa (getvar “perimeter”))
(setq a1 (+ a1 aa))
(initget 7)
(setq n (1+ n))
)
(setq a2 (rtos a1 2 2))
(setq base (getpoint “n 길이을 입력할 포인트를 입력하시오. “))
(command “text” base “” “” a2)
(princ)
)