mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +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.
40 lines
868 B
Plaintext
40 lines
868 B
Plaintext
puts "============"
|
|
puts "OCC28661"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# BRepOffsetAPI_MakePipeShell throws an exception Standard_NoSuchObject
|
|
#######################################################################
|
|
|
|
circle sp 0 0 0 6
|
|
mkedge sp sp
|
|
wire sp sp
|
|
circle pr 0 0 0 0 -1 0 10
|
|
trim pr pr 0 pi
|
|
mkedge pr pr
|
|
wire pr pr
|
|
|
|
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]
|
|
|
|
if { $error != 0 } {
|
|
puts "Faulty: tolerance reached on resulting surfaces is wrong"
|
|
}
|