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