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 |