mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-08 18:40:55 +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
35 lines
1.1 KiB
Plaintext
Executable File
35 lines
1.1 KiB
Plaintext
Executable File
#INTERFACE IGES
|
|
puts "========"
|
|
puts "OCC714"
|
|
puts "========"
|
|
puts ""
|
|
####################################################
|
|
## After command sew in DRAW on attached shape free wires are disappeared.
|
|
####################################################
|
|
|
|
restore [locate_data_file OCC714.brep] a
|
|
checkshape a
|
|
|
|
set nb_info1 [nbshapes a]
|
|
regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info1 full ve1
|
|
regexp {EDGE +: +([-0-9.+eE]+)} $nb_info1 full ed1
|
|
regexp {WIRE +: +([-0-9.+eE]+)} $nb_info1 full we1
|
|
|
|
sewing result 0.1 a
|
|
|
|
set nb_info2 [nbshapes a]
|
|
regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info2 full ve2
|
|
regexp {EDGE +: +([-0-9.+eE]+)} $nb_info2 full ed2
|
|
regexp {WIRE +: +([-0-9.+eE]+)} $nb_info2 full we2
|
|
|
|
if { $ve1 != $ve2 || $ed1 != $ed2 || $we1 != $we2} {
|
|
puts [format "Faulty OCC714 : SEWING operation was made WRONGLY: vertexes before %s, edges before %s, wires before %s" $ve1 $ed1 $we1]
|
|
puts [format " vertexes after %s, edges after %s, wires after %s" $ve1 $ed1 $we1]
|
|
} else {
|
|
puts "OK OCC714: SEWING operation was made PROPERLY"
|
|
}
|
|
|
|
set square 12917.1
|
|
set 2dviewer 0
|
|
|