|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。7 n1 D3 w: Z- ]: l, P0 J& n' z
语句是这样的" _! E9 c1 {$ O* x7 r' |
is& m4 u4 x2 I! d
i:integer;* g8 y7 n: ~* X: g
Res:string;
. ?1 X( d+ B- k1 x& M! b9 g4 J obj:object;: ~' ^2 E5 }0 W8 l. z
do
7 t5 b- O- a2 S. r+ q" _' u if existsObject("Status") then1 x+ C6 R' I9 {# F. v f H5 c
Status.deleteObject;( D" X) d; ~! n! Z7 ?; b. T
end;+ W# z2 h: z) k8 p
for i:=1 to 10 loop
. C: K5 a' P' ?8 J( s6 } Res:=sprint("Store_",i);. w8 W; C% b6 k# [) T
if existsObject(Res) then3 C B: f0 j+ I4 W4 {; L
Obj:=str_to_obj(Res);; d9 c8 @# h8 I# f6 x: z9 w: K
Obj.deleteObject;
. r& B. Z, ~% J E! y, ~ end;" e5 m- }1 W+ p5 l
next;
# `6 L- p8 [7 ] --shengcheng Status:zimoxingceng9 z2 f8 r& {! ^* E% r: ^) d
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
$ v- P* l W. ?' o" u4 } Obj.Label:="warehouse status";! W: [3 z0 v7 z/ v6 v" w
- I* P: Q& [, ]) q( @9 g for i:=1 to WH_nums loop
! f+ m+ p: i9 \0 x; R. I Res:=sprint("Store_",i);- f6 B7 l% d( F/ m' I
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
9 R: E* c$ R3 r7 t' B Obj.Label:=sprint("huojiaceng:",i);8 P, b- L4 ^8 p) m1 R2 o9 b4 R2 B
Obj.xDim:=WH_x;! p4 P0 i+ o, V+ n/ ]" T' W# Y f5 |
Obj.yDim:=WH_y;
. P/ G9 K; q8 _( s! W9 o, b4 G V% v' K Res:=sprint("StoreData_",i);
, ^/ e& t0 W$ f1 x; V9 N' c0 p) [
! G% {" ~3 Z: e; U2 E! ]' x, @ Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
, |% d- y* W" q' _) L! i Obj.Label:=sprint("huojiaceng:",i);) _% A0 r5 ~0 D; n( {- h
Obj.inheritFormat:=false;
h" E- Z9 A& E& D( b! y( t6 O Obj.maxxDim:=WH_x;
6 |0 Z' S5 b; J9 ]" S Obj.maxyDim:=WH_y;
/ h8 A/ e% A7 A1 Z6 }% ~$ Q5 z Obj.ColumnWidth:=3; L7 Z# }' \( v
next;% q& ~: r. L& X& J9 H
p( \3 W3 W4 h) Y% T" O d .Delivery.MUs.Forklift.speed:=2;( y) i1 R, F8 Z
WH_var.delete({1,Part_Nums+1}..{*,*});1 c& [- l) J& T: W! A
for i:=1 to Part_Nums loop
* K7 f" B+ E2 m+ g: b# k, M9 L6 T WH_var[1,i]:=chr(64+i);; M# [' D6 d N$ s8 B
next;
% A6 G! J8 o9 G4 Y, \4 dend;, N J' l5 W; e5 Q9 {6 Q$ m
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
0 L1 x5 N. }; P4 }, [: E% m h9 w0 D! B" S7 ~- _; x
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|