현재길이, 누적길이 동시에…

길이 구하는 리습인데요…
누적거리만 도출되는데.. 제가 원하는 것은,
객체 선택시마다… 현재길이가 나오고… 마지막에 한꺼번에 누적거리가 나오도록 하고싶어요.

변경 부탁드려요.

(defun c:lle (/ ent n dis ent_l #a #ad #as th)
 (setvar “cmdecho” 0)
 (setq ent (ssget ‘((0 . “LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE”))))
 (setq n 0 dis 0)
 (repeat (sslength ent)
 (setq ent_l (ssname ent n))
 (command “lengthen” ent_l “”)
 (setq dis (+ dis (GETVAR “PERIMETER”)))
 (setq n (1+ n))
 )
 (setq #a (strcat (rtos dis 2 2)))
 (prompt (strcat “n” #a))
 (and
  (setq sel (car (entsel “n텍스트 선택:”)))
  (setq ent (entget sel))
  (entmod (subst (cons 1 #a) (assoc 1 ent) ent))
 )
 (setvar “cmdecho” 1)
 (princ) 
)