|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。+ e8 Y+ I5 p; N) o7 ?
语句是这样的/ g' b8 G& M: I7 g! L) C8 C6 c
is$ A3 t* p/ Z2 @/ A8 T
i:integer;
8 x3 p. J; r1 J0 L. c/ f [ Res:string;
0 f. ~- P' V8 H4 k: s. y obj:object;
2 k4 [: ~* L* e2 u2 N, rdo b" Y; m0 s" n1 B- Y
if existsObject("Status") then
5 ?' \* J: p J/ l Status.deleteObject;
+ Q7 M: G( ]! I$ g$ \ end;
% P* f, v$ P4 ^0 r" i+ P for i:=1 to 10 loop
* a: D- d1 g9 K1 y% t' F Res:=sprint("Store_",i);! Z+ `0 ]% d2 j2 L# ]
if existsObject(Res) then, O0 R/ V/ }/ ~8 M) r
Obj:=str_to_obj(Res);. Y' a7 y R" i
Obj.deleteObject;
9 Z4 p8 u3 ?' P* P0 Z) I2 B end;
. T4 C n" e- p# D4 j8 c next;
' f% V# b- |$ y, J --shengcheng Status:zimoxingceng
1 q! ^9 N* r) q- N$ j1 v Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");/ s/ N" F& P9 L8 k& e
Obj.Label:="warehouse status";
1 l% S) _: b$ j9 A$ |3 a
4 G+ N: r/ \ v. | w1 \- G for i:=1 to WH_nums loop
" M* e m l; T/ d Res:=sprint("Store_",i);% ^3 G6 B- m* ]. `% \
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);- ^" ]* u7 Q6 c# B
Obj.Label:=sprint("huojiaceng:",i);7 j- J: R! _2 X8 \; L9 }# t
Obj.xDim:=WH_x;+ A3 M7 {; ?; Y* H7 i# M$ `2 L
Obj.yDim:=WH_y;
# U9 a; w2 x: `/ V Res:=sprint("StoreData_",i);; @, S7 M% I( }
; I/ e1 X# q+ M* C% q1 M+ q; S Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);8 s" V5 L1 ^) x) P' I9 A% i
Obj.Label:=sprint("huojiaceng:",i);0 s; s! w) t: Q* ?
Obj.inheritFormat:=false;4 D1 d0 g/ F$ Y' v U) G
Obj.maxxDim:=WH_x;1 ?7 ]2 F/ ^7 c, I c9 r( e1 R
Obj.maxyDim:=WH_y;0 ] V5 P9 W- L: a
Obj.ColumnWidth:=3;
% D4 n* B5 r4 X5 f" m6 B" u7 Z: M next;
1 ]+ l7 z9 ?" U; i* M % [9 u8 N! D7 N" [# {& K( I
.Delivery.MUs.Forklift.speed:=2;6 r( m8 r& Y. S! J( T
WH_var.delete({1,Part_Nums+1}..{*,*});, }* Q4 R* ~6 O3 C$ {& j& G# e; n
for i:=1 to Part_Nums loop
/ m7 i: l: _ r1 k+ t% @ WH_var[1,i]:=chr(64+i);2 L, D: }7 C, X) f3 y2 S; }, n/ F
next;9 g3 u3 W ]' J! t) ~3 y* }" l5 z
end;
2 q$ q9 U, P; t3 r2 j# S( Y出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
1 s; x A2 c* S# H
- j: J9 X( f$ |7 x! n. F" a; ]- B |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|