|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。 Q/ k4 r' R) \9 k
语句是这样的" E; L* j8 I- N+ d0 I% m) H
is& S) x3 t( F l3 R$ s
i:integer; |3 y, r& \; v; C' H7 T
Res:string;$ l0 J* }- c2 a1 ]% ~
obj:object;
6 I h1 A1 _# E9 I( D+ q2 z4 udo" H$ l/ d( v9 ~- Z, z3 P$ Y' P1 X
if existsObject("Status") then* i! l6 Q2 L6 F
Status.deleteObject;' {. r( L3 r6 U/ X+ T
end;: P" H+ e* p6 d% t3 F6 ^
for i:=1 to 10 loop2 `8 ^+ X( A8 ~" y
Res:=sprint("Store_",i);
$ | q) j/ [+ T5 P2 N% i d if existsObject(Res) then
% R$ C6 v5 H/ E! H0 n" T2 r Obj:=str_to_obj(Res);+ z9 y6 x/ w9 \) Q; w* |
Obj.deleteObject;5 o; R7 F# n0 ?- p x; g" J
end;
9 l" R# ~9 t+ Z- p4 e. ~$ I next;+ n; k, D9 Y5 H! P
--shengcheng Status:zimoxingceng" M& @8 S' a# X6 I, f
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");2 \+ |3 Q8 f5 H2 [! S7 m4 ^# ?
Obj.Label:="warehouse status";; N( w$ a- \' o, u4 {
) c9 J9 U& f' ]# r8 Z# `* ` [ for i:=1 to WH_nums loop
+ L) ?& V' i0 Y1 ^: `+ w Res:=sprint("Store_",i);
2 c/ O3 r( [' o* `9 H: R% ? Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
- I5 c/ w0 Q7 p6 v Obj.Label:=sprint("huojiaceng:",i);, A0 l. w4 k. }$ H9 L" I2 v
Obj.xDim:=WH_x;
( T" g3 r! l2 T$ O# L8 S0 ~" c" v Obj.yDim:=WH_y;. C2 p! f$ Q U7 A7 y$ C5 r# z
Res:=sprint("StoreData_",i);
, q9 i6 J! W; i. K. v
; t7 u# X( h, ^ x- u Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
% b$ Y4 |- X* ?& j Obj.Label:=sprint("huojiaceng:",i);. z! M. \( J1 G5 O* ^
Obj.inheritFormat:=false;
" t* z4 ^' ?, L; i* m Obj.maxxDim:=WH_x;
4 `* B k/ @) f" X' [ Obj.maxyDim:=WH_y;
% T& l: b x# i9 D9 [ Obj.ColumnWidth:=3;
* c0 H# e7 ^4 C4 N next;1 [+ V0 G* T' f2 S5 N/ m
* a" y+ e1 Q) Q) n) E& P( c7 O3 | .Delivery.MUs.Forklift.speed:=2; @5 l% E/ F( o
WH_var.delete({1,Part_Nums+1}..{*,*});. |+ z% a; q5 Y/ W
for i:=1 to Part_Nums loop
! z/ S1 {$ X; k- U/ ` WH_var[1,i]:=chr(64+i);0 Q4 u( B! |, |1 ~
next;, G# U: H; J7 K% L, {6 `" r, S
end;
+ C* Q5 x3 [, d( D* n& v出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
/ r4 Y# Q( d5 h0 D" X% H/ Q
5 t6 @ P4 m/ h0 N5 b4 ] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|