puts "============" puts "OCC22454" puts "============" puts "" ########################################################### # Export /Import of valid model leads to lost of tolerances ########################################################### pload DATAEXCHANGE restore [locate_data_file bug22454.brep] s checkshape s stepwrite m s $imagedir/shape.stp stepread $imagedir/shape.stp a * set tolref [checkmaxtol s] set tol [checkmaxtol a_1] puts "MAX tolerance shape before export : $tolref" puts "MAX tolerance shape after import : $tol" if { ${tol} > ${tolref} } { puts "Error: Export /Import cause increasing tolerances of shape" } else { puts "Export /Import does not cause increasing tolerances of shape" } checkview -display a_1 -2d -path ${imagedir}/${test_image}.png