|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。& H/ d( S# q R4 W _/ M
语句是这样的$ h: e6 r/ | d2 H7 a
is [! g! |2 D" I3 {1 q
i:integer;
, e5 E$ g1 R, U' W; z& x Z* } Res:string;
+ l e" y+ [0 s obj:object;8 u8 p; b* T) e `, n
do
: ~' _& o# m0 n! s! y if existsObject("Status") then8 j9 Y& a" O U/ P8 x) K
Status.deleteObject;2 U$ g2 K% w5 C; A+ O
end;
; }( j. H5 y5 ~& D! { for i:=1 to 10 loop
3 q% S; j; E& g2 k Res:=sprint("Store_",i);3 ~$ c+ x6 A3 k! y m) | Q3 h
if existsObject(Res) then# B# A$ q4 S4 r1 }
Obj:=str_to_obj(Res);4 L2 ]: R" ]1 o
Obj.deleteObject;+ p3 l: e- `2 F
end;
( z& E1 l3 ]5 l. P next;+ C1 ~' Y! I2 f0 \; e- A) |
--shengcheng Status:zimoxingceng
% c7 e* I3 p5 p6 \$ ? Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
x: m: Z: Q9 }7 I6 R Obj.Label:="warehouse status";. U g ~2 w- d4 y8 w
3 A" g- h3 [! K% V8 J9 j
for i:=1 to WH_nums loop
2 w3 ^" U* i: d0 ~# m F7 E Res:=sprint("Store_",i);
/ l9 e- c" _+ |- T( B1 q. ]5 M8 E Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);$ o' ]4 H; Z c4 ~& \: ~
Obj.Label:=sprint("huojiaceng:",i);
. s( T8 w* I5 M& j# o) \/ k/ e: l5 S Obj.xDim:=WH_x;
$ C( f+ S2 M$ K. o# _ Obj.yDim:=WH_y;6 c' g4 P1 Y% `- F6 f! `! S) L- r
Res:=sprint("StoreData_",i);0 [4 { t5 Y( Z- ^* D* u3 M
^; O' T, F* @
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
8 ]. r" f/ X& x, P& c Obj.Label:=sprint("huojiaceng:",i);; z0 O3 ]+ C7 p H
Obj.inheritFormat:=false;1 ?6 @2 @. \$ d) O
Obj.maxxDim:=WH_x;7 h: }; y, \4 r: J7 q
Obj.maxyDim:=WH_y;
6 g% F: u# x( E9 i& I: T Obj.ColumnWidth:=3;
5 g7 N# |* C& | next;
6 O4 p4 U0 Q& `7 t0 ^; i1 H1 v, ` 8 l- d6 F% g8 u6 d! V) f
.Delivery.MUs.Forklift.speed:=2;; p, x1 z. y" z- _. t
WH_var.delete({1,Part_Nums+1}..{*,*});
4 L; S; q+ E2 X4 x. _( h) p for i:=1 to Part_Nums loop9 W$ G! j: J; U# r+ k
WH_var[1,i]:=chr(64+i);
+ G. f e0 |8 J" h$ z0 F next;! O1 D$ O- I4 }& f- l, u7 @* q
end;
- N& O% Z; D, J; S: B4 x; l" \& ]% _出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
& e) N n; B& N( Q! l% I; `; Z* ]( \0 ?* B; V1 X
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|