puts "============" puts "OCC28661" puts "============" puts "" ####################################################################### # BRepOffsetAPI_MakePipeShell throws an exception Standard_NoSuchObject ####################################################################### restore [locate_data_file bug27769_W5_slot.brep] pr restore [locate_data_file bug27769_A4_slot.brep] sp wire sp sp mksweep sp addsweep pr buildsweep r explode r f mksurface s1 r_1 set info [dump s1] set check [regexp "SphericalSurface" $info] if { ${check} == 1 } { puts "OK: The basic surface is spherical surface." } else { puts "Faulty: The basic surface is not spherical surface." } set info1 [errorsweep] set check [regexp {Tolerance on surfaces = ([0-9\-+Ee.]+)} $info1 str error] checkreal "Accuracy" $error 0 1.e-10 0 setsweep -FR buildsweep r1