mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-11 01:58:22 +08:00
30 lines
794 B
Plaintext
30 lines
794 B
Plaintext
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 |