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