foreach_in_coll obj [get_selection ] {
	set j_shape_bbox [get_attr $obj bbox ]
	create_pg_vias -allow_parallel_objects -nets [get_object_name [get_nets -of $obj ] ] -from_layers IA -to_layers B1 -within_bbox $j_shape_bbox
}