0e94a94e |
1 | puts "===========" |
2 | puts "BUC60555" |
3 | puts "CUT Case 1" |
4 | puts "===========" |
5 | #cpulim add aki 070704 |
6 | cpulimit 1600 |
7 | restore [locate_data_file buc60555a.brep] part |
352ffd73 |
8 | checkshape part |
0e94a94e |
9 | restore [locate_data_file buc60555b.brep] trTool1 |
352ffd73 |
10 | checkshape trTool1 |
0e94a94e |
11 | halfspace hs1 trTool1 20000 10000 0 |
12 | bcut cut1 part hs1 |
13 | |
352ffd73 |
14 | checkshape cut1 |
0e94a94e |
15 | |
16 | tcopy cut1 result |
17 | |
18 | explode cut1 e |
19 | mkcurve cu1 cut1_1 |
20 | mkcurve cu2 cut1_2 |
21 | mkcurve cu3 cut1_3 |
22 | mkcurve cu4 cut1_4 |
23 | |
24 | set tolerance [ maxtolerance cut1 ] |
25 | |
26 | regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance |
27 | regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance |
28 | regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance |
29 | |
30 | if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } { |
31 | puts "Faulty :Tolerance of shape is more then 1.0" |
32 | } else { |
33 | puts "Tolerance of shape is less then 1.0" |
34 | } |
35 | |
5b0f2540 |
36 | set square 4.21741e+007 |
0e94a94e |
37 | set 2dviewer 0 |