|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
. |# H* m: S5 j2 E语句是这样的
1 S# \8 u$ w6 ] J, K f$ \. w: y3 gis; m! ?5 a. [( k9 Y# T
i:integer;
6 F6 A# `' O; d6 g Res:string;* c7 O% C# a" o) V2 y4 u
obj:object;5 b* f# H; q; x' T) w
do
% t; @ C3 Z. L2 R* J; ^0 _# X4 ~$ j if existsObject("Status") then, e: c, T; s, M7 i, F
Status.deleteObject;
1 O- ~# B% J2 \$ m) S7 c end;5 x9 @) V1 k: ^+ k( I# D
for i:=1 to 10 loop
2 e4 j9 p* l. E& O Res:=sprint("Store_",i);
$ g4 e0 G+ |* g$ T+ N9 U if existsObject(Res) then4 ]" N: G5 i# M5 w# v' s
Obj:=str_to_obj(Res);
% x1 q# D, a# I; { Obj.deleteObject;& T" N. w: ]: j
end;4 @5 a8 n% ?3 g9 a$ w/ }7 T+ o/ t
next;
: F8 {' X7 o" R* @$ b --shengcheng Status:zimoxingceng
" o! H& Y2 R3 a0 N( g Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");) N3 e5 U K, r5 u; W
Obj.Label:="warehouse status";
1 j1 u# e) Y9 D) O) H) M; i ! l. w: j3 w) F
for i:=1 to WH_nums loop
: k7 o _$ `# Q- M1 {8 e Res:=sprint("Store_",i);
' l/ z) W% }: G Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
) {2 C* L- I9 k0 j: A: @ Obj.Label:=sprint("huojiaceng:",i);
2 d, U7 t& x/ Z8 K Obj.xDim:=WH_x;9 l5 a" y4 \- I$ q
Obj.yDim:=WH_y;
: a2 A/ L; ?+ d. W2 s1 D, J) |4 z- e Res:=sprint("StoreData_",i);$ B1 F* y$ L% g( g, I
9 t# A* y, }" P6 W
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);, I1 D! Q$ P% G- O8 L5 J1 u. }
Obj.Label:=sprint("huojiaceng:",i);
0 Y% v8 P3 p& ]1 U Obj.inheritFormat:=false;
; o0 u. Z! ^! h8 Z+ K8 w: E4 T+ ]6 n Obj.maxxDim:=WH_x;% d( \: \" d" r
Obj.maxyDim:=WH_y;; h! r4 Y1 }# h7 a) E4 X/ g: l0 t- L
Obj.ColumnWidth:=3;( s' L$ Z: a/ e, ^8 o( m5 N
next;
7 i' f, c3 U( e' M7 b; l3 b- L % k7 Z7 |0 i9 X+ y2 R+ l5 h* }
.Delivery.MUs.Forklift.speed:=2;
! L- y+ q- G8 c6 X2 i WH_var.delete({1,Part_Nums+1}..{*,*});
( L4 a; X' d3 q8 T( i' G for i:=1 to Part_Nums loop+ L2 r/ e) r: a. n3 ]2 E H0 |/ i
WH_var[1,i]:=chr(64+i);
0 A! P# U+ c1 N/ [" r next;
/ Q& p. n, H: Lend;* P" ]$ q: z& U- ^ l/ L7 \
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
. v/ n4 ~. |$ U; ~+ b/ |( A( E1 b: i9 f9 V. I7 g$ b C
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|