foreach j_obj [dbGet selected ] {
	set j_llx [dbGet $j_obj.box_llx ]
	set j_lly [dbGet $j_obj.box_lly ]
	set j_urx [dbGet $j_obj.box_urx ]
	set j_ury [dbGet $j_obj.box_ury ]
	set j_layer_name [dbGet $j_obj.layer.name ]
	set j_net_name [dbGet $j_obj.net.name ]
	puts "createPGPin $j_net_name -net $j_net_name -geom $j_layer_name $j_llx $j_lly $j_urx [expr $j_lly + $j_urx - $j_llx ] "
	eval "createPGPin $j_net_name -net $j_net_name -geom $j_layer_name $j_llx $j_lly $j_urx [expr $j_lly + $j_urx - $j_llx ] "
}