Perimeter ?

Hi, in a Dwg of a store with many many shelfs, I need to have the linear meters of this shelfs. They are rectangles, but I need the sum of one of sides (I have more 200 rectangles = shelfs). Is possible to have this sum (see image, I need the sum of sides marked with '+')? I try with AREA but Autocad "closes" if I mark only 2 sides. Many thanks!

Are they all the same length, or of a few different lengths? Are they continuous (touching each other on both sides) or free-standing?

Different leghts. They are continuos.
Thanks to all M.
  Quoted Text Here  

You can use Paul's lisp, but 200 is a lot of things to pick...

snipped-for-privacy@toglitogli.it (mino) wrote:
  Quoted Text Here  
Perhaps this lisp will help? After loading it and running it, just click on each line and it will total their lengths.
;|
TLEN.LSP - Total LENgth of selected objects (c) 1998 Tee Square Graphics
|;
(defun C:TLEN (/ ss tl n ent itm obj l) (setq ss (ssget) tl 0 n (1- (sslength ss))) (while (>= n 0) (setq ent (entget (setq itm (ssname ss n))) obj (cdr (assoc 0 ent)) l (cond ((= obj "LINE") (distance (cdr (assoc 10 ent))(cdr (assoc 11 ent)))) ((= obj "ARC") (* (cdr (assoc 40 ent)) (if (minusp (setq l (- (cdr (assoc 51 ent)) (cdr (assoc 50 ent))))) (+ pi pi l) l))) ((or (= obj "CIRCLE")(= obj "SPLINE")(= obj "POLYLINE") (= obj "LWPOLYLINE")(= obj "ELLIPSE")) (command "_.area" "_o" itm) (getvar "perimeter")) (T 0)) tl (+ tl l) n (1- n))) (alert (strcat "Total length of selected objects is " (rtos tl))) (princ) )

message
  Quoted Text Here  
He says they are 'rectangles'.

  Quoted Text Here  
He says he can select each side, probably lines.
bob

  Quoted Text Here  
Yeah, you're right. They are 'closed'. My bad. Tlen will do it

  Quoted Text Here  
I meant *aren't* closed...