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