1puts "TODO OCC12345 ALL: Faulty : The distance between" 2puts "TODO OCC12345 ALL: Error : The length of result shape is" 3 4puts "========================" 5puts "BUC60690" 6puts "========================" 7puts "" 8 9restore [locate_data_file buc60690a.brep] a 10restore [locate_data_file buc60690b.brep] b 11 12set che [checkshape a] 13if { [regexp {Faulty} $che ] == 1 } { 14 puts "Faulty BUC60690 (shape 1): Source shape is invalid. It was detected by Checkshape command" 15 puts "Body of the script was NOT executed" 16 renamevar a result 17} else { 18 puts "BUC60690 OK (shape 1): Source shape is valid" 19 set che [checkshape b] 20 if { [regexp {Faulty} $che ] == 1 } { 21 puts "Faulty BUC60690 (shape 2): Source shape is invalid. It was detected by Checkshape command" 22 puts "Body of the script was NOT executed" 23 renamevar b result 24 } else { 25 puts "BUC60690 OK (shape 2): Source shape is valid" 26 27 bsection result a b 28 29 set le [explode result v] 30 distmini d1 result_1 b 31 distmini d2 [lindex $le [expr [llength $le] - 1]] b 32 33 regexp {([-0-9.+eE]+)$} [dump d1_val] full du1 34 35 if { [expr $du1 > 1e-7] } { 36 puts "Faulty : The distance between first vertex and shellB is $du1. It is more then 1e-7." 37 } 38 39 regexp {([-0-9.+eE]+)$} [dump d2_val] full du2 40 if { [expr $du2 > 1e-7] } { 41 puts "Faulty : The distance between last vertex and shellB is $du2. It is more then 1e-7." 42 } 43 } 44} 45checkprops result -l 0 46checkshape result 47checksection result 48checkview -display result -2d -path ${imagedir}/${test_image}.png 49 50 51