0911d065 |
1 | puts "==========" |
2 | puts "OCC27169" |
3 | puts "==========" |
4 | puts "" |
5 | ######################################################################## |
6 | # Suspitious behavior of importing names during STEP import |
7 | ######################################################################## |
8 | |
9 | pload DCAF |
10 | |
11 | ReadStep D [locate_data_file bug27169_robot01.step] |
12 | |
13 | set label_1 0:1:1:1:1 |
14 | set label_2 0:1:1:1:2 |
15 | set label_3 0:1:1:1:3 |
16 | set label_4 0:1:1:1:4 |
17 | |
18 | set Name_1 [GetName D ${label_1}] |
19 | set Name_2 [GetName D ${label_2}] |
20 | set Name_3 [GetName D ${label_3}] |
21 | set Name_4 [GetName D ${label_4}] |
22 | |
23 | puts "Name_1='${Name_1}'" |
24 | puts "Name_2='${Name_2}'" |
25 | puts "Name_3='${Name_3}'" |
26 | puts "Name_4='${Name_4}'" |
27 | |
28 | if (![regexp {NAUO1} ${Name_1}]) { |
29 | puts "Error: Name of entitie ${label_1} is bad" |
30 | } else { |
31 | puts "OK: Name of entitie ${label_1} is good" |
32 | } |
33 | if (![regexp {NAUO2} ${Name_2}]) { |
34 | puts "Error: Name of entitie ${label_2} is bad" |
35 | } else { |
36 | puts "OK: Name of entitie ${label_2} is good" |
37 | } |
38 | if (![regexp {NAUO3} ${Name_3}]) { |
39 | puts "Error: Name of entitie ${label_3} is bad" |
40 | } else { |
41 | puts "OK: Name of entitie ${label_3} is good" |
42 | } |
43 | if (![regexp {NAUO4} ${Name_4}]) { |
44 | puts "Error: Name of entitie ${label_4} is bad" |
45 | } else { |
46 | puts "OK: Name of entitie ${label_4} is good" |
47 | } |