|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。 u2 i2 v- Q2 r2 @( U3 j7 ]
语句是这样的
( n c$ ?% X' B1 f6 D& Tis( {, B* {8 n$ ?' l( I
i:integer;; a: u! {' }9 R
Res:string;% r9 A- {( L* l: ]
obj:object;
2 _0 w/ p5 S+ O6 L% O$ e9 O' xdo
, S2 C8 Z+ @9 W" x if existsObject("Status") then
9 ]& t$ s! y e3 c. U; N Status.deleteObject;& Z( v& y, `9 T! l
end;
2 y' ]. b9 t3 F( S3 G" k for i:=1 to 10 loop& e" q' t% a' v1 j6 Q
Res:=sprint("Store_",i);0 Z# t: w8 V8 @. d9 m
if existsObject(Res) then* ]3 W9 ^7 J# E0 n/ c. @
Obj:=str_to_obj(Res);
5 l! J/ ^8 n0 P, ~( F( E Obj.deleteObject;
7 J% g% p. c" q$ f7 s# j4 r% |: I end;1 H, S2 L: z8 T! O/ c2 i
next;
! i H# C# g! A% K5 ` ~ --shengcheng Status:zimoxingceng
+ P0 c4 x r2 d, p Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");8 {* P' k4 `7 T& e& O8 \7 a
Obj.Label:="warehouse status";
% a6 M( n5 \- z
, J! k7 G2 X$ x; g3 h) ?) e# b for i:=1 to WH_nums loop
5 l" t* _$ I( x8 z Res:=sprint("Store_",i);' C# L; s. b, v
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);1 u8 U& {$ v& m+ Z
Obj.Label:=sprint("huojiaceng:",i);$ [' [4 z3 f, D' G1 O
Obj.xDim:=WH_x;
- B0 L" t. T; J/ p5 \. | Obj.yDim:=WH_y;
9 X4 }: l, d* a' [% f1 Z Res:=sprint("StoreData_",i);8 V2 g$ e( ]8 J6 Q) c3 I) Z { A
: B% Q: u# d8 w* x9 r& i R0 x2 t Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);. W' M/ u1 n# F( q/ ]% A1 t3 l+ f
Obj.Label:=sprint("huojiaceng:",i);0 Y' o2 f* G: D, S
Obj.inheritFormat:=false;
( b8 W' l& @3 x, d6 V Obj.maxxDim:=WH_x;7 ~0 ^3 i8 q( g" |) E3 H0 z
Obj.maxyDim:=WH_y;
2 b* b6 o( ]3 M) i$ F$ `( {* M Obj.ColumnWidth:=3;
/ X B( E9 K, E. D& ] next;
3 a. Z! r" D; s8 B+ G$ i/ n
' b6 _' o( ?# c1 @4 i .Delivery.MUs.Forklift.speed:=2;' j [" b2 V! L) t- c
WH_var.delete({1,Part_Nums+1}..{*,*});
& }5 U3 [7 c2 q for i:=1 to Part_Nums loop2 S9 V" L, ?0 o1 K
WH_var[1,i]:=chr(64+i);3 o# v; t1 e2 T) l( k" r2 e5 L
next;
) U$ O+ O. n% _6 d+ W2 }4 n" gend;9 D# y( k0 n* Z3 z* ~% \ e
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
% _' y& { g( S# O1 B; m$ y% @1 Z6 l: `
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|