mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +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
47 lines
1.4 KiB
Plaintext
Executable File
47 lines
1.4 KiB
Plaintext
Executable File
puts "TODO OCC12345 ALL: Faulty : Result shape is NULL shape"
|
|
puts "TODO OCC12345 ALL: Error : The command is not valid. The length is"
|
|
|
|
puts "========"
|
|
puts "OCC745"
|
|
puts "BUC60878"
|
|
puts "========"
|
|
puts ""
|
|
################################
|
|
# There are discontinuities in offset contours:
|
|
################################
|
|
|
|
restore [locate_data_file BUC60878-wire3.brep] a
|
|
checkshape a
|
|
|
|
if { [catch { mkoffset result a 1 -10 } status] } {
|
|
puts "Faulty OCC745"
|
|
} else {
|
|
renamevar result_1 result
|
|
set nb_info [nbshapes result]
|
|
regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
|
|
puts [format "Result shape result contains %s vertexes" $ve]
|
|
if { $ve == 0 } {
|
|
puts [format "Faulty : Result shape is NULL shape"]
|
|
} else {
|
|
regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
|
|
if {$wi > 1 } {
|
|
set ll [explode result w]
|
|
set num [llength $ll]
|
|
puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
|
|
foreach {k} $ll {
|
|
checkshape $k
|
|
regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
|
|
if { $cs != 0 } {
|
|
puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
|
|
} else {
|
|
puts [format "OK: Result shape is CLOSED wire !!! "]
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
set length 0
|
|
set 2dviewer 0
|
|
|