set oObj = ActiveSceneRoot.addgeometry( "Arc", "NurbsCurve" )

FreezeObj oObj

set oNurbsCurveList = oObj.ActivePrimitive.Geometry

oNurbsCurveList.curves(0).Get siSiNurbs, aControlVertex, aKnots, bClosed, lDegree, eParameterization

for j = 0 to 4

	' 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

	oNurbsCurveList.AddCurve aControlVertex, aKnots, bClosed, lDegree, eParameterization, siSiNurbs

next

set oSubComponent = oNurbsCurveList.CreateSubComponent(siSubCurveCluster, Array(1,2))