0e94a94e |
1 | puts "TODO OCC12345 ALL: Error : the resulting shape is unclosed!!!" |
2 | |
3 | puts "========================" |
4 | puts "BUC60775" |
5 | puts "OCC160" |
6 | puts "(CUT: B and A)" |
7 | puts "========================" |
8 | |
9 | restore [locate_data_file buc60775a.brep] a |
10 | puts [checkshape a] |
11 | restore [locate_data_file buc60775b.brep] b |
12 | puts [checkshape b] |
13 | |
14 | bcut result b a |
15 | puts [checkshape result] |
16 | |
17 | set nf [llength [explode result f]] |
18 | if {$nf < 6} { |
19 | puts "Error : the resulting shape is unclosed!!!" |
20 | } |
21 | |
22 | set check_square 1 |
23 | set square 247636 |
24 | set 2dviewer 0 |
25 | |
26 | |