|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。% h9 Y' d$ c# o; ]2 C( I
语句是这样的
; S9 v2 b* r8 Uis
+ R8 E I- F2 [ i:integer;
( l4 n; _8 \% j3 p" w+ j- O/ k! o/ J Res:string;. C) x0 l* L! w2 @5 I, }! i
obj:object;
# u" P0 a. h: k4 s9 Tdo
+ [; ]( \5 j$ l7 N$ b1 L if existsObject("Status") then
6 y% v& U( k. M! j" ^) H8 S% M Status.deleteObject;
l% o( D; J/ G6 j' l% \7 r1 k" R end;( T2 \) `! F$ M
for i:=1 to 10 loop
# U7 d/ I% w# e! n4 [: _ Res:=sprint("Store_",i);
% w. X2 ?* K. t if existsObject(Res) then/ @" E6 w: v8 x) A. k
Obj:=str_to_obj(Res);
+ Y; p3 i t* c! r W( v8 T Obj.deleteObject;" D; H$ z2 ^. L9 |
end;$ q Z. r! X) v4 s1 H0 h
next;
) O$ C% a& Z7 c: v --shengcheng Status:zimoxingceng3 Y' Z3 p' u! u* m
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");, m$ S) v- o; a. Z
Obj.Label:="warehouse status";
) w6 b1 b0 ^# `1 n. W3 c$ S# m3 D / O: R! o( [$ P9 z# Y5 C5 C0 k
for i:=1 to WH_nums loop
- F! r5 M+ n: _7 s+ a Res:=sprint("Store_",i);5 f6 I ]. X9 F% y' I' B+ {
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
+ D8 ~3 p, u* C$ K8 \4 `$ G Obj.Label:=sprint("huojiaceng:",i);
$ g0 V8 _# z" a* Q E0 A4 k; m Obj.xDim:=WH_x;
: b0 z- `, ^$ F5 j8 {+ G( ?2 W Obj.yDim:=WH_y;& M1 z( W4 J% g, r! l
Res:=sprint("StoreData_",i);
3 f! J9 x2 y7 m
: w, E" M+ g( x' I9 O# X: V Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
1 T0 X1 }) m: K, n9 P Obj.Label:=sprint("huojiaceng:",i);% g" c% c$ M6 m4 E0 S
Obj.inheritFormat:=false;
- A& T* C0 O V2 v4 k Obj.maxxDim:=WH_x;
6 L( E7 L, ~. B Obj.maxyDim:=WH_y;- i1 ?1 }$ Q. h7 G8 y( w
Obj.ColumnWidth:=3;$ M! C9 f* P6 o4 b
next;& D# ~; {2 V0 B
2 j1 |- a5 T2 C .Delivery.MUs.Forklift.speed:=2;
& {: s6 T; A, P$ q WH_var.delete({1,Part_Nums+1}..{*,*});) M6 m1 J* u6 K! q% a; O5 I
for i:=1 to Part_Nums loop& B& Z5 a# Y5 c4 G/ J
WH_var[1,i]:=chr(64+i);
+ [% h$ s$ F" R9 V$ s6 I next;( J1 F; {! {' P$ N8 o2 H
end;
; W0 s3 h( f3 F8 b出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
$ `9 i+ }% k" D3 r; `& |: N$ j9 G1 J3 z: s7 q6 {$ u
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|