selecting a net next to a given net

 set fp1 [open "nets_list" "r"]
set fp2 [open "nets_next_list" "w"]
foreach net [gets $fp1] {
set netPtr [dbGetNetByName $net]
dbForEachNetWire $netPtr segmentPtr {
set c [dbObjName [dbWireNet $segmentPtr]]
puts $c
dbWireNextInNet $segmentPtr

}
}

 Hi Vishnu

To explain the problem clearly ......

I want to select a net (physically) next to a given net in the design after routing .With the above scipt iam not able to get it.

help me 

I think the best way to do this is to expand the box of a selected wire segment and use "editSelect" to find wires within that box on the same layer:

set selected [dbGet selected]
if {$selected == "0x0"} {
  Puts "Nothing selected"
  return
} elseif {[llength $selected] != 1} {
  Puts "More than 1 wire selected - select a single wire segment and try again"
  return
}
set selectedWire [dbGet selected]
set pts [dbGet $selectedWire.pts]
set net [dbWireNet $selectedWire]
Puts "INFO: Original wire segment is $selectedWire of net [dbGet $net.name]"
set layer [dbGet $selectedWire.layer]
set layerName [dbGet $layer.name]
set direction [dbGet $layer.direction]
if {$direction == "Horizontal"} {
  set pitch [dbGet $layer.pitchY]
  set llx [lindex [lindex [lindex $pts 0] 0] 0]
  set lly [expr [lindex [lindex [lindex $pts 0] 0] 1] - $pitch]
  set urx [lindex [lindex [lindex $pts 0] 1] 0]
  set ury [expr [lindex [lindex [lindex $pts 0] 1] 1] + $pitch]
} else {
  set pitch [dbGet $layer.pitchX]
  set llx [expr [lindex [lindex [lindex $pts 0] 0] 0] - $pitch]
  set lly [lindex [lindex [lindex $pts 0] 0] 1]
  set urx [expr [lindex [lindex [lindex $pts 0] 1] 0] + $pitch]
  set ury [lindex [lindex [lindex $pts 0] 1] 1]
}
set rdagSelectIntersectingBox 1
editSelect -area $llx $lly $urx $ury -layer $layerName
Puts "Nearby wire segments:"
foreach wire [dbGet selected] {
  Puts "  Wire segment $wire of net [dbGet [dbWireNet $wire].name]"
}

Example result:

INFO: Original wire segment is 0x2aa95bb668 of net {high_mag[3]}
Nearby wire segments:
  Wire segment 0x2aa9643ae0 of net n_6011
  Wire segment 0x2aac53fc30 of net n_2506
  Wire segment 0x2aa96270e8 of net {high_mag[3]}
  Wire segment 0x2aa95bb668 of net {high_mag[3]}

Hope this helps,
Bob

Hi Bob

 Iam not able to run the scipt given above.

Isue is with the  command

set direction [dbGet $layer.direction]

'direction' is not a recognized object/attribute. For help use 'dbGet <object>.?' to get list of all supported objects and attributes

 Correct me