1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
puts "============"
puts "OCC24029"
puts "============"
puts ""
############################################################################################
# Add a flag to bopcheck command to provide possibility to disable Face/Face intersection
############################################################################################
box b1 10 10 10
box b2 5 5 5 10 10 10
compound b1 b2 c
set info1 [bopcheck c]
set info2 [bopcheck c 4]
set info3 [bopcheck c 3]
if { [regexp "x23" $info1] != 1 } {
puts "Error : bopcheck c works wrong"
} else {
puts "OK: bopcheck c works properly"
}
if { [regexp "x11" $info2] != 1 || [regexp "F/F:x12," $info2] != 0 } {
puts "Error : bopcheck c 4 works wrong"
} else {
puts "OK: bopcheck c 4 works properly"
}
if { [regexp "This shape seems to be OK" $info3] != 1 } {
puts "Error : bopcheck c 3 works wrong"
} else {
puts "OK: bopcheck c 3 works properly"
}
|
