puts "========================" puts "OCC24390" puts "========================" puts "" ####################################################################### # Sewing produces the result with huge tolerance ####################################################################### pload XSDRAW restore [locate_data_file bug24390_face1.brep] f1 restore [locate_data_file bug24390_face2.brep] f2 sewing result f1 f2 checkshape result set tolmax_f [tolmax f1] regexp {max tol = ([-0-9.+eE]+)} ${tolmax_f} full CMP_TOL set face_list {f2} foreach f ${face_list} { set tolmax_f [tolmax ${f}] regexp {max tol = ([-0-9.+eE]+)} ${tolmax_f} full FaceMaxTolerance if { ${FaceMaxTolerance} > ${CMP_TOL} } { set CMP_TOL ${FaceMaxTolerance} } } set CMP_TOL [expr 5. * ${CMP_TOL}] puts "CMP_TOL=${CMP_TOL}" set tolmaxres [tolmax result] regexp {max tol = ([-0-9.+eE]+)} ${tolmaxres} full MaxTolerance puts "MaxTolerance=${MaxTolerance}" if { ${MaxTolerance} > ${CMP_TOL} } { puts "Error: invalid tolerance" } set 2dviewer 1