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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
puts "========="
puts "OCC24825"
puts "========="
puts ""
###########################################################
# Fit Boolean Operation Algorithm to treat multiple arguments.
###########################################################
restore [locate_data_file bug24825_steering-wheel-ring1.brep] b1
restore [locate_data_file bug24825_steering-wheel-ring2.brep] b2
restore [locate_data_file bug24825_steering-wheel-drum.brep] b4
restore [locate_data_file bug24825_steering-wheel-handle.brep] hb
set qs {}
set N 10
set N1 [expr 360. / $N ]
for {set i 0} {$i < $N} {incr i} {
tcopy hb hb_${i}
trotate hb_${i} 0. 0. 0. 0. 0. 1. [expr $i * $N1 ]
lappend qs hb_${i}
}
eval compound $qs b3
tcopy b1 b5
ttranslate b5 0 0 100
tcopy b2 b6
ttranslate b6 0 0 100
tcopy b3 b7
ttranslate b7 0 0 100
#-fuse-#
bclearobjects
bcleartools
baddobjects b2 b6 b4
baddtools b1 b5
baddctools b3
baddctools b7
bfillds
bbop result 1
set square 157211
set nb_v_good 106
set nb_e_good 164
set nb_w_good 142
set nb_f_good 80
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 495
set 2dviewer 1
|
