Description This subroutine retrieves the x,y,z position coordinate and weight factor for a specific control point of a NURB surface. Indexing into the NURB surface control points list is given by the (i,j) index values of the NURB function.
Syntax GetNURBSurfControlPt2 nurbNode, ithIndex, jthIndex, x, y, z, w
Parameters nurbNode As Long Node number of the NURB surface whose control point information is being retrieved.
ithIndex As Long Value of "i", where the (i,j) control point is being indexed.
jthIndex As Long Value of "j", where the (i,j) control point is being indexed.
x As Double After execution, this variable holds the value of the X position coordinate for the requested control point.
y As Double After execution, this variable holds the value of the Y position coordinate for the requested control point.
z As Double After execution, this variable holds the value of the Z position coordinate for the requested control point.
w As Double After execution, this variable holds the value of the control point weight.
Examples The example below retrieves the (0,1) control point from a NURB surface, modifies the weight, sets the modified values back to the NURB surface and then updates the model.
Sub Main
Dim nurbNode As Long nurbNode = FindFullName( "Geometry.Elem 1.Surf 1" )
Dim x As Double, y As Double, z As Double, w As Double GetNURBSurfControlPt2( nurbNode, 0, 1, x, y, z, w ) w = w-0.1 SetNURBSurfControlPt2( nurbNode, 0, 1, x, y, z, w ) Update
End Sub
See Also
|