Esqueci de postar esta rotina:
; função para calcular o comprimento de linhas
(defun get-length-of (ent)
(if (setq ent (ename-of ent))
(vlax-curve-getdistatparam ent (vlax-curve-getendparam ent))))
Link(s) da(s) subrotina(s) usada(s):
get-length-of, ename-of