Sub SolidLineUp
  

' 8..... surfaces
' 16.... polysurfaces
' 24..... 8 + 16 :: select surfaces an polysurfaces


  arrObjects = Rhino.getobjects("surfaces",  24)


  For i = 0 To UBound(arrObjects)-1  
  
  
    strObj1 = arrObjects(i)
    strObj2 = arrObjects(i+1)
  
    arrBBox1 = Rhino.BoundingBox (strObj1)
    arrBBox2 = Rhino.BoundingBox (strObj2)
     
     
    Rhino.addpolyline arrBBox1
    Rhino.addpolyline arrBBox2 
      
     
      
    
  Next
  
  
  
  
End Sub