设为首页收藏本站

最大的系统仿真与系统优化公益交流社区

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 4322|回复: 0

[求助] 仿真出错,求大神帮我看看哪里错了

[复制链接]
发表于 2015-5-10 17:46:09 | 显示全部楼层 |阅读模式
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。2 F  }; t) c1 \+ [8 ^1 u
语句是这样的- f, i$ V. ]' e% t& G6 L+ B5 }
is3 Y, e8 I% @9 U, v% w1 Y4 n
        i:integer;
+ _8 u* d/ N8 _* |7 q1 [0 c$ `        Res:string;
) C6 z( ^4 U. O5 R/ s        obj:object;/ }4 [1 G0 S  T5 T
do2 `3 V0 M/ g; b3 Y9 h# u
        if existsObject("Status") then
; W7 @2 c' t2 l& Z$ y7 l8 w1 P                Status.deleteObject;- A0 v! F0 s3 g6 l: Q; D
        end;
1 [0 G2 |6 P8 ]2 S+ l3 W( O        for i:=1 to 10 loop
- @5 l6 Y1 q/ \9 g                Res:=sprint("Store_",i);
. y1 H; O# ]8 Z) @$ K. T9 J" B9 j9 d6 K7 q                if existsObject(Res) then4 ?+ O3 \& f  M3 @7 ~5 B
                        Obj:=str_to_obj(Res);
) y/ J' _2 Z- P6 y3 q( O- e                        Obj.deleteObject;: v% G( Z7 z  m
                end;, f  B+ Y- U, t2 G' s7 _; y
        next;
# R; I) l) Q( Q- n        --shengcheng Status:zimoxingceng3 k  y! P# W$ M; J8 v8 C. y
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
+ \2 h% A) o% e) g" ^5 e        Obj.Label:="warehouse status";
& K( P8 y1 X) q$ S. f        8 o+ U. M# w) {3 ?
        for i:=1 to WH_nums loop8 t1 P9 p+ P' [& D4 q
                Res:=sprint("Store_",i);9 J  m2 G, o+ d' d2 g2 E
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
9 g/ R: H; J; l3 \4 q& z                Obj.Label:=sprint("huojiaceng:",i);
, _0 x8 o- S# J) F: P4 O% ]                Obj.xDim:=WH_x;: z* G* v- x/ B4 I3 r
                Obj.yDim:=WH_y;
1 g7 l: n; j* y0 ~6 z. L                Res:=sprint("StoreData_",i);1 C; B8 Y' _4 A
               
( i0 n. L( [( k4 {- ]  r4 C                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
* L6 A; @# w- v% }4 D' f                Obj.Label:=sprint("huojiaceng:",i);
/ Y/ f9 o. z; q( b1 r' v                Obj.inheritFormat:=false;  Y8 L( T" @$ v- Y
                Obj.maxxDim:=WH_x;/ v; r& ]7 s: y/ C
                Obj.maxyDim:=WH_y;9 k; W1 b/ F$ }# [2 t, t
                Obj.ColumnWidth:=3;
: H. S. \2 a, H+ D        next;
' a8 W. Z, D0 R8 P        5 r" Q2 u& K) C6 d
        .Delivery.MUs.Forklift.speed:=2;
1 P  D' j# D/ \4 j% ?        WH_var.delete({1,Part_Nums+1}..{*,*});. S" q0 |; m) T7 b- e
        for i:=1 to Part_Nums loop
1 B! _. w2 k% n2 c6 A; ]' J                WH_var[1,i]:=chr(64+i);
: G  n+ B( O  b* N( `        next;7 r' e2 h5 j% M
end;
3 n! u# N& o, z' u出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
" E- d! q6 [% o$ M) E6 ]6 z6 U7 X4 r0 Q, b3 }6 Y: b/ Z

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|SimulWay 道于仿真   

GMT+8, 2026-7-26 02:28 , Processed in 0.014551 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表