1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
puts "========================"
puts "OCC620"
puts "========================"
puts ""
############################
## No possibility to cut the shapes.
############################
restore [locate_data_file OCC620a.brep] a
checkshape a
restore [locate_data_file OCC620b.brep] b
checkshape b
bop a b
if [catch { bopcut result } catch_result] {
puts "Faulty OCC620 : BOPCUT operation was made wrongly"
} else {
puts "OCC620 OK: BOPCUT operation works OK"
}
set square 314742.
set 2dviewer 0
|
