a87752f3 |
1 | |
2 | puts "========" |
3 | puts "OCC138" |
4 | puts "========" |
5 | puts "" |
6 | ####################################### |
7 | ## Viewer problem: Selection of objects on global context |
8 | ####################################### |
9 | vinit |
10 | set info [OCC138] |
11 | |
12 | set length [llength ${info}] |
13 | if {${length} < 5 } { |
14 | puts "OCC138: Error (case 1)" |
15 | } else { |
16 | regexp {No of currents += +([-0-9.+eE]+)} $info full NbCurrents |
17 | if {${NbCurrents} != 3 } { |
18 | puts "OCC138: Error (case 2)" |
19 | } |
20 | } |
21 | |
22 | vfit |
23 | set only_screen 1 |