;;--------------------=={ Total Length }==--------------------;;
;; ;;
;; Displays the total length of selected objects at the ;;
;; command line. The units and precision format of the ;;
;; printed result is dependent upon the settings of the ;;
;; LUNITS & LUPREC system variables respectively. ;;
;;------------------------------------------------------------;;
;; Author: Lee Mac, Copyright © 2013 - www.lee-mac.com ;;
;;------------------------------------------------------------;;
(defun c:tlen
( / e i l s
) '( (0 . "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE")
(-4 . "<NOT")
(-4 . "<AND")
(0 . "POLYLINE") (-4 . "&") (70 . 80)
(-4 . "AND>")
(-4 . "NOT>")
)
)
)
)
)
(princ "\nTotal Length: ") )
)
)