|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
3 v N% t, y. R _5 g语句是这样的
# @/ l" W1 y1 _! Jis
3 [* l! d4 t* ~ i:integer;
9 v" p* W$ F, b, z# f0 Q. q1 d Res:string;
/ w( q0 E8 F1 D obj:object;- \' D1 {) G1 I1 }
do
G; ?5 m; r8 u) g5 M+ |" B9 { if existsObject("Status") then
2 k% Z+ h! f: g! y! t/ Y5 U- \2 H Status.deleteObject;
$ A( `$ l$ T9 h! V/ r, ` end;
$ D* V) k3 C1 p6 f$ K for i:=1 to 10 loop
7 F- D1 y# m8 Y/ E; M3 \ Res:=sprint("Store_",i);- g! q B! [5 G- N. M
if existsObject(Res) then
0 v$ e4 l; V5 b [9 ?. ~7 J+ b Obj:=str_to_obj(Res);, a9 P* M, Y5 c4 N* t/ R, [
Obj.deleteObject;
9 o6 p* Y" w: Y: ~( t ` end;
- Z9 ~4 z& }# {' l! l next;7 i9 T. ~" L2 O
--shengcheng Status:zimoxingceng; p6 R* U9 w1 J
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
, D: ^, D! X. ], I7 f% r Obj.Label:="warehouse status";
. t. L C+ F* v6 N & Z1 W& }! }: ?, z# k; J, X' ~9 k/ p
for i:=1 to WH_nums loop
( Q7 y9 X5 p C' N Res:=sprint("Store_",i);( C) L. J4 ]* a' K! U) c$ p
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
" { a1 z. y4 R4 _ Obj.Label:=sprint("huojiaceng:",i);' n" m0 l+ c6 H7 X! O
Obj.xDim:=WH_x;
0 K0 Z" X+ H/ N' t0 n Obj.yDim:=WH_y;) P9 ^2 }5 k6 S5 z2 z# k
Res:=sprint("StoreData_",i);
, }2 c7 X+ [2 b7 |5 l6 @ 8 P: H0 o! r2 m, W6 D4 o
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
/ W7 I: D$ v0 w+ n$ S; Y6 B5 B ~ Obj.Label:=sprint("huojiaceng:",i);
. Z2 U7 v8 A3 w7 b: E# C Obj.inheritFormat:=false;7 _/ s( k( d0 K0 z
Obj.maxxDim:=WH_x;7 z3 U% \' j# k& R3 ~
Obj.maxyDim:=WH_y;2 P6 K+ F n8 ?
Obj.ColumnWidth:=3;! |: V/ o) P) I L$ C
next;
( K$ j/ y, W/ E5 }4 u) b ) L7 S: p( r) u. z+ t# Q
.Delivery.MUs.Forklift.speed:=2;3 v/ }4 f& J9 I% G% J2 K
WH_var.delete({1,Part_Nums+1}..{*,*});
7 _' O" G9 r0 i5 `# V7 T for i:=1 to Part_Nums loop
3 H, W( \6 U0 @" ? WH_var[1,i]:=chr(64+i);: h5 }1 L$ _( _4 {6 G1 l- a
next;) m1 ^4 Y) S7 {9 M: R
end;
6 f7 v6 w' u x& X出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
* |1 ~ m5 i: v+ ~+ i# U
* c% C$ D: K9 d+ x |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|