Ctotal

Uma lispezinha so pra descontrair... Serve para calcular o comprimento acumulado de diversas linhas selecionadas, que podem ser LINE, SPLINE, ARC, LWPOLYLINE, POLYLINE, ELLIPSE
Se tiver outro tipo de linhas ( tem será? ) pode ser adaptada facilmente!!!

mais...

(defun c:ctotal (/ n ss soma ent)
  (tbn:error-init  nil)
  (setq ss (ssget '((0 . "LINE,SPLINE,ARC,LWPOLYLINE,POLYLINE,ELLIPSE")))
    n 0
    soma 0.0)
  (repeat (sslength ss)
    (setq ent (ssname ss n)
      n   (1+ n)
      soma (+ soma (vlax-curve-getdistatparam ent
             (vlax-curve-getendparam ent)) ))
    )
  (prompt (fnum soma 3))
  (tbn:error-restore))

---

Link(s) da(s) subrotina(s) usada(s):
tbn:error-init, fnum, tbn:error-restore

Ah claro, faço uso de algumas subrotintas, então ANTES de dizer que não funcionou, baixe as subrotinas... tem os links para elas no final da lisp... E claro, salve tudo num único arquivo, pra facilitar

Ou baixe isto: ctotal.fas

Carregue com o appload normalmente....