puts "PRO15946" puts "Fuse" puts "" restore [locate_data_file uki60919a.brep] base restore [locate_data_file uki60919b.brep] cont prism pr cont 0 0 -200 bcut res pr base explode res bfuse result base res_1 set square 64405.2