Question

How can I select objects by linetype using RhinoScript?

Example

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  
""RhinoScript"" is a scripting language based on Microsoft's ""VBScript"" language. With ""RhinoScript"", you can quickly add functionality to Rhino, or automate repetitive tasks.
6/20/2008 9:37:51 AM - dale@mcneel.com-204.177.179.101
""RhinoScript"" is a scripting language based on Microsoft's ""VBScript"" language. With ""RhinoScript"", you can quickly add functionality to Rhino, or automate repetitive tasks.
6/20/2008 9:37:51 AM - dale@mcneel.com-204.177.179.101
""RhinoScript"" is a scripting language based on Microsoft's ""VBScript"" language. With ""RhinoScript"", you can quickly add functionality to Rhino, or automate repetitive tasks.
6/20/2008 9:37:51 AM - dale@mcneel.com-204.177.179.101