0e94a94e |
1 | puts "========" |
2 | puts "OCC234" |
3 | puts "========" |
4 | |
5 | ###################################################################### |
6 | ##I believe that attached shape is OK but checkshape finds out some problems (Bad Orientation of Subshape). |
7 | ###################################################################### |
8 | |
9 | restore [locate_data_file OCC234.brep] result |
10 | |
11 | set che [checkshape result r] |
12 | if { [regexp {OK} $che] != 1 } { |
13 | puts "Faulty OCC234 (checkshape) : Checkshape command works wrongly" |
14 | } else { |
15 | puts "OCC234 OK (checkshape) : Checkshape command works properly" |
16 | } |
17 | |
18 | set che [checkshape result] |
19 | if { [regexp {Faulty} $che] == 1 } { |
20 | puts "Faulty OCC234 (checkshape) : Checkshape command works wrongly" |
21 | } else { |
22 | puts "OCC234 OK (checkshape) : Checkshape command works properly" |
23 | } |
24 | |
25 | set square 2464.17 |
26 | set 2dviewer 0 |