pload QAcommands puts "=======" puts "OCC825" puts "=======" puts "" ###################################### ## BRepAlgoAPI_Cut fails on sphere and b-spline face ###################################### ## ## Note: test for old topology ## ################################ if { [ catch { set info_result [OCC825 a1 a2 a3 a4 a5] } ] } { puts "Faulty : an exception was caught" } else { bcut result a2 a1 set ExplodeList [explode result] if {[llength ${ExplodeList}] < 1} { puts "Faulty : Resulting shape is empty COMPOUND" } } set square 5890.46 set 2dviewer 1