Works across different object types (Lines, Polylines, Arcs). Lightweight:
(defun C:ADDLEN (/ ss total len obj) (setq total 0) (setq ss (ssget '((0 . "LINE,ARC,POLYLINE,LWPOLYLINE")))) (if ss (progn (setq n 0) (repeat (sslength ss) (setq obj (ssname ss n)) (setq len (getpropertyvalue obj "Length")) (setq total (+ total len)) (setq n (1+ n)) ) (princ (strcat "\nTotal length: " (rtos total 2 4))) ) (princ "\nNo objects selected") ) (princ) ) addlen.lisp autocad download
A dialog box or command-line readout will show: Works across different object types (Lines, Polylines, Arcs)
