3 restore [locate_data_file lh3d_px1.brep] a
5 #removing intersection of faces a_3 and a_220
7 set faces [explode a f]
19 plane p_$i 0 $i*100 0 0 1 0
21 set bsres [bsection s_$i b f_$i]
22 if { [regexp {Error} $bsres] } {
23 puts "Error: bsection not done"
25 compound result s_$i result
26 set dist [expr $i * 100]
27 puts "OK Section:$dist"
31 set length 2.49755e+06