NewScene

CreatePrim "Arc", "NurbsCurve"

set oObj = selection(0)

FreezeObj oObj

set oNurbsCurveList = oObj.ActivePrimitive.Geometry

oNurbsCurveList.curves(0).Get _

	siSiNurbs, _

	aControlVertex, _

	aKnots,_

	bClosed,_

	lDegree,_

	eParameterization

'Translate every controlvertex of the new curve from 5 in x

for i = lbound(aControlVertex,2) to ubound(aControlVertex,2)

	aControlVertex(0,i) = aControlVertex(0,i) + 5

next

call oNurbsCurveList.AddCurve( _

		aControlVertex,_

		aKnots,_

		bClosed,_

		lDegree,_

		eParameterization,_

		siSiNurbs)

logmessage "Curve 0 Length : " & oNurbsCurveList.Curves(0).Length

logmessage "Curve 1 Length : " & oNurbsCurveList.Curves(1).Length

logmessage "CurveList Lenght: " & oNurbsCurveList.Length