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))