|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
' ~0 N9 M! a: `/ U* V语句是这样的+ B5 |" c" p/ n, x; N& b+ v: l
is$ y! i- w0 I( [1 R2 I9 r
i:integer;
/ ?& a% u) u) v! F- p( z1 y: F Res:string;
8 J3 g3 x, _" _9 `2 f- S. S7 m obj:object;. H. v" V) y- j* o1 b- \$ k+ E
do
: }, N/ M3 m) r9 g if existsObject("Status") then
& ~0 E& N" M3 Y* f; X Status.deleteObject;
0 k$ Z4 _- Z, [ end;
, m: x, J# _, F6 o4 \/ p for i:=1 to 10 loop
) o. A* n, j) F' \5 S$ `1 l! X Res:=sprint("Store_",i);
Y0 N. }+ q9 q# Z if existsObject(Res) then
/ d' {) w! p6 i. @+ L. f Obj:=str_to_obj(Res);7 z% e6 ~$ R/ ~3 Y1 D% X0 \
Obj.deleteObject;
" e, P+ T4 a2 A+ L end;
q+ ~3 ?. l0 u7 B* ` next;2 Q6 E2 b% o* l8 d3 [
--shengcheng Status:zimoxingceng1 H& k8 J3 d& Q* v
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
- ^6 O8 y6 K4 ] Obj.Label:="warehouse status";
" w. i: M7 L' V- t4 T! t. ?/ v
$ |$ h( h" C0 s: X! n0 Z* J. |* e5 v for i:=1 to WH_nums loop
/ \; n7 p5 \2 w \. h Res:=sprint("Store_",i);
+ [6 j( A6 o( Y$ L: C& Q Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);: T) c2 J( K7 J+ u+ I
Obj.Label:=sprint("huojiaceng:",i);
- J4 W' N. s' G0 {% N Obj.xDim:=WH_x;
2 p1 G( z* G3 s7 n$ ?. o- u Obj.yDim:=WH_y;! R* D# R* \2 E/ s2 w5 z
Res:=sprint("StoreData_",i);
3 I9 R7 X( y; D+ m5 Y 5 @& ^* q) V7 e4 o6 ?$ M1 z' E$ y1 k
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);) q: K# r& v6 P6 T; ?
Obj.Label:=sprint("huojiaceng:",i);! T& N5 c# k9 q6 H# a
Obj.inheritFormat:=false;
0 B! I4 X7 G8 Y& O Obj.maxxDim:=WH_x;2 d' J! X9 m1 L$ ~
Obj.maxyDim:=WH_y;
" z, K7 b0 \" l& o6 P Obj.ColumnWidth:=3;9 h6 C. o) \* k- z$ ^
next;) l: z8 c' C7 W* W p
+ N9 x y/ r! A0 f .Delivery.MUs.Forklift.speed:=2;2 b+ I. U, H6 ^9 h
WH_var.delete({1,Part_Nums+1}..{*,*});
$ s/ I. C( Y2 M# B0 E, R9 W1 I |, F8 Q for i:=1 to Part_Nums loop h: u; v4 G* f7 m6 }2 `2 D
WH_var[1,i]:=chr(64+i);
{' U; P: N: \+ @ next;
" `2 w; X c* q( I2 s! ^/ _3 wend;9 c9 C6 d$ v0 D3 s z# W
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 # n! g" j- H4 v) u
5 {3 X% d/ ?$ a# i |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|