|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。 K. H. a8 t- s) g5 Z# P
语句是这样的
% p3 t6 M, w9 A" `is$ _. o1 G. r6 s, A
i:integer;
1 ?/ G" S% b+ N1 | Res:string;6 B8 ?' {) d, o2 L5 J) w$ Y
obj:object;3 V: r1 k2 z0 S0 `3 B5 a
do
5 N" S8 `* n& @! h# [, N if existsObject("Status") then
. I. X+ h; Q' z$ {0 \3 f d Status.deleteObject;; M8 R& h' X0 M* n" E! r3 g
end;' |1 N$ F4 b4 z' [
for i:=1 to 10 loop+ o [. O& E/ }5 r6 b# K* e
Res:=sprint("Store_",i);( S# \" H# O/ C7 \' ?! Q3 V
if existsObject(Res) then5 o7 y% x. g! d% \$ Y% K
Obj:=str_to_obj(Res);0 C3 R. H' l6 M3 j1 d; ^% v) {& |
Obj.deleteObject;, D& H# o% f O) O. I* d
end;
$ b5 R0 C* X3 h( \# c R next;1 L6 b( P; ^) K+ c, _2 |3 S7 r2 b
--shengcheng Status:zimoxingceng
% ?: i4 V6 k0 v$ d6 o. w4 O Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
9 N) D% a6 M1 b% c1 C* r" ^ Obj.Label:="warehouse status";; t& E2 N) i+ s$ P( t/ q) O
9 v. a" P: M9 |8 b7 Z2 G
for i:=1 to WH_nums loop( a- | q; L+ [' o" i
Res:=sprint("Store_",i);
! b/ w' Y1 d7 [/ \, Y: I* ` Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);) @$ M8 f8 c5 S3 p3 R3 ?7 ?6 v m
Obj.Label:=sprint("huojiaceng:",i);
% | l( R. X$ s0 C Obj.xDim:=WH_x;( K+ x, b2 f# k
Obj.yDim:=WH_y;
Q/ L8 T: f1 M7 s# T9 s Res:=sprint("StoreData_",i);3 l6 a2 e& I1 Z$ n9 `& V4 y
- o4 w+ b, ]7 u6 a
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
: Z ^8 f- H3 Q4 T Obj.Label:=sprint("huojiaceng:",i);
6 g& `$ j$ F9 s5 ^% l, _ Obj.inheritFormat:=false;
( a$ {+ M4 p) _ Obj.maxxDim:=WH_x;
9 K5 H7 _' w) j Obj.maxyDim:=WH_y;6 W% u1 i6 [ f* I% d4 @2 ?
Obj.ColumnWidth:=3;
, d9 z! \) K5 J0 X next;
/ d2 n' L3 \7 k6 I9 V& \
$ J* x5 `0 j, p6 r. [9 t .Delivery.MUs.Forklift.speed:=2;! w, U5 N, g% u3 b Y: T
WH_var.delete({1,Part_Nums+1}..{*,*});
?, r+ ~) B! X, r2 \' W% N for i:=1 to Part_Nums loop
, c% {& k5 B) } e- S' n, l WH_var[1,i]:=chr(64+i);3 N* l6 [) I! e( S8 b5 h
next;
/ ^* L" n0 p e ~2 Mend;. U" N8 T9 k9 ~/ p
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 7 k1 ~( J0 |& f4 X1 z8 G: [
0 ]+ j! N( b7 ?# Q, y5 l
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|