a87752f3 |
1 | puts "TODO OCC12345 ALL: Faulty : The distance between" |
2 | puts "TODO OCC12345 ALL: Error : The length of result shape is" |
3 | |
4 | puts "========================" |
5 | puts "BUC60690" |
6 | puts "========================" |
7 | puts "" |
8 | |
9 | restore [locate_data_file buc60690a.brep] a |
10 | restore [locate_data_file buc60690b.brep] b |
11 | |
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" |
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 | } |
45 | set length 0 |
46 | set 2dviewer 0 |
47 | |
48 | |