|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。0 s5 ?% ?9 f# E0 x: x b
语句是这样的4 u; H; r: M E- F
is
: W7 c- {6 Z' r i:integer;7 Z+ s& S' b8 t" l' z8 F
Res:string;/ d, [7 Q6 }' m' t0 q T
obj:object;2 F4 e: [" `' o- \
do
, o3 X# t& W2 `5 {$ \7 r% i7 N* } if existsObject("Status") then
7 b& X6 q8 ~$ A9 t; d Status.deleteObject;3 D8 E% ~) ~1 J
end;
0 j9 D( n( W5 i/ m' U9 U for i:=1 to 10 loop
: A- L3 p5 L X: b9 h/ [* \ Res:=sprint("Store_",i);8 d: B' d1 P/ _
if existsObject(Res) then( ^7 Q# D: g( ?2 S m9 b( J
Obj:=str_to_obj(Res);- b. B( E( H2 i+ Q' L' \
Obj.deleteObject;' H B1 `' P( [( D/ C& }
end;
. [3 T# [0 r3 l$ r+ j ~+ _ next;
0 X' S O/ E: g; V* c6 A% f. ]1 K --shengcheng Status:zimoxingceng
6 w1 e: f% z! o6 z/ j6 Q8 F. L Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
' c3 f& W. |5 S$ t. y Obj.Label:="warehouse status";. S; ^* w' ~1 N' L' D
" h- B5 K% V `' \: d9 {5 a2 c for i:=1 to WH_nums loop2 ]$ U8 Q+ q1 q6 _1 t, W
Res:=sprint("Store_",i);
# C: I( O* o8 k2 x Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
8 O( v7 I# u9 c5 f* g Obj.Label:=sprint("huojiaceng:",i);
- U( L/ l9 p+ Q9 {, x2 z% O Obj.xDim:=WH_x;6 i. h% J9 S5 v5 f9 u( z
Obj.yDim:=WH_y;
5 a7 K7 o* B+ ?, Z Res:=sprint("StoreData_",i);( }9 }6 ]. q0 x# O( W; ?# o2 v
8 s* H# D, b+ ?' V0 n Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);- o7 y, R2 R) d/ K
Obj.Label:=sprint("huojiaceng:",i);% r8 r; K( F" v* b" @. ~' j0 a
Obj.inheritFormat:=false;4 B! Y$ o, f" [, }2 r
Obj.maxxDim:=WH_x;) {; G+ R/ h' S! ~7 C' q" q0 e
Obj.maxyDim:=WH_y;
8 C8 n4 v- }" k0 ~% f Obj.ColumnWidth:=3;
- E/ f+ E6 J) o+ X$ V next;
& X: @8 I& V5 O6 Q$ S( ^! H
0 t# x3 K1 O! V7 M/ i5 w7 K. ?- x .Delivery.MUs.Forklift.speed:=2;) D! k# r+ q4 h% D6 m# g: N
WH_var.delete({1,Part_Nums+1}..{*,*});. N4 J! b- N; t
for i:=1 to Part_Nums loop
, R( a) F8 D y WH_var[1,i]:=chr(64+i);/ X! i. x* K3 A# E! o
next;" h6 D: l8 o- K* m
end;- m+ `# x. O9 u1 t
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 # f/ H2 n% d, s$ u* P* h1 {
* i1 e0 h5 s+ n2 c/ Q! ~1 e8 L$ J |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|