mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-07 13:47:37 +08:00
21 lines
543 B
Plaintext
21 lines
543 B
Plaintext
|
|
puts "========="
|
|
puts "BUC61006"
|
|
puts "========="
|
|
puts ""
|
|
#########################################################
|
|
## Checkshape says that face is valid but it inludes selfintersecting wire.
|
|
#########################################################
|
|
|
|
restore [locate_data_file buc61006.brep] result
|
|
decho off
|
|
set ch [checkshape result]
|
|
decho on
|
|
|
|
if {![string compare $ch "This shape seems to be valid"]} {
|
|
puts "Error : the checkshape command returns incorrect result."
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|