|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。$ _; h3 g% B6 s9 q+ h8 f: j
语句是这样的
& A# E! X+ _0 o8 w4 T, Z$ J; J& P( \is
# [' B$ {! D7 H' i' B# }# y i:integer;# y. J n+ B+ ?) ?' g7 ~& x
Res:string;
/ J; {! M) O$ ~9 R- C5 M5 e, u# F4 T obj:object;' M; D# r8 m+ V) G- ^# o
do/ p F: N; E5 N- P8 ^6 J
if existsObject("Status") then' l* g. T& }/ _4 r! ~
Status.deleteObject;
6 g- I$ m% `1 [ f0 k& e3 [ end;
0 e2 i9 `% W( [ for i:=1 to 10 loop
8 v/ O) k3 ]9 a8 { Res:=sprint("Store_",i);6 W" ~8 f; K, j) V2 m1 o" c$ @
if existsObject(Res) then
+ W) v2 X' q. O F! i. \ Obj:=str_to_obj(Res);# `* `' }2 }+ ]2 N
Obj.deleteObject;
9 N4 M" x6 ~/ l% E& m' v0 B3 \ end;
: h4 W: J, k8 z. {( I- o next;
- i9 m5 z) M. n$ Q7 X/ @/ ] --shengcheng Status:zimoxingceng* ^# O9 A) R. e$ T4 A4 e
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
) W0 B8 G/ G1 M Obj.Label:="warehouse status";
- F5 L5 N2 c9 H2 F8 ] G4 h0 [" f ; z0 `1 F5 C7 A) X
for i:=1 to WH_nums loop
: S1 d4 J s/ i+ N; E$ P Res:=sprint("Store_",i);, R$ P0 b/ l' _
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);+ d- p: x( L# m) ?& X) b: p& G1 f
Obj.Label:=sprint("huojiaceng:",i);) P* f1 r/ b/ g1 `0 ^& b8 U0 X# y
Obj.xDim:=WH_x; H, r( s* b& M! I! ]# M9 p
Obj.yDim:=WH_y;
/ T7 Q5 R8 ?, G, r4 \* Q$ | Res:=sprint("StoreData_",i);1 z) J) w- h, ?. D y! m% z
* v" b/ i( Y* z8 K+ k2 K3 U. n
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
( E. v( X3 z! j$ N1 U. u h Obj.Label:=sprint("huojiaceng:",i);: _/ F9 F R0 N* `5 Z$ G
Obj.inheritFormat:=false;, \' y4 u/ w! _7 [6 n6 I( `3 \
Obj.maxxDim:=WH_x;* [, P/ T5 u) g+ a
Obj.maxyDim:=WH_y;
5 J, @5 } Q; ~- h Obj.ColumnWidth:=3;; E) b# S( s }! g
next;
1 W" g a2 ^0 L( g7 l) k
' ~7 S4 Q& t8 ]! j; K1 V* j .Delivery.MUs.Forklift.speed:=2;
* \6 w* u3 p4 f z. E' c: s WH_var.delete({1,Part_Nums+1}..{*,*});
' r3 X8 {+ P! u, g0 y; {2 o E for i:=1 to Part_Nums loop
5 w W6 S' \4 f/ p8 R WH_var[1,i]:=chr(64+i);" g, |8 H/ Q& d1 O" D
next;, R X& h$ y1 v, U" F e) R1 G
end;* q4 s8 e. ^4 b* f7 v" c; V
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
8 G* G# K# i; m0 V3 o) D) I$ F0 v* b! k% X: E+ M0 H& W5 Z. @
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|