This script allows to select control points only.
Dim arrObjects
arrObjects=Rhino.GetObjects("Select control points", 16384, False, False, True)
If IsNull(arrObjects) Then
Rhino.Print("Not selected")
Else
Rhino.SelectObjects arrObjects
End If
Note:
- Alternatively, use the Selection Filter.