SelectCrvOnly

This script allows to select curves only.

Dim arrObjects
arrObjects=Rhino.GetObjects("Select curves", 4, False, False, True)
If IsNull(arrObjects) Then 
    Rhino.Print("Not selected")
Else 
    Rhino.SelectObjects arrObjects
End If

Note:

  • Alternatively, use the Selection Filter.