a87752f3 |
1 | |
2 | puts "================" |
3 | puts "OCC300" |
4 | puts "================" |
5 | puts "" |
6 | ################################################# |
7 | ## Compsolids have no volume. #2432(SAM1380) |
8 | ################################################# |
9 | |
10 | restore [locate_data_file OCC300.brep] result |
11 | |
12 | set che [checkshape result] |
13 | if { [regexp {Faulty} $che] == 1 } { |
14 | puts "Faulty OCC300: Source shape is invalid. It was detected by Checkshape command" |
15 | puts "Body of the script was NOT executed" |
16 | } else { |
17 | puts "OCC300 OK: Source shape is valid" |
18 | |
19 | set props [vprops result] |
20 | set list [split ${props}] |
21 | set listLength [llength ${list}] |
22 | if { ${listLength} < 5 } { |
23 | puts "OCC300 - Error : listLength= ${listLength}" |
24 | } |
25 | |
26 | regexp {Mass +: +([-0-9.+eE]+)} $props full volume |
27 | set maxdelta 0.000001 |
28 | if { ${volume} < ${maxdelta} } then { |
29 | puts "OCC300 - Error " |
30 | } else { |
31 | puts "OCC300 - OK" |
32 | } |
33 | puts "Volume = ${volume}" |
34 | } |
35 | |
36 | set square 750 |
37 | set 2dviewer 0 |