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!

Reply to
mino
Loading thread data ...

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

Reply to
Michael Bulatovich

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) )

Reply to
no-spam-for-hkjffekafphdkdoemehepegkppboihac

wrote in message news: snipped-for-privacy@pipex.net...

He says they are 'rectangles'.

Reply to
Michael Bulatovich

He says he can select each side, probably lines.

bob

Reply to
sycochkn

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

Reply to
Michael Bulatovich

Different leghts. They are continuos.

Thanks to all M.

"Michael Bulatovich" ha scritto nel messaggio news: snipped-for-privacy@news5.newsguy.com...

Reply to
mino

I meant *aren't* closed...

Reply to
Michael Bulatovich

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

Reply to
Michael Bulatovich

PolyTech Forum website is not affiliated with any of the manufacturers or service providers discussed here. All logos and trade names are the property of their respective owners.