mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-05 11:24:17 +03:00
33 lines
907 B
Plaintext
33 lines
907 B
Plaintext
#INTERFACE STEP
|
|
puts "================"
|
|
puts "OCC6811"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################################
|
|
# Unstable work of the checkshape on the attached file.
|
|
#######################################################################################
|
|
|
|
catch { pload XDE }
|
|
|
|
set BugNumber OCC6811
|
|
|
|
if { [catch { stepread [locate_data_file trj12_b3-tu-203.stp] a * } catch_result] } {
|
|
puts "Faulty ${BugNumber} : here is reading problem"
|
|
} else {
|
|
decho off
|
|
set che_a_1 [checkshape a_1 f]
|
|
set che_a_2 [checkshape a_1 f]
|
|
decho on
|
|
if { [regexp {Faulty} $che_a_1] } {
|
|
puts "Faulty ${BugNumber} : checkshape 1 is wrong for a"
|
|
}
|
|
if { [regexp {Faulty} $che_a_2] } {
|
|
puts "Faulty ${BugNumber} : checkshape 2 is wrong for a"
|
|
}
|
|
|
|
renamevar a_1 result
|
|
}
|
|
|
|
set square 1.48021e+06
|
|
set 2dviewer 0
|