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