Description

This subroutine retrieves the number of u,v control points specified for in a NURB surface.  Index limits retrieved from the NURB surface control points list is given by the (i,j) index values of the NURB function.

Syntax

GetNURBSurfControlPtCount2 ( nurbNode, iLim, jLim )

Parameters

nurbNode As Long

Node number of the NURB surface whose control point information is being retrieved.

iLim As Long

Number of control points along the i-index of the control point array.

jLim As Long

Number of control points along the j-index of the control point array.

Examples

The example below retrieves the number of control points from a NURB surface using the i,j indexing and then loops each control point and prints its information to the output window.

Sub Main

    Dim sNode As Long

    sNode = FindFullName( "Geometry.Elem 1.Surf 1" )

    Dim uCount As Long, vCount As Long

    GetNURBSurfControlPtCount2( sNode, uCount, vCount )

    Dim curU As Long, curV As Long

    Dim x As Double, y As Double, z As Double, w As Double

    Print "U idx";

    Print "V idx";

    Print "X";

    Print "Y";

    Print "Z";

    Print "W"

    For curU = 0 To uCount-1

        For curV = 0 To vCount-1

            GetNURBSurfControlPt2( sNode, curU, curV, x, y, z, w )

            Print curU;

            Print curV;

            Print x;

            Print y;

            Print z;

            Print w

        Next

    Next

End Sub

See Also

Surface Commands