foreach_in_collection j_obj [get_selection ] {
        set j_IP_ref_name [get_attr $j_obj ref_name ]
        puts "\n$j_IP_ref_name\n"
        foreach_in_collection j_obj2 [get_pins -of $j_obj -filter "port_type == power || port_type == ground" ] {
                set j_pin_name [get_attr $j_obj2 full_name ]
                set j_net_name [get_object_name [get_nets -of $j_obj2 -segments -top_net_of_hierarchical_group ] ]
                puts "$j_net_name\t$j_pin_name"
        }
}