| 1 | puts "==============" |
| 2 | puts "BUC60555" |
| 3 | puts "CUT Case 3" |
| 4 | puts "==============" |
| 5 | cpulimit 5000 |
| 6 | restore [locate_data_file buc60555a.brep] part |
| 7 | checkshape part |
| 8 | restore [locate_data_file buc60555b.brep] trTool1 |
| 9 | checkshape trTool1 |
| 10 | |
| 11 | halfspace hs1 trTool1 20000 10000 0 |
| 12 | bcut cut1 part hs1 |
| 13 | checkshape cut1 |
| 14 | |
| 15 | set che [checkshape cut1 r] |
| 16 | if { [regexp {OK} $che] != 1 } { |
| 17 | puts "Faulty : mistakes are found in checked shape by checkshape command" |
| 18 | } else { |
| 19 | puts "Checking by checkshape - OK" |
| 20 | } |
| 21 | |
| 22 | maxtolerance cut1 |
| 23 | |
| 24 | restore [locate_data_file buc60555c.brep] trTool2 |
| 25 | halfspace hs2 trTool2 10000 10000 0 |
| 26 | bcut cut2 cut1 hs2 |
| 27 | checkshape cut2 |
| 28 | |
| 29 | set che [checkshape cut2 r] |
| 30 | if { [regexp {OK} $che] != 1 } { |
| 31 | puts "Faulty : mistakes are found in checked shape by checkshape command" |
| 32 | } else { |
| 33 | puts "Checking by checkshape - OK" |
| 34 | } |
| 35 | |
| 36 | maxtolerance cut2 |
| 37 | |
| 38 | restore [locate_data_file buc60555d.brep] trTool3 |
| 39 | halfspace hs3 trTool3 20000 1000 0 |
| 40 | bcut cut3 cut2 hs3 |
| 41 | |
| 42 | tcopy cut3 result |
| 43 | |
| 44 | explode cut3 e |
| 45 | mkcurve cu1 cut3_1 |
| 46 | mkcurve cu2 cut3_2 |
| 47 | mkcurve cu3 cut3_3 |
| 48 | mkcurve cu4 cut3_4 |
| 49 | |
| 50 | set che [checkshape cut3 r] |
| 51 | if { [regexp {OK} $che] != 1 } { |
| 52 | puts "Faulty : mistakes are found in checked shape by checkshape command" |
| 53 | } else { |
| 54 | puts "Checking by checkshape - OK" |
| 55 | } |
| 56 | |
| 57 | checkshape cut3 |
| 58 | |
| 59 | set tolerance [ maxtolerance cut3 ] |
| 60 | regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance |
| 61 | regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance |
| 62 | regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance |
| 63 | |
| 64 | if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } { |
| 65 | puts "Faulty : Tolerance of shape is more then 1.0" |
| 66 | } else { |
| 67 | puts "Tolerance of shape is less then 1.0" |
| 68 | } |
| 69 | set square 2.22138e+07 |
| 70 | set 2dviewer 0 |