|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。- _' `* o/ _% a5 }; Z
语句是这样的/ ~, P! N6 i, O& k3 x) H4 Z
is" s, i. }. q+ f5 ?
i:integer;3 B! A* s* F [5 _. ]8 G$ N
Res:string;$ u1 M+ K) b7 L" F
obj:object;% c3 @, n3 j6 _6 p
do- j. W5 W4 ?: x. N3 D5 L
if existsObject("Status") then, E* Y3 q1 E1 m$ [4 i. j: P
Status.deleteObject;
& q- i! B6 }2 S! y# ^4 p4 `7 k end;+ Z* A4 I( n7 j4 w
for i:=1 to 10 loop* _. v* X5 K8 `3 Q
Res:=sprint("Store_",i);8 A! b. U, x# o- Y% a- ~3 J, _! B1 C
if existsObject(Res) then
7 X6 ~7 @+ c: W Obj:=str_to_obj(Res);
. T3 J7 T& [, H. }, w5 T Obj.deleteObject;
7 _( C2 i8 Q) n! n1 [4 l" N end;: s# K3 j" s2 u9 w8 B0 Y2 p; e
next;
9 f/ q4 c9 E& @# G& j( G& u/ b --shengcheng Status:zimoxingceng
) T+ c. Z7 |9 K6 X: c Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
2 K" O+ O6 ^3 W* z8 r% } Obj.Label:="warehouse status";
: V/ _8 c# D# _' S ) g- J" s8 `+ G* L
for i:=1 to WH_nums loop
+ \0 r& ^5 a7 F0 y0 X6 c Res:=sprint("Store_",i);+ U7 z% v$ O" ]# y
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);3 J/ h. E0 P/ M/ ?' `
Obj.Label:=sprint("huojiaceng:",i);
; S+ {# L" k! ? Obj.xDim:=WH_x;" X9 m9 S1 o& H8 u, }1 ]6 C
Obj.yDim:=WH_y;5 j! T# r8 o$ \9 |% ]/ T! P- ~/ o
Res:=sprint("StoreData_",i);
" m5 l* r) T; d- u! H6 E2 e
) l5 f0 j3 U9 q3 d6 L5 ]+ f Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);, ^; ]! @ u5 I( e
Obj.Label:=sprint("huojiaceng:",i);
4 p+ [: I# u/ r; G/ }9 S0 |0 u Obj.inheritFormat:=false;
7 ?6 G& k9 X2 Q" w+ V1 i& J Obj.maxxDim:=WH_x;7 |% M* k/ k; W: }" F2 i
Obj.maxyDim:=WH_y;
& i: e# ?6 @1 F# a Obj.ColumnWidth:=3;
3 [: }: K" @# @5 ~9 o& w0 x next;
7 S* f! ` Q' f1 F# M
9 B1 K$ T+ u L/ [9 F .Delivery.MUs.Forklift.speed:=2;% {3 a% ^, Q" Y& P4 s: e
WH_var.delete({1,Part_Nums+1}..{*,*});
6 |; R* i- G! a2 H for i:=1 to Part_Nums loop$ }. f" @4 f$ _7 \! Q
WH_var[1,i]:=chr(64+i);, H k: t# n1 i) k
next;0 z: T4 X4 r1 V3 s) K; C
end;. w! C0 R) |# B6 o, x1 j1 p3 ?
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
( Q ? w4 p( D
3 |0 z; H0 o A' r+ I |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|