Dim oRoot, oSphere, oNurbsSurfaceMesh, oNurbsSurface, _
lDegree(2), bClosed(2), eParameterization(2), aControlPoints, aKnots(2)
set oRoot = Application.activeproject.activescene.root
set oSphere = oRoot.AddGeometry( "Sphere", "NurbsSurface" )
set oNurbsSurfaceMesh = oRoot.AddNurbsSurfaceMesh
oSphere.ActivePrimitive.Geometry.Surfaces(0).GetData _
aControlPoints, _
aKnots(siUDirection),aKnots(siVDirection) , _
bClosed(siUDirection),bClosed(siVDirection), _
lDegree(siUDirection),lDegree(siVDirection), _
eParameterization(siUDirection),eParameterization(siVDirection), _
siSINurbs
' add nurbs surfaces from sphere data.
set oNurbsSurface = oNurbsSurfaceMesh.activeprimitive.geometry.AddSurface( _
aControlPoints, _
aKnots(siUDirection),aKnots(siVDirection), _
bClosed(siUDirection),bClosed(siVDirection), _
lDegree(siUDirection),lDegree(siVDirection), _
eParameterization(siUDirection),eParameterization(siVDirection), _
siSINurbs )
|