1 puts "========================"
3 puts "========================"
5 stepread [locate_data_file PRO20362.stp] a *
10 puts [checkshape a_1_1]
11 puts [checkshape a_1_1 r]
13 set l [explode a_1_1 e]
16 puts "Error : The amount of edges in FIRST face is more than four"
19 puts [checkshape a_1_2]
20 puts [checkshape a_1_2 r]
22 set i [explode a_1_2 e]
25 puts "Faulty : The amount of edges in SECOND face is more than four"