mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-11 01:58:22 +08:00
27 lines
578 B
Plaintext
Executable File
27 lines
578 B
Plaintext
Executable File
puts "========"
|
|
puts "OCC284"
|
|
puts "========"
|
|
|
|
#########################################################
|
|
## Command "checkshape" "gives" exception during attempt to check attached shape.
|
|
#########################################################
|
|
|
|
restore [locate_data_file OCC284.brep] result
|
|
|
|
decho off
|
|
if [catch { checkshape result } catch_result] {
|
|
set mistake 1
|
|
} else {
|
|
set mistake 0
|
|
}
|
|
decho on
|
|
|
|
if { $mistake != 0} {
|
|
puts "Faulty OCC284 : here is problem in checkshape function"
|
|
} else {
|
|
puts "OCC284 OK: function checkshape works properly"
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|