怎么才能隔点选择，求大神

NoEcho
! -_RunScript (
Sub SelCPJump()
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
End Sub
SelCPJump
)
指令栏 输入以上代码进去 就可以了

多谢

大神