a87752f3 |
1 | puts "TODO OCC12345 ALL: Tcl Exception: Error: file BUC60827d.brep could not be found" |
2 | puts "TODO OCC12345 ALL: TEST INCOMPLETE" |
3 | |
4 | puts "========================" |
5 | puts "BUC60827" |
6 | puts "========================" |
7 | |
8 | #restore Model3-a.brep a |
9 | restore [locate_data_file BUC60827c.brep] a |
10 | |
11 | #restore Model3-b.brep b |
12 | restore [locate_data_file BUC60827d.brep] b |
13 | |
14 | set che [checkshape a] |
15 | if { [regexp {Faulty} $che ] == 1 } { |
16 | puts "Faulty BUC60827 (shape 1): Source shape is invalid. It was detected by Checkshape command" |
17 | puts "Body of the script was NOT executed" |
18 | renamevar a result |
19 | } else { |
20 | puts "BUC60827 OK (shape 1): Source shape is valid" |
21 | |
22 | set che [checkshape b] |
23 | if { [regexp {Faulty} $che ] == 1 } { |
24 | puts "Faulty BUC60827 (shape 2): Source shape is invalid. It was detected by Checkshape command" |
25 | puts "Body of the script was NOT executed" |
26 | renamevar b result |
27 | } else { |
28 | puts "BUC60827 OK (shape 2): Source shape is valid" |
29 | |
30 | bsection result a b |
31 | set rlen 0 |
32 | set rlen [llength [explode res v]] |
33 | if ([expr $rlen == 0]) { |
34 | puts "Faulty :The result of section is an empty compound." |
35 | } else { |
36 | distmini d1 res_1 a_1 |
f1aa2b62 |
37 | regexp {([-0-9.+eE]+)$} [dump d1_val] full len1 |
a87752f3 |
38 | if ([expr $len1 > 1e-7]) { |
39 | puts "Faulty :The section is incomplite." |
40 | } else { |
41 | distmini d2 res_2 a_2 |
f1aa2b62 |
42 | regexp {([-0-9.+eE]+)$} [dump d2_val] full len2 |
a87752f3 |
43 | if ([expr $len2 > 1e-7]) { |
44 | puts "Faulty :The section is incomplite." |
45 | } |
46 | } |
47 | } |
48 | } |
49 | } |
50 | |
51 | set length 0 |
52 | set 2dviewer 0 |