;; | ----------------------------------------------------------------------------
;; | MI_CurveMidPt
;; | ----------------------------------------------------------------------------
;; | Function : Returns the mid point of the curve.
;; | Argument : 'ename' - Curve object name
;; | Returns  : None
;; | Updated  : Macrh 6, 2005
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_CurveMidPt ( ename / oname param len MidPt OS )
(setq OS (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq
	oname (vlax-ename->vla-object ename)
	param (vlax-curve-getEndParam oname)						; End parameter
	len   (vlax-curve-getDistAtParam oname param)
	param (vlax-curve-getParamAtDist oname (* 0.5 len))
	MidPt nil
)
(if param
	(setq MidPt (vlax-curve-getPointAtParam oname param))
)
(vlax-release-object oname)
(setvar "OSMODE" OS)
MidPt
)