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!
Perimeter ?
Jan 23, 2008
8 Replies
Are they all the same length, or of a few different lengths? Are they continuous (touching each other on both sides) or free-standing?
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) )
wrote in message news: snipped-for-privacy@pipex.net...
He says they are 'rectangles'.
He says he can select each side, probably lines.
bob
Yeah, you're right. They are 'closed'. My bad. Tlen will do it
Different leghts. They are continuos.
Thanks to all M.
"Michael Bulatovich" ha scritto nel messaggio news: snipped-for-privacy@news5.newsguy.com...
I meant *aren't* closed...
You can use Paul's lisp, but 200 is a lot of things to pick...
Join the Discussion
Have something to add? Share your thoughts — no account required.
Didn't find your answer?
Ask the community — no account required