;; | ----------------------------------------------------------------------------
;; | MI_CurveLength
;; | ----------------------------------------------------------------------------
;; | Function : Returns the linear slope length of the curve object.
;; |            and under it.
;; | Argument : 'ename' - Curve object name
;; | Returns  : None
;; | Updated  : November 21, 2003
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_CurveLength ( ename / oname param len )
(setq
	oname (vlax-ename->vla-object ename)
	param (vlax-curve-getEndParam oname)						; End parameter
	len   (vlax-curve-getDistAtParam oname param)
)
(vlax-release-object oname)
len
)