|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
* s3 m8 L9 e: Z% W% c# n- _ D6 o语句是这样的
% d' k* @" `/ @, Nis
4 S: _9 k0 _# K! { i:integer;
5 G' Y' o- G# o! E: U* P" J9 V Res:string;
: E9 \4 N0 d5 ^4 H! O obj:object;
- z, ~2 f1 O& a( |do3 N( W; R& W! S: u) k3 S
if existsObject("Status") then* _- G$ X/ d% w
Status.deleteObject;& s$ E5 S/ J. i5 D% D
end;
3 L2 x1 I) X3 F- C6 F for i:=1 to 10 loop
# q0 R; p: M( m# o3 m Res:=sprint("Store_",i);# u4 j3 o' D4 M
if existsObject(Res) then
+ X3 H0 s& Y+ S5 V( F- ]% ? Obj:=str_to_obj(Res);
3 [% w& J7 F- w! c- B: l Obj.deleteObject;9 L G; G- P5 Q4 ?0 u V
end;
( Z1 r% P8 b& _' d# l next;
2 \0 h6 T- P- E m& T) a8 W7 D --shengcheng Status:zimoxingceng0 ]* T" h) f# U& M* g1 i
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");) w/ |) P( ^0 A. e, q6 ~, r
Obj.Label:="warehouse status";
5 D# W4 q8 `6 E; |4 ?
2 l" @2 X3 j' m/ I! c x9 m for i:=1 to WH_nums loop. B9 H8 }- G' g2 n
Res:=sprint("Store_",i);
8 f4 s7 B% G4 z7 b! { A Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);# J9 s! | m' ^% m0 e# G& b
Obj.Label:=sprint("huojiaceng:",i);
+ @" v* {/ R0 s5 Q/ Q( _3 M7 [ Obj.xDim:=WH_x;
0 V+ g2 a( q# K% q1 e! W- { Obj.yDim:=WH_y;
" M6 g- ~' A+ x( l7 W- g: | Res:=sprint("StoreData_",i);& |: G8 I2 o% X1 P- l3 q8 A
9 {1 W- _% s% u, s0 I+ T4 ?! C8 X
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
( ^$ \; F8 a9 w1 O l Obj.Label:=sprint("huojiaceng:",i);
' V6 F( e( q, s: V3 a6 _' G# ] Obj.inheritFormat:=false;+ O& q1 v1 U. K6 n" Q
Obj.maxxDim:=WH_x;
+ J1 J8 O# h* d1 o Obj.maxyDim:=WH_y;6 F" j, |0 o8 ?/ X
Obj.ColumnWidth:=3; {5 G$ R4 a" ]* A% g
next;
% s2 m/ h# N2 S6 `( A4 l& n . N" C: k" J* n7 N
.Delivery.MUs.Forklift.speed:=2;9 I1 ~5 E8 b: O2 `, w
WH_var.delete({1,Part_Nums+1}..{*,*});: s, u9 o$ I0 ^9 Y2 d
for i:=1 to Part_Nums loop
/ N! f- o0 ^8 C+ W WH_var[1,i]:=chr(64+i);3 T. W7 y' P0 M- Y" _' ~
next;
% m' v0 v" v. K7 j. t% Lend;9 c. U1 }# u; [$ }
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 + F$ P7 s' [6 N9 p3 D. G
3 L% F; f/ i' }2 t- s1 f' |
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|