puts "================" puts "OCC22805" puts "================" puts "" ###################################################################################### # Bug of STEP read/write ###################################################################################### set BugNumber OCC22805 restore [locate_data_file OCC22805-spiral_solid.brep] s stepwrite 0 s $imagedir/${test_image}.stp stepread $imagedir/${test_image}.stp result * set info [checkshape result_1] if { [regexp {This shape seems to be valid} $info]} { puts "OK ${BugNumber}" } else { puts "Faulty ${BugNumber}" } renamevar result_1 result set square 15121.2 set 3dviewer 0