|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
' p/ S- J6 O9 c5 l$ L4 x语句是这样的
) u7 w! \% \# u2 @is
% t1 [ u# H6 x. c5 l i:integer; I, l [& D5 \; F! h9 a( U8 o
Res:string;& x& s% b! w( E% U2 b$ Z
obj:object;
6 y' j% |- v, Jdo6 a8 h, t) |: o6 C& }
if existsObject("Status") then+ p, n8 V- p8 @
Status.deleteObject;0 x( Z& ~- r- H0 ^# S' ]; F
end;
) t' S t4 v( ?7 p1 ]. B for i:=1 to 10 loop
4 q- j! K3 \/ ]% C. W9 ~& R j Res:=sprint("Store_",i);; x# d, Z" t/ d# B' d0 {
if existsObject(Res) then9 H; D3 A8 f3 u
Obj:=str_to_obj(Res);" L$ X" K" E6 ^ {) z, S( p
Obj.deleteObject;
& B& Z- u3 Z' k0 R end;/ \! j4 h: X, y4 r/ }& G, E
next;
' h8 M5 p; b: z5 s" |* o w --shengcheng Status:zimoxingceng# ^) A, C* U5 |7 k: O
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
4 E0 J& X5 @4 R2 K Obj.Label:="warehouse status";
/ L+ f9 {) C0 t5 _% y2 j* P 5 k8 X+ M/ E6 M0 k( V0 a% Z, M& h
for i:=1 to WH_nums loop
9 r3 Z8 F' }1 u8 z5 P Res:=sprint("Store_",i);
* e* W8 i) E: _8 q3 \6 H Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
6 G7 J: `0 c& p3 l4 A/ b Obj.Label:=sprint("huojiaceng:",i);$ H: A0 K# G6 [6 r
Obj.xDim:=WH_x;% k! {' ~1 h1 c1 l) Z _8 e: f! _
Obj.yDim:=WH_y;7 [* J) W; N+ f8 n' s5 X1 u3 b
Res:=sprint("StoreData_",i);
7 X6 n! t, u( Y8 A2 H 9 i1 N) @/ X+ G/ {+ M+ @" j; E
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
4 c7 `$ {0 ?3 V1 b a. L Obj.Label:=sprint("huojiaceng:",i);3 H6 M) F1 n+ |, }' x D. z4 ?# }
Obj.inheritFormat:=false;
+ ?2 r1 K2 {8 l1 w; G8 c Obj.maxxDim:=WH_x;
! x% b% F9 q9 z: i; t- E Obj.maxyDim:=WH_y;
( z0 ]; ?1 ^7 l- ~; i V, X8 g6 I Obj.ColumnWidth:=3;
. m% y! T2 v5 V& q( ~4 ~ next;
^4 ~! x1 P- f+ D9 O6 f
. Q/ `3 M v$ m% E- B6 \5 s5 I .Delivery.MUs.Forklift.speed:=2;
7 N& z- W7 q3 Q/ v WH_var.delete({1,Part_Nums+1}..{*,*});
( N8 ^0 m1 C1 a) Y U9 o for i:=1 to Part_Nums loop
. G K) ~) ]0 v# i, |) s WH_var[1,i]:=chr(64+i);. } U7 i& ^0 q6 _1 E
next;. L2 K- |! T# [. ~5 V
end;$ x) M, h3 r; P3 \7 [2 i3 }
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
* P2 W; S; [! V! a$ t8 B' T# D' a' ^3 ?( ?/ O4 N% p3 K* h
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|