|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。) X$ m7 }( X4 o$ E/ O6 X
语句是这样的( C; p) v. T+ `+ |6 F
is
2 z$ D+ D V, O8 S3 V& A9 G i:integer;
! @! x1 S! l8 c+ V$ ]3 T Res:string;5 t; }8 M6 k" V
obj:object;
5 I- y+ b) }$ O- U7 Cdo
' c" y5 e' y9 |/ C4 u# S% U* T if existsObject("Status") then0 j# U* ~2 i- M6 `& x) K
Status.deleteObject;, D) x, k( p- \: i/ y& X, z5 |, @' l. n
end;2 w9 z- c8 Y R6 R. @# }) x
for i:=1 to 10 loop0 T6 d3 w. S4 s& A, E7 I4 ~7 G
Res:=sprint("Store_",i);1 y- Z1 }' D6 b
if existsObject(Res) then. f6 \" c; M6 F0 E$ e/ E
Obj:=str_to_obj(Res);3 h/ p0 x; L* z
Obj.deleteObject;
' u; L$ _3 Q- ^/ u4 ?% p1 a$ N end;6 w; I+ G; S) E) g; a+ A+ S/ u) Z
next;1 {4 T+ C4 Y) W% j
--shengcheng Status:zimoxingceng
# [) x. D1 {: o/ F Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
& O* Q: u5 I; F- [, P6 x8 `+ i Obj.Label:="warehouse status";
7 _3 P' _, `- }6 w: d3 k2 C% w
: Z- U3 ?4 Q; G- @7 j& n: s& I/ ? m for i:=1 to WH_nums loop" h9 d: L6 k7 d+ R( e1 x: e
Res:=sprint("Store_",i);
9 \; o5 E9 n0 e7 A4 K: J Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
- B2 o* j9 ?& Q# s6 A( k Obj.Label:=sprint("huojiaceng:",i);) w, @" R, f; K5 m9 `" s
Obj.xDim:=WH_x;( u$ e$ ?0 c8 @$ V; _
Obj.yDim:=WH_y;8 M8 c1 A2 ^" Z, C
Res:=sprint("StoreData_",i);
% V Z1 ?) f7 _6 h$ b E ( |. _3 W% d: `9 s- y4 v
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);7 Y0 R; d5 ^; X) f7 F
Obj.Label:=sprint("huojiaceng:",i);
9 H& b* ~& Z% Q" x Obj.inheritFormat:=false;
5 [% d) J4 f: j8 \ Obj.maxxDim:=WH_x;6 y3 h, B* h7 O. W8 h
Obj.maxyDim:=WH_y;
- }6 k* j. i/ S. W" d' H Obj.ColumnWidth:=3;
# j2 O" R+ P* W* a6 H next;
, ~+ P, r( c9 O, \% \ p: s4 O* H6 w& h7 T
.Delivery.MUs.Forklift.speed:=2;
- W4 X# n3 C" E9 H WH_var.delete({1,Part_Nums+1}..{*,*});
0 F' J# }4 a# D0 P4 ^7 h/ c H for i:=1 to Part_Nums loop2 ^3 ^4 }$ R$ A; h
WH_var[1,i]:=chr(64+i);& N! g" Q8 v! r4 C4 e f
next;# s9 C1 o4 e2 E1 U
end;
- z) `& H5 T& ^6 ^& Y, n& ]$ Y& k出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 ! P, s, y$ d9 \& M# B
8 K8 t8 F6 ]9 k8 y: ~ |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|