puts "===========" puts "FRA62369" puts "===========" restore [locate_data_file fra62369a.brep] a checkshape a compound result set i 1 repeat 100 { plane p_$i 0 0 200+$i mkface f_$i p_$i bsection s_$i a f_$i compound s_$i result result incr i } set length 3854.34 set 2dviewer 0