|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。: E, J$ _# \- n9 x( O6 h) f
语句是这样的8 k3 b2 s5 h! C: F
is
- R1 }- k+ @ Q1 ~8 Q4 ~, s i:integer;
& {- I6 S! j# o, l- Z3 G9 J/ e Res:string;
/ ?: g: w! X: s5 t6 N: m+ ] obj:object;
5 D2 e4 x4 M3 D9 p. Cdo- ]& Y' D; ~& D
if existsObject("Status") then c2 ~9 q7 r3 w1 a! R' }
Status.deleteObject;
/ G6 g( ~% x* U& d7 h$ Y end;
- ~7 @! t2 o; H# n& j6 B% u for i:=1 to 10 loop4 e' U* o9 q! ~7 ?
Res:=sprint("Store_",i);+ K/ u* {0 _* w9 v, Q0 w P
if existsObject(Res) then
$ f9 o2 @! V/ }) i9 M1 q9 u Obj:=str_to_obj(Res);
* F1 m; _) ` b4 [# I3 T/ ` Obj.deleteObject;
: H4 f9 @3 l3 t' I- e end;
1 J5 R {% `2 M. F next;
0 t3 E- M# R2 q$ q0 [9 `, d --shengcheng Status:zimoxingceng
- s6 I5 @4 d; ^3 E q Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
9 f" }" d/ c0 x6 O Obj.Label:="warehouse status";# d% Z) B- R) `! }% P" e
# l+ h7 k+ c0 `: @
for i:=1 to WH_nums loop* l5 u, | d: Y+ H: R! Z8 y( |9 f5 t
Res:=sprint("Store_",i);
( w: C6 G0 D. l$ J Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);, R( U3 f0 l. z/ q7 L) Y
Obj.Label:=sprint("huojiaceng:",i);
0 z' K. V9 b% ~0 S9 `% @4 v Obj.xDim:=WH_x;
, H! K) S/ ]4 ~ Obj.yDim:=WH_y;
) o1 v$ w9 f, p1 t. D Res:=sprint("StoreData_",i);
# {$ E& v/ L" |+ e0 L! I5 X : f, ~; C' g/ H% s
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);% J5 s4 Y2 |" }$ E" @; n" L
Obj.Label:=sprint("huojiaceng:",i);
& J& w" ]* t/ ~5 |! I S, B+ u Obj.inheritFormat:=false;) a5 P+ G& L7 u2 ?) Q/ N. g
Obj.maxxDim:=WH_x;
* Z0 z1 e% }2 k" N Obj.maxyDim:=WH_y;: @8 A) o4 \! ?
Obj.ColumnWidth:=3;
1 ~$ |& I7 i7 G" J next;
; l, d5 i, z0 r; c' V' B , p5 V0 t1 o: a$ ~( w3 ?
.Delivery.MUs.Forklift.speed:=2;
" ~3 {, ^3 l* Y' f3 w7 j- x! n* W WH_var.delete({1,Part_Nums+1}..{*,*});
~0 G7 R# `- I3 U( o" Q+ V for i:=1 to Part_Nums loop1 P2 p( T, r" S K2 D9 V
WH_var[1,i]:=chr(64+i);
: M$ E: h" v* M! e5 F% `( R next;0 r1 u; D2 ~6 o
end;
. r+ j' f: U9 l+ s7 {: F8 D出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
6 h& u8 E d7 b: q8 ~3 `( b+ t8 ~+ I0 \/ D( }- a- e+ X: ]
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|