mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
38 lines
981 B
Plaintext
38 lines
981 B
Plaintext
puts "================"
|
|
puts "OCC32"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################
|
|
## Standard_ConstructionError in Algo of the BRepFilletAPI_MakeChamfer
|
|
#######################################################
|
|
|
|
restore [locate_data_file OCC31.brep] sh
|
|
checkshape sh
|
|
|
|
explode sh f
|
|
explode sh_1 e
|
|
|
|
if [catch {chamf res sh sh_6_1 sh_6 A 2 45 sh_6_8 sh_6 A 2 45} inf] {
|
|
if { [regexp "No suitable edges to chamfer" $inf] != 1 } {
|
|
puts "OK. Chamfer was not build. But suitable message was given"
|
|
}
|
|
renamevar res result
|
|
} else {
|
|
checkshape res
|
|
explode res f
|
|
explode res_1 e
|
|
#But before chamfer two edges (res_1_4, res_1_5) union should be to make one arc
|
|
catch {chamf result res res_1_4 res_1 5 5} info
|
|
|
|
if { [regexp "No suitable edges to chamfer" $info] != 1 } {
|
|
puts "Warning. Chamfer was not build. But suitable message was given"
|
|
} else {
|
|
checkshape result
|
|
set square 10
|
|
}
|
|
}
|
|
set 2dviewer 0
|
|
|
|
|
|
|