;; ! ****************************************************************************
;; ! SP_UpdateSpline
;; ! ****************************************************************************
;; ! Function : Update the coordinates of a spline with a new set of coordinate
;; !            values.
;; ! Arguments:
;; !            'ename' - The name of the SPLINE object
;; !            'vlist' - List of coordinates of the spline
;; ! Action   : Modifies the existing spline through Splinedit and recreates the
;; !            polyline as per new vlist2
;; ! Updated  : April 2, 2002
;; ! e-mail   : rakesh.rao@4d-technologies.com 
;; ! Web      : www.4d-technologies.com
;; ! ****************************************************************************


(defun SP_UpdateSpline ( ename vlist / pt entl len len1 FitPts OS )

(setq
	entl   (entget ename)
	FitPts (LI_mitem 10 entl)
	len1   (length FitPts)
	len    (length vlist)
)
(if (= len1 len)
(progn
	(setq OS (getvar "OSMODE"))
	(setvar "OSMODE" 0)
	(GE_Zoom2Lst vlist)
	(command "._Splinedit")
	(foreach pt vlist
		(command "_Move" pt "_Next")
	)
	(command "_X" "_X")
	(setvar "OSMODE" OS)
)
(alert "Error in SP_UpdatePoly: Number of points do not match.")
)
)