设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 4231|回复: 0

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

[复制链接]
发表于 2015-5-10 17:46:09 | 显示全部楼层 |阅读模式
我在做《生产系统仿真——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
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-10 16:38 , Processed in 0.016479 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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