Description

This function retrieves the number of control points specified for in a NURB surface.

Syntax

nPoints = GetNURBSurfControlPtCount ( nurbNode )

Parameters

nPoints (Long)

Returned number of control points in the NURB surface.

nurbNode As Long

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

Examples

The example below retrieves the number of control points from a NURB surface 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 cpCount As Long

    cpCount = GetNURBSurfControlPtCount( sNode )

    Dim curPt As Long

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

    Print "Point";

    Print "X";

    Print "Y";

    Print "Z";

    Print "W"

    For curPt = 0 To cpCount-1

        GetNURBSurfControlPt( sNode, curPt, x, y, z, w )

        Print curPt;

        Print x;

        Print y;

        Print z;

        Print w

    Next

End Sub

See Also

Surface Commands