ab87e6fc |
1 | puts "TODO ?OCC23748 ALL: An exception was caught" |
2 | puts "TODO ?OCC23748 ALL: \\*\\* Exception " |
3 | puts "TODO ?OCC23748 ALL: Error: Offset is not done." |
4 | puts "TODO ?OCC23748 ALL: Faulty OCC745" |
5 | puts "TODO ?OCC12345 ALL: Exception: result is not a topological shape!!!" |
6 | puts "TODO ?OCC12345 ALL: TEST INCOMPLETE" |
f1aa2b62 |
7 | |
8 | pload QAcommands |
9 | |
10 | puts "========" |
11 | puts "OCC745" |
12 | puts "========" |
13 | puts "" |
14 | ########################################### |
15 | # Exception Standard_NullValue while performing the offset: |
16 | ########################################### |
17 | |
18 | restore [locate_data_file OCC745_pocket1.brep] a |
352ffd73 |
19 | checkshape a |
f1aa2b62 |
20 | |
21 | if { [catch { mkoffset result a 1 -10 } status] } { |
22 | puts "Faulty OCC745" |
23 | } else { |
24 | renamevar result_1 result |
25 | set nb_info [nbshapes result] |
26 | set ve 0 |
27 | regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve |
28 | puts [format "Result shape result contains %s vertexes" $ve] |
29 | if { $ve == 0 } { |
30 | puts [format "Faulty : Result shape is NULL shape"] |
31 | } else { |
32 | regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi |
33 | if {$wi > 1 } { |
34 | set ll [explode result w] |
35 | set num [llength $ll] |
36 | puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num] |
37 | foreach {k} $ll { |
352ffd73 |
38 | checkshape $k |
f1aa2b62 |
39 | regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs |
40 | if { $cs != 0 } { |
41 | puts [format "Faulty : Result shape is UNclosed wire !!! " $k] |
42 | } else { |
43 | puts [format "OK: Result shape is CLOSED wire !!! "] |
44 | } |
45 | } |
46 | } |
47 | } |
48 | } |
49 | |
50 | set length 0 |
51 | set 2dviewer 0 |
52 | |