sub start | select brep and srfs

filters and assures only srf or breps go into procedure array

____________________________________________________

Dim breps: breps=rhino.getobjects("select Srfs or breps",,True,True)
If isnull(breps) Then Exit Sub
Dim brep,n1,brepstemp()
n1=0
For Each brep In breps
If rhino.ObjectType(brep)=8 Or rhino.ObjectType(brep)=16 Then
ReDim Preserve brepstemp(n1)
brepstemp(n1)=brep
n1=n1+1
End If
Next
If n1=0 Then
rhino.MessageBox "No srf selected"
Exit Sub
End If