3bea4c16 |
1 | puts "================" |
2 | puts "OCC1669" |
3 | puts "================" |
4 | puts "" |
5 | ################################################################# |
6 | # Wrong name mapping of the instances of assembly into STEP file. |
7 | ################################################################# |
8 | |
9 | set BugNumber OCC1669 |
10 | |
11 | catch {pload DCAF} |
12 | |
13 | XNewDoc SA |
14 | |
15 | box b1 10 10 10 |
16 | box b2 20 10 10 |
17 | ttranslate b1 10 0 0 |
18 | ttranslate b2 20 0 0 |
19 | compound b1 b2 bl |
20 | copy bl nbl |
21 | ttranslate nbl 30 0 0 |
22 | compound bl nbl ryad |
23 | copy ryad hryad |
24 | ttranslate hryad -10 0 10 |
25 | copy ryad uryad |
26 | ttranslate uryad 0 0 20 |
27 | compound ryad hryad uryad stena |
28 | |
29 | XAddShape SA stena 1 |
30 | |
31 | SetName SA 0:1:1:1 Wall |
32 | SetName SA 0:1:1:2 Block-Array |
33 | SetName SA 0:1:1:3 Block |
34 | SetName SA 0:1:1:4 Half-Brick |
35 | SetName SA 0:1:1:5 Brick |
36 | |
37 | SetName SA 0:1:1:1:1 base-array |
38 | SetName SA 0:1:1:1:2 next-array |
39 | SetName SA 0:1:1:1:3 top-array |
40 | |
41 | SetName SA 0:1:1:2:1 left-block |
42 | SetName SA 0:1:1:2:2 right-block |
43 | |
44 | SetName SA 0:1:1:3:1 half-brick |
45 | SetName SA 0:1:1:3:2 brick |
46 | |
47 | catch { WriteStep SA $imagedir/${test_image}.stp } |
48 | catch { ReadStep D $imagedir/${test_image}.stp } |
49 | |
50 | puts "Info: Now compare two documents SA and D" |
51 | #DFBrowse SA |
52 | #DFBrowse D |
53 | |
54 | set NamesList1 {Wall Block-Array Block Half-Brick Brick} |
55 | set NamesList2 {base-array next-array top-array} |
56 | set NamesList3 {left-block right-block} |
57 | set NamesList4 {half-brick brick} |
58 | |
59 | set status 0 |
60 | |
61 | for {set i 1} {$i <= 5} {incr i} { |
62 | set name [ GetName D 0:1:1:$i ] |
63 | set ref_name [lindex $NamesList1 $i-1] |
64 | if { $name != $ref_name } { |
65 | set status 1 |
66 | break |
67 | } |
68 | } |
69 | |
70 | if { $status != 1 } { |
71 | for {set i 1} {$i <= 3} {incr i} { |
72 | set name [ GetName D 0:1:1:1:$i ] |
73 | set ref_name [lindex $NamesList2 $i-1] |
74 | if { $name != $ref_name } { |
75 | set status 1 |
76 | break |
77 | } |
78 | } |
79 | } |
80 | |
81 | if { $status != 1 } { |
82 | for {set i 1} {$i <= 2} {incr i} { |
83 | set name [ GetName D 0:1:1:2:$i ] |
84 | set ref_name [lindex $NamesList3 $i-1] |
85 | if { $name != $ref_name } { |
86 | set status 1 |
87 | break |
88 | } |
89 | } |
90 | } |
91 | |
92 | if { $status != 1 } { |
93 | for {set i 1} {$i <= 2} {incr i} { |
94 | set name [ GetName D 0:1:1:3:$i ] |
95 | set ref_name [lindex $NamesList4 $i-1] |
96 | if { $name != $ref_name } { |
97 | set status 1 |
98 | break |
99 | } |
100 | } |
101 | } |
102 | |
103 | if { $status != 0 } { |
104 | puts "Faulty ${BugNumber}" |
105 | } else { |
106 | puts "OK ${BugNumber}" |
107 | } |