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