|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。5 l( `* X2 q- f! M z
语句是这样的' L" x# F4 r8 r
is% O, N( x* Y: v$ T" E
i:integer;" u8 n2 c/ M+ x5 i* W) t
Res:string;
; {) f# x0 g/ N, t C obj:object;
1 [# x8 c9 J# Q# v) p6 u/ ~# {$ ]' qdo
; T! V; o w, M if existsObject("Status") then
0 M$ h- z9 J2 \) p1 C0 V8 d" ?6 S Status.deleteObject;
% Z9 m7 t* X- h end;, @& p+ v& `2 t9 c/ B" {
for i:=1 to 10 loop, W: ~! N! w! W
Res:=sprint("Store_",i);" B! `& M! \7 n' l' T/ _8 a! }
if existsObject(Res) then
" F! v& R! D. C! v1 f4 K; F Obj:=str_to_obj(Res);
* d( p9 r3 f9 H% A' |$ ]( Y" [ \) H Obj.deleteObject;2 X X$ o: K5 E, A
end;
+ s4 e! W( k [; ` next;
: X- h* d: ]/ J2 @( G7 l( T. v. i7 @ --shengcheng Status:zimoxingceng9 I1 b, E" X8 _9 h& ], G7 Y
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");) Y# k6 w) ^' [
Obj.Label:="warehouse status";
- w, X! Z7 T) r) v: O' X# @
# P9 ^- ]4 M3 X9 C: Q for i:=1 to WH_nums loop
: `; ^% G4 p( @8 j Res:=sprint("Store_",i);# b* S4 M7 Q K( Y% q. M
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);5 |/ w; v, C, P* L, k
Obj.Label:=sprint("huojiaceng:",i);
2 A8 {7 l/ |1 [5 u+ a Obj.xDim:=WH_x;
9 c# I* T U$ R1 n4 Z! ` Obj.yDim:=WH_y;7 Q8 m6 X5 \3 K! u9 Q) j; C
Res:=sprint("StoreData_",i);. R1 |" J# s5 h O
0 B- ?' p P) |6 [ Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);3 b5 g6 J% n( g5 W: D: e
Obj.Label:=sprint("huojiaceng:",i);
3 u' Z t, r1 Y0 X* @5 Z Obj.inheritFormat:=false;
. l5 q; @! s0 D; }1 x8 i s Obj.maxxDim:=WH_x;/ ^, Q. X6 b8 t1 {/ ~
Obj.maxyDim:=WH_y;
) @7 Q* d" b7 ]4 f' u& f8 p8 e$ F5 B Obj.ColumnWidth:=3;
( _9 o( C9 g. q9 C/ j' b next;% C3 @0 y. n) u( [
0 B4 I' ?5 K: y. W( c. d1 s1 Q
.Delivery.MUs.Forklift.speed:=2;
( Q, R) d, C# X j4 V& s, J0 ~ WH_var.delete({1,Part_Nums+1}..{*,*});
) L" d' n, ~- K1 `1 C for i:=1 to Part_Nums loop) X6 ~% W! {8 p- t- L
WH_var[1,i]:=chr(64+i);9 K! t/ t& w1 B7 c5 r
next;/ v' v0 l6 M( e5 ~- S
end;
5 J& S1 F) p4 b* h- }出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
, E) W5 Y) n8 ~, P+ B; m5 s
! k+ B# i: g5 S8 j1 ?! q2 ~ |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|