0e94a94e |
1 | puts "==========" |
2 | puts "BUC60533" |
3 | puts "==========" |
4 | |
5 | restore [locate_data_file buc60533a.brep] part |
352ffd73 |
6 | checkshape part |
0e94a94e |
7 | #puts "Tolerance part" |
8 | #computetolerance part |
9 | |
10 | restore [locate_data_file buc60533b.brep] trTool |
352ffd73 |
11 | checkshape trTool |
0e94a94e |
12 | #puts "Tolerance trTool" |
13 | #computetolerance trTool |
14 | |
4e57c75e |
15 | #building the result using general fuse algorithm |
16 | #without building halfspace |
17 | bclearobjects |
18 | bcleartools |
19 | baddobjects part trTool |
0e94a94e |
20 | #************************************************* |
4e57c75e |
21 | if [catch {bfillds; bbuild r} catch_result] { |
0e94a94e |
22 | puts "Faulty BUC60533: function CUT works wrongly" |
23 | } else { |
24 | puts " BUC60533 OK: function CUT works properly" |
25 | } |
26 | #************************************************* |
4e57c75e |
27 | explode r |
28 | copy r_1 result |
0e94a94e |
29 | |
30 | #set che [checkshape res r] |
31 | #set err [lindex $che [expr [llength $che] - 1]] |
32 | #if { $err != "OK"} { |
33 | # puts "Faulty : mistakes are found in checked shape by checkshape command" |
34 | #} else { |
35 | # puts "Checking by checkshape - OK" |
36 | |
37 | #explode res e |
38 | #mkcurve cu1 res_1 |
39 | #mkcurve cu2 res_2 |
40 | #mkcurve cu3 res_3 |
41 | #mkcurve cu4 res_4 |
42 | #mkcurve cu5 res_5 |
43 | |
44 | #checkshape res |
45 | |
46 | #set tolerance [ maxtolerance res ] |
47 | #set MaxFaceTolerance [ lindex $tolerance 14 ] |
48 | #set MaxEdgeTolerance [ lindex $tolerance 20 ] |
49 | #set MaxVertexTolerance [ lindex $tolerance 26 ] |
50 | #if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } { |
51 | #puts "Faulty :Tolerance of shape is more then 1.0" |
52 | #} else { |
53 | #puts "Tolerance of shape is less then 1.0" |
54 | #} |
55 | #} |
56 | |
57 | # Objectif : Couper part par trTool |
58 | # |
59 | # part est construite a partir d'un semi de point et de telle facon que u=x et v=y. |
60 | # On obtient une Geom_BSplineSurface. On cree alors la topologie a partir de cette |
61 | # surface via BRepAPI::MakeFace(surface) |
62 | # Dans notre code, a aucun moment, nous |
63 | # n'initialisons la tolerance. |
64 | # |
65 | # Le cut n'est pas effectue car une exception est levee : |
66 | # An exception was caught Standard_ConstructionError: |
67 | # ** Exception ** Standard_ConstructionError: |
68 | |
5b0f2540 |
69 | set square 1.59518e+07 |
0e94a94e |
70 | set 2dviewer 0 |