Get-Length-Of

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