|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。$ K3 M; N1 x' e7 ]
语句是这样的2 m5 L2 a I8 s' ?
is
- T& O( L/ K! f i:integer;
/ U- s) k& R: E! H# ` Res:string;
" H+ g1 b4 O; T9 Y8 |& B, H obj:object;7 ]3 f& k3 k6 x
do
( a. |0 ]9 H8 h& Q if existsObject("Status") then
" y" z/ B H+ F+ ^ Status.deleteObject;
" s2 d$ ^4 B$ m" l end;* K! w4 R4 w6 n+ s# o3 u+ H* `3 J; a7 ^
for i:=1 to 10 loop
# V* f$ l0 s4 E- E8 c, u$ s Res:=sprint("Store_",i);
. N! ^- z, z# l; _- u& Z+ t% d if existsObject(Res) then
; F, ` F/ n1 h: o# D6 ]; @ Obj:=str_to_obj(Res);
/ l& y" w2 } N; z% @! l Obj.deleteObject;
1 I! ~* E0 J. R end;
7 D9 S" W7 {/ a' Q8 m next;+ V0 [- M' n: D6 x4 \
--shengcheng Status:zimoxingceng
% e# I( t9 N. ? Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
) ^" c2 @0 n* K1 _4 ` Obj.Label:="warehouse status";
: @1 l$ N1 r; l2 \5 E " C* i+ R( A2 ^7 @, n# u$ ]
for i:=1 to WH_nums loop
9 `0 K6 m9 E6 L* I2 I$ w Res:=sprint("Store_",i);1 S5 J4 }6 ?% u$ g5 b7 X. {) d
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
* L @7 E- x" [: k" m Obj.Label:=sprint("huojiaceng:",i);
- A, B/ o; `8 T3 I1 _ Obj.xDim:=WH_x;+ Y+ D3 A. O ]0 [
Obj.yDim:=WH_y;
( W* A n9 O+ n! T9 p4 w0 d Res:=sprint("StoreData_",i);$ J3 A: c5 m' B: U( z1 y( ~6 X# P
3 u5 C Y4 h2 @ i; t Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);5 v' v5 F1 `% d3 [- t
Obj.Label:=sprint("huojiaceng:",i);
! Y6 t# Y- G% C& G, h0 W; I$ U Obj.inheritFormat:=false;
4 W5 F- @ J( W# m" j4 W Obj.maxxDim:=WH_x;
+ C/ S% M) d: R, M6 \ Obj.maxyDim:=WH_y;
4 c0 u4 }3 F' i2 K5 R' D1 H Obj.ColumnWidth:=3;. a5 {, I. k+ {. m1 G' P- K4 H2 v
next;
2 F' Y- L! Z% O. A0 {7 l3 \+ t7 K* A; B: R 9 k& l/ T* k2 r8 s
.Delivery.MUs.Forklift.speed:=2;; q$ j0 q6 e* y) n9 l1 J2 R" p
WH_var.delete({1,Part_Nums+1}..{*,*});' }% P8 A4 d. N# Q
for i:=1 to Part_Nums loop
7 N% ^ i4 r$ e( \% ?3 L7 F WH_var[1,i]:=chr(64+i);8 o. p- v' f% ~7 R# Q! l
next;
% }4 d; J% L3 fend;
# h/ h# r1 u. [# q: P7 n) w6 s出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 ' H8 m* X4 s0 |- N* A9 s
5 l3 @% W& m& Q, ]
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|