1 puts "TODO #23749 ALL: Exception"
2 puts "TODO #23749 ALL: An exception was caught"
3 puts "TODO #23749 ALL: TEST INCOMPLETE"
5 restore [locate_data_file lh3d_px1.brep] a
7 #removing intersection of faces a_3 and a_220
9 set faces [explode a f]
21 plane p_$i 0 $i*100 0 0 1 0
24 compound result s_$i result
25 set dist [expr $i * 100]
26 puts "OK Section:$dist"
30 set length 2.49755e+06