Returns the next grip index from a specified grip index of an object.
Rhino.NextObjectGrip (strObject, intIndex [, intDirection [, blnSelect]])
|
strObject |
Required. String. The identifier of the object. |
|
intIndex |
Required. Number. The zero-based grip index from which to get the next grip index. |
|
intDirection |
Optional. Number. The direction to get the next grip index, either 0=U or 1=V. The default value is 0. Note, this argument only applies when dealing with surfaces. |
|
blnEnable |
Optional. Boolean. If True (default), the next grip index found will be selected. Otherwise, it will not be selected. |
|
Number |
The index of the next grip from the specified grip index. |
|
Null |
If not successful, or on error. |
Dim strObject, intCount, i
strObject = Rhino.GetObject("Select curve", 4)
If Not IsNull(strObject) Then
Rhino.EnableObjectGrips strObject
intCount = Rhino.ObjectGripCount(strObject)
For i = 0 to intCount Step 2
Rhino.NextObjectGrip strObject,i,,True
Next
End If