|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。$ z! q5 f2 v# j5 ~1 b5 @' f I1 a
语句是这样的
, _" @/ d6 h$ c7 p+ Y/ sis
4 R8 N9 n3 ^- @: `5 e8 d% ] i:integer;2 V9 y" h# d/ T) ^2 Q# J% O, G0 Y
Res:string;
4 r5 F5 A% U9 y9 n9 z1 N5 g* ^. a! W obj:object;
. R6 I# _0 y) M- \: y' P/ j- {do; v6 H, o/ `, P% N6 l4 \
if existsObject("Status") then
+ Y6 o9 r$ j0 S( l* ` Status.deleteObject;
9 V4 \: |/ E( V3 b end;1 R: U1 u# S( ]
for i:=1 to 10 loop u* e/ g7 x0 v* f) t) |
Res:=sprint("Store_",i);
2 o, H& ]* J* d6 Q/ I if existsObject(Res) then& o# f) S' N2 d9 Y" A- T! B7 [
Obj:=str_to_obj(Res);3 Q; |! L6 `' q8 i$ L3 E) E
Obj.deleteObject;
8 b+ p1 Q' s7 k end;
( J W/ h0 p/ h! j9 Q next;
4 W3 f6 W' g$ U --shengcheng Status:zimoxingceng
, v! e ]: A$ K Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
T4 A" K, u" a Obj.Label:="warehouse status";# g( Y' ]2 @1 U# m/ U" H
1 h. a. r! _3 E! K5 M for i:=1 to WH_nums loop
" ?4 f8 L Q0 i1 a Res:=sprint("Store_",i);
, [* G9 i6 u: @5 {; N Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);% v& z( a! T$ ^3 l0 x
Obj.Label:=sprint("huojiaceng:",i);* T6 t2 I+ Z) M
Obj.xDim:=WH_x;
6 }$ y& V9 z: L0 a9 q6 P Obj.yDim:=WH_y;
G5 S3 N* Y( K! e% E, V6 A9 Z" ] Res:=sprint("StoreData_",i);$ X# W& U$ l" W# s
9 A( N6 j+ o9 F9 N' @- j, c
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);2 k$ x6 W; x9 C6 r; H+ k+ a- l7 m
Obj.Label:=sprint("huojiaceng:",i);) U- a( y8 ]1 ~2 ~) q" g' A
Obj.inheritFormat:=false;$ x. W; Z! ?( m! K J1 E
Obj.maxxDim:=WH_x;
0 {# `4 `" T2 R Obj.maxyDim:=WH_y;
& H& B5 a1 w/ x1 c! V Obj.ColumnWidth:=3;) D2 Z2 j: \' e [% S
next;9 h: k6 }& V# P7 {1 t. G! A
" w. L6 i) P* p9 ~; k/ F .Delivery.MUs.Forklift.speed:=2;
- Y. v) E& ?$ r+ d/ s8 z0 W WH_var.delete({1,Part_Nums+1}..{*,*});" s' I% N0 q D! c
for i:=1 to Part_Nums loop
7 b7 C* K7 t/ |; v0 t: a& H6 z; M WH_var[1,i]:=chr(64+i);
8 T. `( @5 @: ~" k% s6 a next;
, k6 ]4 L0 R+ \; W' H @' s, Q% Xend;+ R3 V/ D; [1 c+ x* M) }
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
/ b' Y. t; P" Z9 d( V9 B; Z4 _% m9 ~% @' Y
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|