set j_count 0
set j_area 0

foreach_in_collection obj [get_selection ] {
    incr j_count
    set j_area [expr $j_area + [get_attr $obj area ] ]
}

puts "inst num/area: $j_count/$j_area"