|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
1 |& p+ ^2 f5 g/ [* Q& o语句是这样的* M0 o0 N* }& a: V- o
is
* B* I$ I0 P: T i:integer;# I) T- {( w, f! I# g8 i+ ?
Res:string;. R7 a/ O Q/ R9 `
obj:object;
! H$ d" h: J! j) R8 gdo
! ]& s5 k; D$ r: S: t6 m if existsObject("Status") then
% W3 Q% |8 `% r0 p Status.deleteObject; }% y1 U) s$ [& ?
end;
$ t H! d. M5 {7 J for i:=1 to 10 loop
9 k6 N6 _% P6 Q3 t) |' E Res:=sprint("Store_",i);0 @# ]3 I* z% L8 X! h, ]" Q z
if existsObject(Res) then
, ~, w5 z; ~. K, O: p Obj:=str_to_obj(Res);
/ A7 P1 E# B! O' } Obj.deleteObject;
1 X& d3 I; a! [4 }7 ^. R end;
2 e. P1 c& V, ~% y* d( F9 O next;+ X! S* @, d. H: F1 G$ e8 P
--shengcheng Status:zimoxingceng: P; x" V# {8 S$ j0 I% ]1 x3 }
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
+ G# T) D `+ X$ E Obj.Label:="warehouse status";) m- ^& B3 A6 u! T& G1 f
$ A" y0 q9 f x# d* X8 @: D for i:=1 to WH_nums loop4 p! o0 W( G6 {
Res:=sprint("Store_",i);0 i" ?$ H# I7 B
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
0 Y& ~* G) ]7 U0 l0 U Obj.Label:=sprint("huojiaceng:",i);
" Z/ V: P: i% f# } Obj.xDim:=WH_x;7 m) X6 b) V, J. D/ V3 c7 A
Obj.yDim:=WH_y;
/ _/ E& c$ `# ` Res:=sprint("StoreData_",i);
0 t' i, O: |9 I5 i6 M ) j6 X/ k% r" i* T7 n! @0 N' _
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);6 u: e7 E! d4 p: m7 _0 \; @
Obj.Label:=sprint("huojiaceng:",i);
! I9 T) _* r/ A; m9 m Obj.inheritFormat:=false;
; j1 T& T. {3 A Obj.maxxDim:=WH_x;
( B2 N/ R+ J# [; K% q Obj.maxyDim:=WH_y;
: k7 f3 l2 ~4 O5 w7 e6 b& f2 q* w! L Obj.ColumnWidth:=3;
4 k/ ?3 y5 u1 k! Y* Z5 p. P next;8 I6 P9 v0 d! ~, i& m$ y
: K3 |. c! i/ T
.Delivery.MUs.Forklift.speed:=2;
* ]- B$ P0 N h1 o% C% l5 k' \! t6 H WH_var.delete({1,Part_Nums+1}..{*,*});3 ^ y3 f7 G$ U. |
for i:=1 to Part_Nums loop
$ {% H* i" v6 g5 C! q" V4 q$ W" a; B WH_var[1,i]:=chr(64+i);
) D4 \# ?4 \3 Y3 C next;
! s6 q' K1 I7 d" O. uend;# B! n, K% m% ~9 P) p
出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 $ [* D) }- T" i( Z# F
. e) y$ g2 m( l+ i! h. _% [6 P
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|