|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。+ ~7 q9 U0 z! x! \7 P- o
语句是这样的
D" B3 W" I- d- Eis& X; P) h: t; R7 y5 _% i# T; g
i:integer;
6 T0 V: y( W5 M( r Res:string;$ @+ i* B/ M! G7 [- `" P
obj:object;9 t( F }5 q4 Q) a
do
5 d( O2 ?: \$ U) i( Q if existsObject("Status") then: f2 V2 o* N2 K# O
Status.deleteObject;* W1 K; q, S4 Q* d2 P C
end;
; S0 ]! Q( m8 j0 r, b for i:=1 to 10 loop7 x9 Y8 N* W8 Y, r
Res:=sprint("Store_",i);
: d# @8 X/ F& Y" |! T" p( T if existsObject(Res) then
; R0 l6 T5 S% S+ Q4 [4 ? Obj:=str_to_obj(Res);3 z( S/ e. e; u
Obj.deleteObject;; d8 w9 g ~6 d3 i, B
end;
% m' Y; Z$ `- V4 M next;. t9 G( X$ U" F& Z) m; J3 j
--shengcheng Status:zimoxingceng
' U* l$ x' {; Z _$ a0 ] Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
9 N4 D8 _/ N# K" y# h$ ? Obj.Label:="warehouse status";
0 \1 Q! W! J4 w " x1 M7 } Z! Z# n0 ?
for i:=1 to WH_nums loop
: V& g7 b. B. D" A" Z5 A Res:=sprint("Store_",i);
4 l$ C {( r/ Y; W Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
- C% |8 u- `) E5 S9 J9 L+ A Obj.Label:=sprint("huojiaceng:",i);
! @! ?- c7 k7 L Obj.xDim:=WH_x;
! @ |" G! M( C* G Obj.yDim:=WH_y;
; m/ s4 I }. T- k$ ~& x. n# D Res:=sprint("StoreData_",i);" q9 H9 a7 ~, V% [; i6 o
$ i9 P! \0 j* X7 a3 ?
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);* i9 {, |9 q6 p2 p; q5 ^
Obj.Label:=sprint("huojiaceng:",i);
6 c, \9 T. f8 Z Obj.inheritFormat:=false;
/ r5 | L; D8 g; { Obj.maxxDim:=WH_x; R- y) A \' M/ f' `3 F; s) h. [
Obj.maxyDim:=WH_y;
% x& f5 @- |# D3 _4 H% g Obj.ColumnWidth:=3;/ [# v- Z! F- _3 s( x) g
next;1 E" p/ m) e3 n: {2 q9 _
7 E! k* n& E% R& B .Delivery.MUs.Forklift.speed:=2;
$ r- B5 ?; s. d5 {. |6 W WH_var.delete({1,Part_Nums+1}..{*,*});* F, h2 X( W/ K# b, e8 C7 F' s
for i:=1 to Part_Nums loop6 f; }: B; m8 N' S! d4 W
WH_var[1,i]:=chr(64+i);
7 C) G+ z' A$ j4 F4 _. n$ N4 c next;
4 G( v" Y/ e2 \end;
. u3 ` J4 c; g( Y/ H9 K# A出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 & p$ l7 Q. C; l' @( p! d
9 @+ R- L" ]( ^6 I( N
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|