Description This subroutine sets 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 SetNURBSurfControlPt2 nurbNode, ithIndex, jthIndex, x, y, z, w
Parameters nurbNode As Long Node number of the NURB surface whose control point information is being modified.
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 This variable holds the value of the X position coordinate that will be applied to the requested control point.
y As Double This variable holds the value of the Y position coordinate that will be applied to the requested control point.
z As Double This variable holds the value of the Z position coordinate that will be applied to the requested control point.
w As Double This variable holds the value of the control point weight that will be applied to the requested control point.
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
|