a87752f3 |
1 | puts "=============" |
2 | puts "BUC60830" |
3 | puts "BUC60829" |
4 | puts "=============" |
5 | |
6 | restore [locate_data_file BUC60830-face2.brep] f |
352ffd73 |
7 | checkshape f |
a87752f3 |
8 | |
9 | set che [checkshape f rr] |
10 | if { [regexp {OK} $che] != 1 } { |
11 | puts "Faulty : mistakes are found in SOURCE shape by checkshape command" |
12 | puts "Body of the script was not executed" |
13 | } else { |
14 | puts "Checking of SOURCE shape by checkshape - OK" |
15 | mkoffset result f 1 3 |
16 | renamevar result_1 result |
17 | } |
18 | |
19 | set length 81.5088 |
20 | set 2dviewer 0 |