
v3.0
Creates a SubComponent from the NurbsCurve collection.
// get accessor SubComponent rtn = NurbsCurveCollection.SubComponent; |
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))
|