40093367 |
1 | restore lh3d_px1.brep a |
2 | |
3 | #removing intersection of faces a_3 and a_220 |
4 | |
5 | set faces [explode a f] |
6 | bop a_3 a_220 |
7 | bopcut a_3 |
8 | compound b |
9 | foreach f $faces { |
10 | compound b $f b |
11 | } |
12 | |
13 | compound result |
14 | |
15 | set i -5 |
16 | while {$i < 0} { |
17 | plane p_$i $i*1000 0 0 1 0 0 |
18 | mkface f_$i p_$i |
19 | bsection s_$i b f_$i -2d -a |
20 | compound result s_$i result |
21 | set dist [expr $i * 1000] |
22 | puts "OK Section$i:$dist" |
23 | incr i |
24 | } |
25 | |
26 | incr i 5 |
27 | while {$i <= 30} { |
28 | plane p_$i $i*1000 0 0 1 0 0 |
29 | mkface f_$i p_$i |
30 | bsection s_$i b f_$i -2d -a |
31 | compound result s_$i result |
32 | set dist [expr $i * 1000] |
33 | puts "OK Section$i:$dist" |
34 | incr i 5 |
35 | } |
36 | incr i 20 |
37 | while {$i <= 105} { |
38 | plane p_$i $i*1000 0 0 1 0 0 |
39 | mkface f_$i p_$i |
40 | bsection s_$i b f_$i -2d -a |
41 | compound result s_$i result |
42 | set dist [expr $i * 1000] |
43 | puts "OK Section$i:$dist" |
44 | incr i 5 |
45 | } |
46 | |
47 | set length 624193 |