! -_Runscript (

Option Explicit
'Script written by Lucio Zadra
'Script copyrighted by Zadra Giuseppe
'Script version mercoledì 17 ottobre 2012 17:18:40

Call SelBigRadArc()

Sub SelBigRadArc

	Dim Rad, objs, obj, ArcObjs(), CurRad, ptstart, ptend, i, j
	
	i = 0
	j = 1

	objs = Rhino.GetObjects("Seleziona le curve da controllare", 4,, VbTrue)

	If IsArray(objs) Then
		
		Rhino.UnselectAllObjects
		
		Rad = Rhino.GetReal("Inserisci il raggio massimo che devono avere gli archi")
		
		If IsNull(Rad) Then Exit Sub
		
		For Each obj In objs
			
			If Rhino.IsArc(Obj) Then
				CurRad = Rhino.ArcRadius(Obj)
				If CurRad > Rad Then
					ReDim Preserve ArcObjs(i)
					ArcObjs(i) = Cstr(Obj)
					i = i + 1
				End If
			End If
		Next
		
		If i > 0 Then
			Rhino.Print "Trovati " & Cstr(Ubound(ArcObjs) + 1) & " archi con raggio maggire di " & Cstr(Rad)
			Rhino.SelectObjects ArcObjs
		Else
			Rhino.Print "Nessun arco con raggio maggiore di " & Cstr(Rad) & " trovato" 
		End If
		
	End If
End Sub

)