5 igesbrep [locate_data_file OCC23377-Input.igs] result *
6 regexp {Number of Rational BSpline surfaces +([-0-9.+eE]+)} [expshape result 1 1] full nb
7 if { ${nb} != ${check_nb} } {
8 puts "Error : The Number of Rational BSpline surfaces is wrong!"
9 puts "Error : It's $nb indtead of $check_nb!"
11 puts "Number of Rational BSpline surfaces is $nb"