61c421bf |
1 | pload QAcommands |
2 | |
3 | puts "================" |
4 | puts "OCC405" |
5 | puts "OCC435" |
6 | puts "SAM1296" |
7 | puts "================" |
8 | puts "" |
9 | |
10 | restore [locate_data_file OCC395-1.brep] e1 |
11 | restore [locate_data_file OCC405-2.brep] e2 |
12 | |
13 | checkshape e1 |
14 | checkshape e2 |
15 | |
16 | OCC405 result e1 e2 |
17 | |
18 | regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num |
19 | |
20 | if { $num == 2 } { |
21 | puts "OCC405 OK : Result shape is CORRECT !!! " |
22 | } else { |
23 | puts " Faulty OCC405: Result shape is INcorrect !!! " |
24 | } |
25 | |
26 | set length 17.5348 |
27 | set 2dviewer 0 |