0e94a94e |
1 | |
2 | puts "================" |
3 | puts "OCC323" |
4 | puts "OCC229" |
5 | puts "================" |
6 | puts "" |
7 | |
8 | restore [locate_data_file OCC323.brep] f |
9 | explode f |
10 | |
11 | decho off |
12 | set che [checkshape f_1] |
13 | decho on |
14 | |
15 | if { [regexp {Faulty} $che ] == 1 } { |
16 | puts "Warning OCC323 (shape1): Source shape is NOT correct. It was detected by Checkshape command" |
17 | } else { |
18 | puts "OCC323 OK (shape1): Source shape is valid" |
19 | } |
20 | |
21 | decho off |
22 | set che [checkshape f_2] |
23 | decho on |
24 | |
25 | if { [regexp {Faulty} $che ] == 1 } { |
26 | puts "Warning OCC323 (shape2): Source shape is NOT correct. It was detected by Checkshape command" |
27 | } else { |
28 | puts "OCC323 OK (shape2): Source shape is valid" |
29 | } |
30 | |
31 | bsection r f_1 f_2 |
352ffd73 |
32 | checkshape r |
0e94a94e |
33 | puts [checksection r] |
34 | |
35 | decho off |
36 | set che [checkshape f_3] |
37 | decho on |
38 | |
39 | if { [regexp {Faulty} $che ] == 1 } { |
40 | puts "Warning OCC323 (shape3): Source shape is invalid. It was detected by Checkshape command" |
41 | } else { |
42 | puts "OCC323 OK (shape3): Source shape is valid" |
43 | } |
44 | |
45 | bsection result f_1 f_3 |
46 | |
47 | set length 1 |
48 | set 2dviewer 0 |
49 | |
50 | |
51 | |