1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
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
|
