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.
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)
n (1- (sslength ss)))
(while (>= n 0)
(setq ent (entget (setq itm (ssname ss n)))
obj (cdr (assoc 0 ent))
((= 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)
tl (+ tl l)
n (1- n)))
(alert (strcat "Total length of selected objects is " (rtos tl)))