|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。' j# r- H. i) L4 I/ H
语句是这样的+ g Y( K! W( A; Z" U; G) U& h
is7 g( @4 _- q* J6 H3 Y8 ?3 z( i4 ^
i:integer;
0 C/ k7 g6 G$ v Res:string;
2 X" h5 z- `( P5 C% c obj:object;* ] R, X# J8 t4 ~! A
do
. |7 d6 j# o" z3 | if existsObject("Status") then1 s( d/ m& f5 i
Status.deleteObject;
0 E+ B8 a9 E1 t end;
- e. p0 R8 ^5 z& M3 f$ {/ n" C for i:=1 to 10 loop
& ]9 ~+ T9 u' c$ f% Z8 a1 T& ^ Res:=sprint("Store_",i); [. t* X) \& Y$ c- u! G; Z
if existsObject(Res) then
8 v! I, O) m) C, u( J3 p Obj:=str_to_obj(Res);8 D& K% R) Q# _, j+ L$ d7 w
Obj.deleteObject;
* v9 s, n7 `, Z: h' P* u# n end;# L# c$ Z2 l: g
next;9 R& {% q" t8 G9 Q
--shengcheng Status:zimoxingceng8 |, m5 ~, b% D4 L3 V' I% T: m; J
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
" U7 _1 [, q" s: s8 W+ j Obj.Label:="warehouse status";7 n2 ]' V: m6 z& q% P/ }' @9 p
( k5 c- P" j; |' R for i:=1 to WH_nums loop$ Q9 {) \ U8 Y2 A0 p/ ~
Res:=sprint("Store_",i);
3 V) f, Q* r. ]9 `( B: }* t Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
7 k, h; s1 t* V Obj.Label:=sprint("huojiaceng:",i);+ m! G# U( V# H: a; Z( n- S' j
Obj.xDim:=WH_x;6 a4 A2 |. I3 P/ B& n& g
Obj.yDim:=WH_y;
" z C0 m6 l5 E+ [$ M; T6 N4 G Res:=sprint("StoreData_",i);% K9 S' y) z8 g6 D; F8 }
; d/ `9 @3 e3 r5 M- D
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);! `3 M" d& K Y
Obj.Label:=sprint("huojiaceng:",i);! d- j& l2 G; D! e, J- m- B2 r
Obj.inheritFormat:=false;
' t! d' T" s7 r# T! h& U Obj.maxxDim:=WH_x;+ D3 L8 N6 m$ e8 e2 N
Obj.maxyDim:=WH_y;5 e0 X7 E+ F5 S2 w; v$ ?8 ]
Obj.ColumnWidth:=3;; Q! H" }0 ~! c8 W
next;; f6 t. E- m' a" l
: C4 X" r: t1 f9 c3 B .Delivery.MUs.Forklift.speed:=2;
& a7 N/ a% ?+ j WH_var.delete({1,Part_Nums+1}..{*,*});
. t3 O( b' D5 Z/ { for i:=1 to Part_Nums loop
! l" v+ `3 Z: Q9 g: E( m- S2 y b WH_var[1,i]:=chr(64+i);
3 z, l% n2 I! H* K* v6 V" q next;
0 I* u c' b% ]/ y, P9 J! W# z6 lend;6 v1 I6 P9 W: q- P& R
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 1 w$ P) N4 o6 H" b7 T
Q: S# F, G# ` |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|