Quicker Block Select Instances

Scripting
4

I know this is an old thread but here is a simple script to select similar blocks, using the method Jarek suggested with pre-select accepted :

Sub SelectSimilar()
	
	Dim strObject, StrName
	strObject = Rhino.GetObject("Select block",, 1)

	If Rhino.IsBlockInstance(strObject) Then
		StrName = Chr(34) & Rhino.BlockInstanceName(strObject) & Chr(34)
		Rhino.Command "-SelBlockInstanceNamed " & StrName
	Else
		Rhino.Print("No Block Selected")

	End If	
End Sub

*Edited to format script