61c421bf |
1 | #INTERFACE STEP |
2 | puts "================" |
3 | puts "OCC6811" |
4 | puts "================" |
5 | puts "" |
6 | ####################################################################################### |
7 | # Unstable work of the checkshape on the attached file. |
8 | ####################################################################################### |
9 | |
10 | catch { pload XDE } |
11 | |
12 | set BugNumber OCC6811 |
13 | |
14 | if { [catch { stepread [locate_data_file trj12_b3-tu-203.stp] a * } catch_result] } { |
15 | puts "Faulty ${BugNumber} : here is reading problem" |
16 | } else { |
17 | decho off |
18 | set che_a_1 [checkshape a_1 f] |
19 | set che_a_2 [checkshape a_1 f] |
20 | decho on |
21 | if { [regexp {Faulty} $che_a_1] } { |
22 | puts "Faulty ${BugNumber} : checkshape 1 is wrong for a" |
23 | } |
24 | if { [regexp {Faulty} $che_a_2] } { |
25 | puts "Faulty ${BugNumber} : checkshape 2 is wrong for a" |
26 | } |
27 | |
28 | renamevar a_1 result |
29 | } |
30 | |
31 | set square 1.48021e+06 |
32 | set 2dviewer 0 |