|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
& k' K# C+ ] D- g7 |语句是这样的1 }9 E! q: T! Q9 s( y8 i) @
is/ h$ v) P# h/ Z5 H1 Q# G
i:integer;
, @2 @. ?, V* B% J) ~% i4 l Res:string;6 |$ s: r$ b9 {* d: Q: `
obj:object;
8 e+ _8 E& D7 }# t, udo
7 K ~" g" s5 X if existsObject("Status") then$ J. `7 H8 t( w$ V
Status.deleteObject;
: ?" }) h' U4 _6 E end;
/ F% a5 D- A& m: T9 h: f for i:=1 to 10 loop
: i8 e! W/ |. k# p" X Res:=sprint("Store_",i);
' B d. c" |, b0 ` if existsObject(Res) then
" q! t: t: M/ ~: r Obj:=str_to_obj(Res);9 K8 h* z) R0 y: S
Obj.deleteObject;4 a( r" F/ F, e9 [
end;5 c) _( A7 }/ o3 r
next;+ c, L% R" b! R
--shengcheng Status:zimoxingceng b; \7 L! E( A5 H% J, }
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
8 \6 D& S$ ]" Q: T Obj.Label:="warehouse status";
6 Y" G" Z, Y! h* O+ B & T% X" [; G- i5 x$ `
for i:=1 to WH_nums loop
: B+ [. h' A+ M5 {1 Z7 F# E; | Res:=sprint("Store_",i);
/ Z- c+ W p: x! j5 I" e Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);% d* F1 I9 q2 W$ k: n4 b. ~
Obj.Label:=sprint("huojiaceng:",i);
2 d- }# _& U; B6 x, K+ V8 [ Obj.xDim:=WH_x;# L9 L( E% s6 p% y5 X; U
Obj.yDim:=WH_y;
/ P" f" O$ a: H. u6 n' M Res:=sprint("StoreData_",i);) {! c; v. X% X
& | j3 L% I& d' c/ h: {
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
. ?/ w. T8 m% q; x" X Obj.Label:=sprint("huojiaceng:",i);, F" E4 S0 k; ?' Z. d
Obj.inheritFormat:=false;
! ^6 z) l+ x/ V9 S5 b Obj.maxxDim:=WH_x;/ ?" N8 P- a, ~9 v8 V0 B( j
Obj.maxyDim:=WH_y; v; I- A4 N s2 V6 x7 E8 [$ U: }, C
Obj.ColumnWidth:=3;/ Z0 m3 t$ w3 b- m! G! N& W
next;
5 V4 T8 D( [, N! z! w# O% ^# t$ G0 D ' X; W3 x: o) g% z0 U
.Delivery.MUs.Forklift.speed:=2;
& S- q4 E- f/ _9 N7 b/ o; t WH_var.delete({1,Part_Nums+1}..{*,*});1 Q) [/ \2 M' E4 H% j
for i:=1 to Part_Nums loop0 v7 _/ Z. B3 `$ ]! j4 K4 F" `8 d2 d
WH_var[1,i]:=chr(64+i);
5 Y2 p: B# Y! L& U) s" { next;6 r& W8 Y% l+ p. ~, d/ Y7 V
end;5 m, M1 R# Z* S$ _/ O- ?
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
$ G1 ]9 s+ u! h. S# j: J" @
" N+ m! I1 C7 N4 t X4 R |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|