puts "============" puts "OCC24596" puts "============" puts "" ############################### ## Slow import of IGES data ############################### pload QAcommands if { [regexp {Debug mode} [dversion]] } { cpulimit 8500 if { [regexp {Windows} [dversion]] } { set max_time 3000 set max_time2 2300 } else { set max_time 5500 set max_time2 4000 } } else { cpulimit 2600 if { [regexp {Windows} [dversion]] } { set max_time 1100 set max_time2 700 } else { set max_time 1600 set max_time2 1000 } } # 1 - igesread dchrono h reset dchrono h start igesread [locate_data_file 100B_Nosecone_with_Triangular_FSS.igs] a 43479 dchrono h stop set q [dchrono h show] regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z puts "$z" if { $z > ${max_time} } { puts "Elapsed time of igesread is more than ${max_time} seconds - Faulty" } else { puts "Elapsed time of igesread is less than ${max_time} seconds - OK" } # 2 - checkshape dchrono h2 reset dchrono h2 start checkshape a_1 dchrono h2 stop set q2 [dchrono h2 show] regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2 puts "$z2" if { $z2 > ${max_time2} } { puts "Elapsed time of checkshape is more than ${max_time2} seconds - Faulty" } else { puts "Elapsed time of checkshape is less than ${max_time2} seconds - OK" }