Rectilinear to rectangle script ICC

proc rectlinear2rectangles {rectilinear_boundary} {
set rects [split_polygons -objects [create_poly_rect -boundary $rectilinear_boundary] -output poly_rect]
set count 1

foreach bbox [get_attribute $rects bbox] {
set section$count $bbox
puts "section$count = $bbox"
incr count
  }
}

Now implement like:
rectlinear2rectangles  [get_attr [get_sel] boundary] ]
Reference : icc2