selecting a net next to a given net

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

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