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