면적 길이 리습 수정 부탁드립니다.

(defun c:zz()

(setvar “CMDECHO” 0)

(Setq ent (ssget))

(setq n 0)
(setq nu (sslength ent))
(setq total_aa 0 total_len 0)

(while (/= n nu)
(setq en (ssname ent n))
(command “area” “o” en)
(setq aa (rtos (getvar “area”) 2 3))
(setq tt (strcat “area: ” aa))

(redraw en 3)
(setq base (getpoint “n 클릭해주세여 “))
(command “text” base “500” “” tt)
(redraw en 4)

(setq total_aa (+ total_aa (getvar “area”)))
(setq total_len (+ total_len (getvar “PERIMETER”)))

(setq n (1+ n))
)

(setq total_aa (rtos total_aa 2 3))
(setq total_len (rtos total_len 2 3))
(setq txt (strcat “total area: ” total_aa ” total length: ” total_len ))
(alert txt)
(setq base (getpoint “n 총면적과 길이입니다. “))
(command “text” base “500” “” txt)

(princ)

)


3×3 면적구하면  9000000   이렇게 나옴니다.
  
9.00  이렇게 소수점 둘쨰자리 까지 나오게 해주시면 감사 하겠습니다.