|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。* B1 p* j6 f; S3 @" V% n0 p
语句是这样的
* q* Y% Z* y8 i" J( ois
7 `9 ^1 @' [- l b6 U* [ i:integer;2 O7 K* q7 A4 Y5 T3 B/ }/ d5 @
Res:string;
' A0 ]0 _' j, O" C obj:object;8 s. c0 T- M `$ s& r$ I7 t
do2 ?( U: @" R$ u+ q8 b) B
if existsObject("Status") then0 j% c4 O* I U" K
Status.deleteObject;. R# `7 S% E' E: X
end;
% f0 a5 d- H4 M ~( ^4 T* g. E for i:=1 to 10 loop9 l1 P/ k7 c# T) T0 U2 M
Res:=sprint("Store_",i);2 \, z B/ y3 h2 J. Y0 o# a
if existsObject(Res) then
8 o, r/ {- F5 S. L0 z Obj:=str_to_obj(Res);8 z, Q: q: r R* k. V) D( x
Obj.deleteObject;/ Z6 K1 \8 `0 o' M
end;
0 R3 a" F7 y: {7 E; f5 n( S' _ next;; V0 K- n) Z4 ~- U1 z e2 Y
--shengcheng Status:zimoxingceng
2 ^; A, c |' J; ~! e' w1 \ Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
4 C+ z% t" J6 w# H Obj.Label:="warehouse status";
0 B' Y* |" o/ {) C( R# b $ g( r8 n7 z7 m6 t# ?/ o: c! q( T
for i:=1 to WH_nums loop
. M7 A9 q7 P* n# @ Res:=sprint("Store_",i);8 u- Y9 J/ u2 v! P& W+ H, c
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
8 P- W/ G, n3 F+ X l Obj.Label:=sprint("huojiaceng:",i);
8 W) b5 V7 |, h3 E+ z% l6 q& q8 L Obj.xDim:=WH_x;1 v `) P& } Y
Obj.yDim:=WH_y;2 j+ N3 _% a8 D) {" F
Res:=sprint("StoreData_",i);
. V5 i: V% Q! I+ k5 m/ V# T% C- H4 |
5 [' D/ z- S$ n V8 o/ x Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
) o* e! d( L# D/ E; T; x Obj.Label:=sprint("huojiaceng:",i);
# Z, I) o% o4 C/ u: X' R9 [ Obj.inheritFormat:=false;1 E* Z) k" O. f8 S# W8 ^: ?$ F
Obj.maxxDim:=WH_x;
$ l' j) M; ?4 ` Obj.maxyDim:=WH_y;
7 _$ E' g! D) P3 Z3 P2 j Obj.ColumnWidth:=3;" Z, }. s! p. ?: x7 ^% ^
next;( s b7 z" Q$ z) g" u2 A0 {5 [
) D1 o- m% B% f7 Z: v1 ^! i
.Delivery.MUs.Forklift.speed:=2;
( s- h# A- j3 l5 j8 ` WH_var.delete({1,Part_Nums+1}..{*,*});; c% h( T6 a6 J* S
for i:=1 to Part_Nums loop. r$ Z1 l, D- ^3 W4 i
WH_var[1,i]:=chr(64+i);1 v" B0 W; s; f5 C1 K
next;1 ?3 t% D! k }
end;: ^4 V+ |6 G) V" e8 ?
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
( ^1 C+ U* v! A, t1 [; N. u
9 k, o+ K$ Q% O+ X7 i! { |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|