mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-11 10:44:53 +03:00
352ffd7358
Test case tests/bugs/modalg/dxf906 was renamed to bug889 Adding test cases to tests/bugs/moddata Modified expressions puts [checkshape result]. Added command vzfit in end file in folder bugs. Unlocked command coordload in QABugs_3.cxx Modified test case bugs vis buc60738 Added test cases to modalg and moddata Added test cases to caf and fclasses Added test cases to group heal
71 lines
1.8 KiB
Plaintext
Executable File
71 lines
1.8 KiB
Plaintext
Executable File
puts "=============="
|
|
puts "BUC60555"
|
|
puts "CUT Case 3"
|
|
puts "=============="
|
|
cpulimit 5000
|
|
restore [locate_data_file buc60555a.brep] part
|
|
checkshape part
|
|
restore [locate_data_file buc60555b.brep] trTool1
|
|
checkshape trTool1
|
|
|
|
halfspace hs1 trTool1 20000 10000 0
|
|
bcut cut1 part hs1
|
|
checkshape cut1
|
|
|
|
set che [checkshape cut1 r]
|
|
if { [regexp {OK} $che] != 1 } {
|
|
puts "Faulty : mistakes are found in checked shape by checkshape command"
|
|
} else {
|
|
puts "Checking by checkshape - OK"
|
|
}
|
|
|
|
maxtolerance cut1
|
|
|
|
restore [locate_data_file buc60555c.brep] trTool2
|
|
halfspace hs2 trTool2 10000 10000 0
|
|
bcut cut2 cut1 hs2
|
|
checkshape cut2
|
|
|
|
set che [checkshape cut2 r]
|
|
if { [regexp {OK} $che] != 1 } {
|
|
puts "Faulty : mistakes are found in checked shape by checkshape command"
|
|
} else {
|
|
puts "Checking by checkshape - OK"
|
|
}
|
|
|
|
maxtolerance cut2
|
|
|
|
restore [locate_data_file buc60555d.brep] trTool3
|
|
halfspace hs3 trTool3 20000 1000 0
|
|
bcut cut3 cut2 hs3
|
|
|
|
tcopy cut3 result
|
|
|
|
explode cut3 e
|
|
mkcurve cu1 cut3_1
|
|
mkcurve cu2 cut3_2
|
|
mkcurve cu3 cut3_3
|
|
mkcurve cu4 cut3_4
|
|
|
|
set che [checkshape cut3 r]
|
|
if { [regexp {OK} $che] != 1 } {
|
|
puts "Faulty : mistakes are found in checked shape by checkshape command"
|
|
} else {
|
|
puts "Checking by checkshape - OK"
|
|
}
|
|
|
|
checkshape cut3
|
|
|
|
set tolerance [ maxtolerance cut3 ]
|
|
regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
|
|
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
|
|
regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
|
|
|
|
if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
|
|
puts "Faulty : Tolerance of shape is more then 1.0"
|
|
} else {
|
|
puts "Tolerance of shape is less then 1.0"
|
|
}
|
|
set square 2.22138e+07
|
|
set 2dviewer 0
|