change_selection
set j_design_name [get_object_name [get_designs ] ]

foreach obj [ get_attr [get_drc_errors -error_data [get_drc_error_data ${j_design_name}.err ] -filter "type_name == PM.M6.lv2" ] 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.1 ]
        set srrx [expr $rrx + 0.1 ]
        set slly [expr $lly - 0.1 ]
        set srry [expr $rry + 0.1 ]
#       puts "$sllx $srrx"
        set sbbox [list [list $sllx $slly ] [list $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]