pload QAcommands puts "=======" puts "OCC823" puts "=======" puts "" ############################### ## BRepAlgoAPI_Fuse fails on two cylinders ############################### ## (old topology) ##################################### if { [ catch { set info_result [OCC823 a1 a2 result] } ] } { puts "Faulty OCC823" } else { if { [regexp {FAILED} $info_result] } { puts "Faulty OCC823" } set ExplodeList [explode result] if {[llength ${ExplodeList}] < 1} { puts "Faulty OCC823 : Resulting shape is empty COMPOUND" } } set square 23189.5 set 2dviewer 1