change_selection

foreach obj [ get_attr [get_drc_errors -error_data [get_drc_error_data block_top.err ] -filter "type_name ==  M1.S1" ] bbox ] {
#   puts $obj
    set llx [lindex [lindex $obj 0 ] 0 ]
    set lly [lindex [lindex $obj 0 ] 1 ]
    set rrx [lindex [lindex $obj 1 ] 0 ]
    set rry [lindex [lindex $obj 1 ] 1 ]
#   puts "change_selection [ win_select_objects -within {[expr $llx - 0.12 ] $lly [expr $rrx + 0.12 ]  $rry } ] "
    set sllx [expr $llx - 0.01 ]
    set srrx [expr $rrx + 0.01 ]
    set slly [expr $lly - 0.01 ]
    set srry [expr $rry + 0.01 ]
#   puts "$sllx $srrx"
    set sbbox [list $sllx $slly $srrx $srry ]
    eval "change_selection -add [ win_select_objects -intersect -within $sbbox ] "
}

# set_attribute -objects [get_selection ] -name via_def -value [get_via_defs -library [current_lib] V2_29_0_0_27_HV]