mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
107f794fc9
1. Clearance of fields of class has been added to the method BRepFill_PipeShell::Prepare(). 2. Calculation of error on surfaces has been corrected in the method GeomFill_Sweep::BuildKPart(). 3. New Draw command "errorsweep" has been added to check the error reached on the surfaces built by BRepOffsetAPI_MakePipeShell algorithm.
37 lines
848 B
Plaintext
37 lines
848 B
Plaintext
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
|