|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
7 G) |5 k) Q$ @0 B& M% a* _语句是这样的% ]( ~0 }) z# J2 U1 l1 p; x- d
is
& ~( V3 I: i- T/ F i:integer;
" l3 _9 ]; F" k1 S/ o$ { Res:string;
; _. Y& |/ q1 d: f obj:object;7 f5 _3 [9 \; M3 C
do
7 g# B2 j1 c! z. B if existsObject("Status") then8 j* U1 h6 [+ m9 V5 B3 v5 k
Status.deleteObject;# n* W3 n; K) O5 o. ]1 q
end;2 {) I8 ?4 W" d
for i:=1 to 10 loop
9 {9 t, U) ]6 }; P Res:=sprint("Store_",i);. u0 V; c* S2 ?5 ]4 }& o. W
if existsObject(Res) then3 m: ~% A$ Q7 y) h) c
Obj:=str_to_obj(Res);. B, k w5 W3 \8 X
Obj.deleteObject;$ K8 l; l# V4 [5 O
end;1 w3 N: j/ M' W! a- y
next;4 t2 o1 I' D& S: o6 V$ W8 L
--shengcheng Status:zimoxingceng, p7 _( K# Q: a* q9 i
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
* o( l+ r0 F, }: m2 i+ y+ g; \ Obj.Label:="warehouse status";
8 b4 C# e$ W! K5 Z. x6 c0 }+ ^6 t
- k; ^$ R$ ? s" E, y for i:=1 to WH_nums loop+ \& Q; B- f+ E3 ]* \% `
Res:=sprint("Store_",i);
1 o6 x( `- z9 p0 W Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);) t. ^9 Y( O Z, h0 {5 D
Obj.Label:=sprint("huojiaceng:",i);* A, \8 A# s$ j# p G
Obj.xDim:=WH_x;
, d& A9 c; c! q% ?4 Y2 v Obj.yDim:=WH_y;0 h; [7 f% Y2 \& t
Res:=sprint("StoreData_",i);
1 X7 a7 O" o$ M1 r6 U- U1 e
: u8 r- W; f7 g1 L. J( F& r8 R Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);' J# r! z- |2 D4 Q6 O7 X5 A1 A
Obj.Label:=sprint("huojiaceng:",i);6 ~/ J i6 I) b9 Q% ^
Obj.inheritFormat:=false;
. L2 X9 A g2 V7 C Obj.maxxDim:=WH_x;
; h3 d! Q* A, d# E Obj.maxyDim:=WH_y;
: u, L7 k1 x1 | { Obj.ColumnWidth:=3;
5 C' t+ f& Z7 j0 K3 S6 { next;
9 M: a# `( g4 F/ q) l
* H3 t, \" e" U' T .Delivery.MUs.Forklift.speed:=2;
( X m7 w# Q% `4 z+ o& L3 m WH_var.delete({1,Part_Nums+1}..{*,*});
& r: N, m5 M+ x9 @ for i:=1 to Part_Nums loop
1 ^, Z3 v) {9 D: D WH_var[1,i]:=chr(64+i);1 I8 _% s: J1 P& q1 y
next;! U( p; L/ g$ [9 `8 D6 Q9 ?8 n2 I
end;
' }" u4 o, j$ J' A$ [2 I出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
# U! O& p3 X+ C( T/ ~( k1 W# g8 z' ]8 g1 \/ X1 ^! Q T* r V
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|