|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
. W1 R8 \6 r- U+ K6 P0 Z. [语句是这样的
9 M' M5 I7 ~5 {7 B$ ois- \& X7 D9 `6 a# B+ D; c, v
i:integer;+ `8 B2 k: I4 u& z8 U. z
Res:string;
- q; U; c7 ~! n* c9 n obj:object;
1 Z# l& l; u5 \; Ydo" }, P: `+ p2 g5 N, d, u
if existsObject("Status") then3 z. r# S7 z6 n1 H' ^, ~3 _: z
Status.deleteObject;+ [# X3 B2 [4 k3 \0 W# J! Y9 c3 O# h
end;
! e8 l% {; H7 @ for i:=1 to 10 loop" Q ]/ Y2 t( `5 E; F
Res:=sprint("Store_",i);
/ G& m r0 t# z if existsObject(Res) then
$ V% o3 e8 ^+ T6 P Obj:=str_to_obj(Res);
4 h, |8 ^ h+ D4 p: N Obj.deleteObject;" d' ]- V" V4 F' Q+ j" A
end;8 g: j+ D8 h2 l
next;
% e% R* N$ [! f R8 T( P* @ --shengcheng Status:zimoxingceng
5 G+ g) t; P0 s6 |1 s* ^, z9 t' O Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");8 J; {1 w& w5 X' Z6 Z& y0 R3 {1 S
Obj.Label:="warehouse status";, n; d2 n4 X( O
( Q m9 i7 y" m# h
for i:=1 to WH_nums loop7 j1 m p' O8 H0 N5 i) C
Res:=sprint("Store_",i);
) B" U, f; [0 ?" d5 a( D! F/ ~ Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);2 T3 ?* R' m( J: X" R% ]
Obj.Label:=sprint("huojiaceng:",i);# d0 \6 }& {+ b2 e7 O2 w% J
Obj.xDim:=WH_x;$ D0 x" J8 ]9 o' O
Obj.yDim:=WH_y;6 u* {( W- u: ~. F$ Y& s
Res:=sprint("StoreData_",i);
( _2 m8 d* j$ e7 c8 W & B8 ~3 f! a$ i$ c, X, U
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);! x; Y+ i4 E0 O2 {( _8 K+ w
Obj.Label:=sprint("huojiaceng:",i);
8 a; q# ]3 c( n* Y2 h9 g Obj.inheritFormat:=false;! C! z7 c1 s/ W- k
Obj.maxxDim:=WH_x;
1 ^ x3 G( q2 X) g4 o1 v! k Obj.maxyDim:=WH_y;
* S# Q) w2 e* W. q- j Obj.ColumnWidth:=3;+ {& N9 S: i0 y
next;9 X+ X* u5 y( W- u
6 w1 K& i( T; K9 B4 @
.Delivery.MUs.Forklift.speed:=2;' z0 m% n c, G3 V! ?" R
WH_var.delete({1,Part_Nums+1}..{*,*});& p: Z" S4 g" }$ S
for i:=1 to Part_Nums loop
! b0 @; G' `3 l8 ^1 h. e WH_var[1,i]:=chr(64+i);
7 U# Z3 C$ Q, Y/ F next;
$ t, F4 I' k* u2 f8 W% t$ U9 L# _. Hend;1 H4 ~7 V0 Q7 I; D, X
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
2 ~4 k6 P& n7 h ^7 F6 ]5 {+ K- W% Z2 ]5 W
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|