a87752f3 |
1 | puts "========================" |
2 | puts " OCC317 " |
3 | puts "========================" |
4 | puts "" |
5 | ################################################## |
6 | ## A Solid "so" is valid, whereas wire "so_5" from the solid is not valid. |
7 | ################################################## |
8 | |
9 | restore [locate_data_file OCC317.brep] result |
10 | |
11 | set che [checkshape result] |
12 | if { [regexp {Faulty} $che] == 1} { |
13 | puts "Faulty OCC317: Source shape is invalid. It was detected by Checkshape command" |
14 | puts "Body of the script was NOT executed" |
15 | } else { |
16 | puts "OCC317 OK: Source shape is valid" |
17 | explode result w |
18 | |
19 | set che [checkshape result_5] |
20 | if { [regexp {Faulty} $che] == 1} { |
21 | puts "Faulty OCC317: Wire is invalid. It was detected by Checkshape command" |
22 | } else { |
23 | puts "OCC317 OK : Wire is valid." |
24 | } |
25 | |
26 | set che [checkshape result r] |
27 | if { [regexp {OK} $che] != 1 } { |
28 | puts "Faulty OCC317: Wire is invalid. It was detected by Checkshape command" |
29 | } else { |
30 | puts "OCC317 OK : Wire is valid." |
31 | } |
32 | } |
33 | |
34 | set square 2104.21 |
35 | set 2dviewer 0 |
36 | |