Developer: RhinoScript
Summary: Demonstrates how to select objects by linetype using RhinoScript.

How can I select objects by linetype using RhinoScript?

The following example code demonstrates how to select objects by linetype. In this example all objects that are assigned the specified linetype are selected. But, it is not difficult to select only certain types of objects (e.g. curves).

 Sub SelLinetype
 
   Dim strLinetype
   strLineType = Rhino.GetString("Object linetype name to select")
   If Not IsString(strLinetype) Then Exit Sub
   If Not Rhino.IsLinetype(strLinetype) Then Exit Sub
 
   Dim arrObjects, strObject
 
   ' If you want to filter on all visible objects,
   ' use the following line of code.
   arrObjects = Rhino.NormalObjects
 
   ' Or, if you want to filter on just curve objects
   ' use the following line of code.
   ' arrObjects = Rhino.ObjectsByType(4)
 
   If IsArray(arrObjects) Then
     Rhino.EnableRedraw False
     For Each strObject In arrObjects
       If StrComp(Rhino.ObjectLinetype(x), strLinetype, 1) = 0 Then
         Rhino.SelectObject(strObject)
       End If
     Next
     Rhino.EnableRedraw True
   End If
 
 End Sub
 
 Function IsString(ByVal str)
   IsString = False
   If VarType(str) = vbString Then IsString = True
 End Function