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