|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
+ q8 o& G$ \% ~语句是这样的
8 [! M) a# Y, @ u+ [is8 O4 m0 D# e9 b8 s' Y/ y
i:integer;! [* ~& N' c7 I" y, |
Res:string;
3 ?3 ^- y3 p* @3 }# `. L* L obj:object;
4 ^0 v( Q& `$ Jdo
: Z/ D- w2 N" _$ B if existsObject("Status") then
7 e( q' l2 D) H9 G: R Status.deleteObject;
4 K$ O z. R, W end;/ O. [( \) d7 _4 c
for i:=1 to 10 loop$ |# m5 E" ^4 u, n" [: N; J) Y
Res:=sprint("Store_",i);
6 p, j! q/ v& v" g6 B. G, p$ O" g if existsObject(Res) then
, ?8 J0 q3 m/ U Obj:=str_to_obj(Res);
) C( e3 e6 d8 u% e% d5 Q Obj.deleteObject;4 C: k/ ]& \+ U, b0 ~2 y% ?
end;0 ^! c0 n" e( g3 @; c S
next;. K8 i+ q: M% m0 q* [6 h3 Z
--shengcheng Status:zimoxingceng$ D; U# e9 V. W: ?2 c
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");" P, ^; R% w+ L2 A3 l; m" w! S0 A9 U
Obj.Label:="warehouse status";
; }3 q7 m% l3 M p# n
* C: j8 ]0 J. w+ `+ e/ f) b for i:=1 to WH_nums loop
8 W r7 O+ v3 z8 T Res:=sprint("Store_",i);
A* H" C3 y+ m1 M8 N8 A4 i Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);' X8 j0 |# p9 Z n
Obj.Label:=sprint("huojiaceng:",i);
1 e/ Z8 B6 |; B5 x8 z Obj.xDim:=WH_x;
0 B& I9 \4 W( H2 M X Obj.yDim:=WH_y;
3 j( z$ E0 _/ V0 S Res:=sprint("StoreData_",i);
0 g1 t. N! `) Y- y
9 @ g- A- ~/ Q) F; Y2 j Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);- c5 C0 k3 p8 r
Obj.Label:=sprint("huojiaceng:",i);2 i7 p: Q) ^2 Z" C0 F0 D, d7 S
Obj.inheritFormat:=false;
' q9 V; E, W) i Obj.maxxDim:=WH_x;
. A8 n, ~( J, V; l+ D9 F( ^ Obj.maxyDim:=WH_y;
$ R" B7 M; ?* |7 `9 k% x' j! e: p Obj.ColumnWidth:=3;
. O S% v$ n4 ?1 X! T j next;
5 \- M0 G1 n$ D3 G 3 c0 x& v7 w/ n5 q- _/ r
.Delivery.MUs.Forklift.speed:=2;, R- ^( [ H3 Q4 Y2 u
WH_var.delete({1,Part_Nums+1}..{*,*});" G/ Y. g: H% K$ }: p& u! z. y; l
for i:=1 to Part_Nums loop
: |" p: u, ]6 L& z0 ^. A WH_var[1,i]:=chr(64+i);- x8 l7 J/ r& }- |; ]
next;
# b) l2 N* ?9 y; d+ O0 @9 wend;0 d0 P. K8 o% `1 ]
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
9 e6 s. U6 V7 b/ G# K- S/ Z5 t! j$ X
' C# g% l. } I* v, L$ n |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|