|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。& L8 l) @# r; c7 t+ Y
语句是这样的2 }$ q3 M3 z( F7 O( [+ ~% I# e
is$ k2 |3 k" B( K: }
i:integer;
6 H3 Q* k% ~* K Res:string;( I- ~! q" [# p4 ?! G4 d
obj:object;
* c0 U5 R$ ^+ ~$ E' t3 y" h! @do* K$ Y3 u0 e4 E
if existsObject("Status") then
- c/ y5 e; K& g, T- h3 } Status.deleteObject;
' O0 Y3 \+ Z, ]5 I, E end;
9 U8 Y v' I( }2 L for i:=1 to 10 loop3 j4 h% H4 ?/ m- e+ u2 O
Res:=sprint("Store_",i);9 N( W% `1 X8 E' I. \- e
if existsObject(Res) then
# [$ h% W1 p; `9 X& N Obj:=str_to_obj(Res);! b9 W$ ]; @3 O' e
Obj.deleteObject;
) x7 ~; Q( X, j. u8 F end;
/ q5 V3 ~; ]% G b1 ?: `( o1 t2 E next;. j! |, R) Q; F+ u# N% F7 H
--shengcheng Status:zimoxingceng9 O, M* }# A' u2 P% h1 D/ G+ B
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
3 ?, P t* _1 S5 [8 N: u0 x; X Obj.Label:="warehouse status";1 h% C) t5 g2 l4 ?) Z# A5 @
) G( M3 A: x0 g) b3 |" l1 b' r
for i:=1 to WH_nums loop! _* |1 x* m# \
Res:=sprint("Store_",i);
0 [: J. p/ G+ F5 h Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
) a) T9 a7 V7 \6 M! i Obj.Label:=sprint("huojiaceng:",i);
5 B# r3 i* m" Q `0 t Obj.xDim:=WH_x;
$ q7 [, \, t! I5 \ Obj.yDim:=WH_y;& v8 d3 g1 G4 J7 F, [
Res:=sprint("StoreData_",i);6 F0 ^# u9 {9 q# |7 d1 u5 A' O
& K* X. t+ G9 [: p* A1 p- U
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
7 @: C6 ^0 |5 f* \6 |- P4 [3 n0 L Obj.Label:=sprint("huojiaceng:",i);
: A S6 d X# s9 `) l Obj.inheritFormat:=false;4 ?; u* ]3 W2 C L/ S3 ^, R
Obj.maxxDim:=WH_x;
: [7 s C) {( b0 u4 d Obj.maxyDim:=WH_y;
' p0 o }6 s. b Obj.ColumnWidth:=3;% ~% l) j% h7 k) q7 b+ b* l
next;
$ f( V, k; [' d% T. D$ ?/ p% d" u
$ m: K& J( _! Y& f" w) v! E .Delivery.MUs.Forklift.speed:=2;" l3 P( A& l$ W% F5 S
WH_var.delete({1,Part_Nums+1}..{*,*});% ~/ h3 t( a% j
for i:=1 to Part_Nums loop
$ b7 N" W4 U& D* B WH_var[1,i]:=chr(64+i);* W. [4 Q* k1 a/ F0 ^
next;
# \0 ~. Z& p- i7 {/ R" ?end;
4 Z# G) m: }& `5 Y% \1 X出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
0 u6 Y6 m0 }: w* X) k
& A( A9 c! b* J4 J) k |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|