a87752f3 |
1 | puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_1" |
2 | puts "TODO OCC12345 ALL: Error : The square of result shape is" |
3 | |
4 | pload QAcommands |
5 | |
6 | puts "================" |
7 | puts "OCC307" |
8 | puts "SAM1265" |
9 | puts "================" |
10 | puts "" |
11 | |
12 | restore [locate_data_file OCC307.brep] f |
13 | |
14 | set che [checkshape f] |
15 | if { [regexp {Faulty} $che ] == 1} { |
16 | puts "Warning OCC307: Source shape is invalid. It was detected by Checkshape command" |
17 | } else { |
18 | puts "OCC307 OK: Source shape is valid" |
19 | } |
20 | |
21 | explode f f |
22 | |
23 | renamevar f w |
24 | |
25 | explode w w |
26 | |
27 | OCC307 result1 f_4 w_6 0 |
28 | OCC307 result2 f_5 result1 0 |
29 | |
352ffd73 |
30 | checkshape result1 |
a87752f3 |
31 | renamevar result2 result |
32 | |
33 | set square 0 |
34 | set 2dviewer 0 |
35 | |
36 | |