a87752f3 |
1 | puts "TODO OCC12345 ALL: Faulty BUC60682" |
2 | puts "TODO OCC12345 ALL: Error : The square of result shape is" |
3f257c62 |
3 | puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_" |
a87752f3 |
4 | |
5 | pload QAcommands |
6 | |
7 | puts "==================" |
8 | puts "BUC60682" |
9 | puts "==================" |
10 | |
11 | restore [locate_data_file buc60682a.brep] shell1 |
12 | restore [locate_data_file buc60682b.brep] shell2 |
13 | |
14 | set che [checkshape shell1] |
15 | if { [regexp {Faulty} $che ] == 1 } { |
16 | puts "Faulty BUC60682 (shell 1): Source shape is invalid. It was detected by Checkshape command" |
17 | puts "Body of the script was NOT executed" |
18 | renamevar shell1 result |
19 | } else { |
20 | puts "BUC60682 OK (shell 1): Source shape is valid" |
21 | set che [checkshape shell2] |
22 | if { [regexp {Faulty} $che ] == 1 } { |
23 | puts "Faulty BUC60682 (shell 2): Source shape is invalid. It was detected by Checkshape command" |
24 | puts "Body of the script was NOT executed" |
25 | renamevar shell2 result |
26 | } else { |
27 | puts "BUC60682 OK (shell 2): Source shape is valid" |
28 | ksection result shell1 shell2 1000 0.0001 0.00001 0 |
29 | } |
30 | } |
31 | set square 0 |
32 | set 2dviewer 0 |