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.