1 puts "TODO OCC12345 ALL: Faulty : The distance between"
2 puts "TODO OCC12345 ALL: Error : The length of result shape is"
4 puts "========================"
6 puts "========================"
9 restore [locate_data_file buc60690a.brep] a
10 restore [locate_data_file buc60690b.brep] b
12 set che [checkshape a]
13 if { [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"
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"
25 puts "BUC60690 OK (shape 2): Source shape is valid"
29 set le [explode result v]
30 distmini d1 result_1 b
31 distmini d2 [lindex $le [expr [llength $le] - 1]] b
33 regexp {([-0-9.+eE]+)$} [dump d1_val] full du1
35 if { [expr $du1 > 1e-7] } {
36 puts "Faulty : The distance between first vertex and shellB is $du1. It is more then 1e-7."
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."