puts "============" puts "BUC60882" puts "============" puts "" ####################################################################### ## The edge is corrupted after applying command "fsameparameter": tolerance is increased up to 1e+50 ####################################################################### pload XDE restore [locate_data_file BUC60882_samepar.brep] result set che [checkshape result] if { [regexp {Faulty} $che ] == 1 } { puts "Warning BUC60882: Source shape is NOT correct. It was detected by Checkshape command" } else { puts "BUC60882 OK: Source shape is valid" } puts "*** Before : " regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTol puts "MaxTolerance = $MaxTol" if { $MaxTol > 1 } { puts "Warning : Tolerance of Source edge is more then 1.0" } else { puts " Tolerance of source edge is less then 1.0" } fsameparameter result 1e-5 puts "*** After : " regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTol_1 puts "MaxTolerance = $MaxTol_1" if { $MaxTol_1 > $MaxTol } { puts [format "Faulty BUC60882 : Tolerance of Result edge increased and it is equal to %s" $MaxTol_1] } else { puts " BUC60882 OK: Tolerance of Result edge is less or equal to tolerance of Sourse edge." } set length 1768.53 set 2dviewer 0