|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。* i% B! G2 {' S2 R/ N
语句是这样的: [/ \- N P6 Y
is
, I! O1 R5 o3 C% h8 K i:integer;& Z5 ^" w! k! ^0 q
Res:string;
" W; ?7 {2 ?9 J- N' q+ F obj:object;
/ l' Q5 |, _5 D; U1 ~5 [do' f. {7 r' D8 F6 g) f
if existsObject("Status") then) p7 P& A6 B5 p6 Z7 q
Status.deleteObject;
6 N% T' i$ e+ X' q: ] end;. r" ^+ k& ]/ [1 k' A& C
for i:=1 to 10 loop/ C# @9 n. v9 j/ n: J \: g* k
Res:=sprint("Store_",i);3 \( g; ?' ]# j( \( Z
if existsObject(Res) then! t' n) ?6 F& ?: l7 f5 w% e3 a( B
Obj:=str_to_obj(Res);; K2 I% G. H6 E" C% O$ e
Obj.deleteObject;' ?6 i/ c+ ]! U. j0 u. m: }, b
end;
9 H! C C0 w/ ]% q next;
: M" s3 m4 U4 T% n9 k+ z) N- K7 c --shengcheng Status:zimoxingceng2 J& _0 x3 G8 v' F4 C3 M
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
$ X3 F3 P' }% }1 \* N2 p Obj.Label:="warehouse status";. g* {" s; m& M3 j% S5 Y
5 u% y n$ B, ` for i:=1 to WH_nums loop' [; Z. U( p: ?* W7 u6 a0 ^
Res:=sprint("Store_",i);' @" P# o# g( V! k. v
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
$ F( H% \3 r* Y! C0 h7 a Obj.Label:=sprint("huojiaceng:",i);
4 i2 f$ h# y0 S. s, W# ? Obj.xDim:=WH_x;
4 W4 D o8 M, K Obj.yDim:=WH_y;8 O; j! X7 ?) Y% t0 W
Res:=sprint("StoreData_",i);
6 Y3 D i3 R0 ]! Q3 d! q : x( e5 P; j( f/ K& h" H
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
" [/ E8 {! S1 A- f& ?" ^ Obj.Label:=sprint("huojiaceng:",i);
" `' `' K# l' o6 b Obj.inheritFormat:=false;
+ s1 k) \) v% d# j% d( S* P+ Z Obj.maxxDim:=WH_x;
0 u0 p. k! I: `, B @, K3 B: i Obj.maxyDim:=WH_y;; R4 C! K s1 O. y7 I
Obj.ColumnWidth:=3;) V5 S3 P4 G y! R b
next;
2 b8 r" P8 W5 w$ I! P" B ; g0 b% E5 O4 @3 I
.Delivery.MUs.Forklift.speed:=2;
& V. a7 a$ ], Q) ~3 n1 \$ H WH_var.delete({1,Part_Nums+1}..{*,*});
i( L1 b$ Z. K3 W for i:=1 to Part_Nums loop1 T0 m; e! |! K* j: Y- p
WH_var[1,i]:=chr(64+i);
8 p; V8 B/ _4 J: s/ y next;
C: z. J w. {0 i5 U7 S$ \end;
. j; ^9 O2 m- H2 |$ Y出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
8 i# y! o; I$ y7 n$ E+ E+ m* m' C9 [4 ]- F2 a0 u0 i6 n! B, |
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|