mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
37 lines
942 B
Plaintext
Executable File
37 lines
942 B
Plaintext
Executable File
puts "TODO OCC12345 ALL: Faulty BUC60898: here is reading problem"
|
|
puts "TODO OCC12345 ALL: Error : The command can not be build."
|
|
|
|
puts "==========="
|
|
puts " BUC60898"
|
|
puts "==========="
|
|
puts ""
|
|
|
|
pload XDE
|
|
catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands }
|
|
|
|
if [catch { igesbrep [locate_data_file $filedir/buc60898.igs] a *} result] {
|
|
## rename to BUC60898.igs
|
|
puts "Faulty BUC60898: here is reading problem"
|
|
} else {
|
|
puts "BUC60898 OK"
|
|
tpcompound a
|
|
|
|
if [catch {sewing result 1e-7 a } catch_result] {
|
|
puts "Faulty BUC60898: function SEWING gives except"
|
|
} else {
|
|
puts " BUC60898 OK: function SEWING works without except"
|
|
}
|
|
}
|
|
|
|
#checkshape res
|
|
#set che [checkshape res r]
|
|
#set err [lindex $che [expr [llength $che] - 1]]
|
|
#if { $err != "OK"} {
|
|
# puts "Faulty : mistakes are found in checked shape by checkshape command"
|
|
#} else {
|
|
# puts "Checking by checkshape - OK"
|
|
#}
|
|
|
|
set square 0
|
|
set 2dviewer 0
|