849c1374 |
1 | puts "============" |
2 | puts "OCC22454" |
3 | puts "============" |
4 | puts "" |
5 | ########################################################### |
6 | # Export /Import of valid model leads to lost of tolerances |
7 | ########################################################### |
8 | |
9 | pload DATAEXCHANGE |
10 | |
11 | restore [locate_data_file bug22454.brep] s |
12 | |
13 | checkshape s |
14 | stepwrite m s $imagedir/shape.stp |
15 | stepread $imagedir/shape.stp a * |
16 | |
17 | set tolref [checkmaxtol s] |
18 | |
19 | set tol [checkmaxtol a_1] |
20 | |
21 | puts "MAX tolerance shape before export : $tolref" |
22 | puts "MAX tolerance shape after import : $tol" |
23 | |
24 | if { ${tol} > ${tolref} } { |
25 | puts "Error: Export /Import cause increasing tolerances of shape" |
26 | } else { |
27 | puts "Export /Import does not cause increasing tolerances of shape" |
28 | } |
29 | |
30 | checkview -display a_1 -2d -path ${imagedir}/${test_image}.png |