|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。# f l, |9 Z: V3 W( V
语句是这样的
$ r9 |* M) I9 pis% f, }& t% f2 B- @- B) Q
i:integer;
" |* l+ M2 y, T1 a" y5 V, S Res:string;$ {3 j3 X5 m* e; L' T; X
obj:object;
' }, N0 ^1 d' @$ \do
# o9 k2 o( v( T( F7 f$ \& t if existsObject("Status") then. I: ^4 [* p: D9 d% @, b% n
Status.deleteObject;
) _* ^' _$ E0 z o( K end;" j- Q0 T3 X. o; `# L
for i:=1 to 10 loop! ]/ D8 f, l) A
Res:=sprint("Store_",i);
/ {' e. p! H) r0 I3 S if existsObject(Res) then
) g g3 L( h& M# x- b- P Obj:=str_to_obj(Res);/ \$ C' F8 p# k, ]7 N
Obj.deleteObject;3 l( i6 I- ~2 v4 q
end;% m6 O# B2 ?7 E# T
next;
1 C V7 }# M4 {# h --shengcheng Status:zimoxingceng
2 p T4 R) O; ]+ e Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");7 \0 q# D/ W7 O; d2 E
Obj.Label:="warehouse status";
; u! q/ \+ t5 c/ r $ N3 r- q. J+ t5 x
for i:=1 to WH_nums loop
) F( {+ T: V! m2 E5 F Res:=sprint("Store_",i);
& s; R% g0 B# j- R Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);! z# u& V& A& \3 z' y* v$ H# F5 Y6 a/ \0 a
Obj.Label:=sprint("huojiaceng:",i);
$ D* P; p) J# v5 V' o$ u* E: @ Obj.xDim:=WH_x;" o2 }9 P* N' A
Obj.yDim:=WH_y;; |7 M( O7 a1 j/ m0 o. Y( S
Res:=sprint("StoreData_",i);
6 {( C) D% o7 u+ G1 Z" K- m
5 U* I7 k, e+ z: D5 y- @ Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
; _' l. ]8 r. x3 O" k5 ] Obj.Label:=sprint("huojiaceng:",i);
( T0 E5 r9 R6 I. ?2 F. E# L5 ` Obj.inheritFormat:=false;
4 V2 Q: c$ L _' o Obj.maxxDim:=WH_x;, B* a* E# p9 f
Obj.maxyDim:=WH_y;# I( Y& q x0 Y- p4 X
Obj.ColumnWidth:=3;: D: n2 V# X% c* j0 C
next;( m7 o* Q) l1 v0 D+ ^& F
u4 c. _+ C& G: B
.Delivery.MUs.Forklift.speed:=2;
( f* ]& ~" {. { WH_var.delete({1,Part_Nums+1}..{*,*});6 t' n2 K: ]! l
for i:=1 to Part_Nums loop' t. }6 A( Z5 V$ k9 |
WH_var[1,i]:=chr(64+i);
! b/ |5 b" y1 T A! }4 d- T next;2 Y0 V4 M1 e' Y, x
end;' |0 u; w: w8 w! p
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 # f& e3 U4 Q& Q& j, ]) Y) ^5 ]
1 A' ?4 I! F) {' K
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|