'On error resume Next

Main1

Function Main1
  Dim sf1,sf2,arr,n1,n2,i
  Do 
    sf1=Rhino.GetObjects ("面群Ａを選択",8+16,true,true,true)
    if IsNull(sf1) then
      Exit Function
    end if
    arr=Rhino.UnselectedObjects
    Rhino.UnselectAllObjects
    sf2=Rhino.GetObjects ("面群Ｂを選択",8+16,true,false,false,arr)
  Loop While IsNull(sf2)
  Rhino.UnselectAllObjects
  n1=0
  n2=(UBound(sf1)+1)*(UBound(sf2)+1)
  For Each el1 in sf1
    For Each el2 in sf2
      Prompt "交線計算中 " & n1 & "/" & n2
      arr=Rhino.SurfaceSurfaceIntersection(el1, el2,,True)
      If IsArray(arr) Then 
        For i = 0 to UBound(arr)
          Rhino.SelectObject arr(i,1)
        Next 
      End If 
      n1=n1+1
    Next 
  Next
  
  If IsArray(Rhino.SelectedObjects) Then 
    Rhino.print UBound(Rhino.SelectedObjects)+1 & "個の交線を作成しました"
  Else
    Rhino.print "交線が作成できません"
  End If 
End Function