;;; ESTA RUTINA SIRVE PARA MEDIR LAS LONGITUDES DE LAS POLILINEAS SELECCIONADAS. - el comando es TL
(defun C:TL (/ ss tl n)
   (setq ss (ssget '((0 . "POLYLINE,LWPOLYLINE")))
         tl 0.0
         n (1- (sslength ss))
   )
   (repeat (sslength ss)
      (setq tl (+ tl (vlax-curve-getdistatparam (ssname ss n) (vlax-curve-getendparam (ssname ss n))))
            n (1- n)
      )
   )
   (princ (strcat "\nTotal Length: " (rtos tl)))
   (princ)
)