0e94a94e |
1 | puts "========================" |
2 | puts "PRO20362" |
3 | puts "========================" |
4 | |
5 | stepread [locate_data_file PRO20362.stp] a * |
6 | |
7 | explode a_1 f |
8 | renamevar a_1 result |
9 | |
352ffd73 |
10 | checkshape a_1_1 |
11 | checkshape a_1_1 r |
0e94a94e |
12 | |
13 | set l [explode a_1_1 e] |
14 | set n [llength $l] |
15 | if { $n != 4 } { |
16 | puts "Error : The amount of edges in FIRST face is more than four" |
17 | } |
18 | |
352ffd73 |
19 | checkshape a_1_2 |
20 | checkshape a_1_2 r |
0e94a94e |
21 | |
22 | set i [explode a_1_2 e] |
23 | set m [llength $i] |
24 | if { $m != 4 } { |
25 | puts "Faulty : The amount of edges in SECOND face is more than four" |
26 | } |
27 | |
28 | set 2dviewer 0 |