Selects a single grip owned by an object. If the object's grips are not turned on, grips will not be selected.
Rhino.SelectObjectGrip (strObject, intIndex)
|
strObject |
Required. String. The identifier of the object. |
|
intIndex |
Required. Number. The zero-based grip index to select. |
|
Boolean |
True or False indicating success or failure. |
|
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.SelectObjectGrip strObject, i
Next
End If