set coe [checkoverlapedges e1 e2 $Tolerance_Reached]
puts "c_$i<->c_$j: $coe"
- if { [regexp "Edges is not overlaped" $coe] != 1 } {
- puts "Error: c_$i and c_$j are overlaped"
+ if { [regexp "Edges are not overlapped" $coe] != 1 } {
+ puts "Error: c_$i and c_$j are overlapped"
}
}
}