;; | ----------------------------------------------------------------------------
;; | PL_GetMiddlePoint
;; | ----------------------------------------------------------------------------
;; | Function : Find the middle point of a line, polyline, arc or spline object
;; | Arguments:
;; |            'ename'  - Name of the 2d polyline
;; | Action   : Returns the middle point of the curve object
;; | Updated  : June 5, 2004
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun PL_GetMiddlePoint ( ename / oname param CurveLen MidPt )
(setq
	oname    (vlax-ename->vla-object ename)
	param    (vlax-curve-getEndParam oname)						; End parameter
	CurveLen (vlax-curve-getDistAtParam oname param)
	param    (vlax-curve-getParamAtDist oname (* 0.5 CurveLen))
	MidPt    (vlax-curve-getPointAtParam oname param)
)
(vlax-release-object oname)
MidPt
)