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 "OCC755"
puts "SAM1607"
puts "(case 1)"
puts "========"
puts ""
####################################################################
##Result of cut of capteur2 from capteur1 is a solid. It must be a compound, as it consists of 2 bodies.
####################################################################
restore [locate_data_file OCC755_1.brep] a1
checkshape a1
restore [locate_data_file OCC755_2.brep] a2
checkshape a2
bcut result a1 a2
set wt_is [whatis result]
set lth [llength $wt_is]
if {$lth < 5} {
puts "Faulty OCC755 (case 1)"
} else {
if {[regexp {COMPOUND} $wt_is] == 1} {
puts "OCC755 OK (case 2)"
} else {
puts "Faulty OCC755 (case 2)"
}
}
set square 1.57358e+06
set 2dviewer 0
|
