|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
$ h3 O+ L5 U- j. N: C' C" o, `语句是这样的0 W! e$ Z1 G2 B# s/ p" t
is2 G8 `" n* B. j" a- ^
i:integer;: d2 P2 f8 ^) ^
Res:string;1 P8 Q! @- N% V# |
obj:object;, ]9 h; \4 u& }% s% @- h
do
, q5 g. g! J" O# ? H if existsObject("Status") then
& e: h5 ?3 z1 x1 h( b3 P, X3 n* l Status.deleteObject;
! \( g$ g# \0 `( x) ?6 \) J end;
, k: G, j* Z. G for i:=1 to 10 loop
; ]8 g6 ~7 F. ?" p# ` Res:=sprint("Store_",i);0 B" F1 n1 u& Z7 M( K6 X
if existsObject(Res) then, A2 @7 B: u1 c1 `
Obj:=str_to_obj(Res);
6 f6 J9 q, o6 O7 [ Obj.deleteObject;$ A/ u; r' f: m9 o
end;
5 q! Y, H/ s7 i" @3 \; G next;+ R8 f7 j: o% v( Z K+ G
--shengcheng Status:zimoxingceng4 f4 h4 Z |; {
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");/ [4 p$ p X# W
Obj.Label:="warehouse status";6 x) C* J# @; t1 o" J1 a9 h
: e& D$ ^% `: q j/ K" ? for i:=1 to WH_nums loop. @1 S+ @2 Z, V% q+ ?1 x: o
Res:=sprint("Store_",i);) ~* N, H5 j' z! o6 p5 p k0 k! [4 a
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);) j# @" e2 V2 m7 ^2 c! X) {
Obj.Label:=sprint("huojiaceng:",i);
! w5 N! L+ x; Z* w Obj.xDim:=WH_x;1 I8 G9 S3 f7 a4 B
Obj.yDim:=WH_y;
/ ]) q- |2 y4 N, D5 R6 @ Res:=sprint("StoreData_",i);
8 v% T/ T% V q5 F2 k3 G. j, L 4 k( I3 a$ y* s. J
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
q2 u( c/ i8 V1 ~" Z8 z4 G' P Obj.Label:=sprint("huojiaceng:",i);
6 I3 P: o. O1 @/ p Obj.inheritFormat:=false;
7 q2 x+ {) r I4 a8 y Obj.maxxDim:=WH_x;, ]1 N" F9 G+ F+ ~8 Y" T) t
Obj.maxyDim:=WH_y;
& |+ X7 f: B+ k2 ] Obj.ColumnWidth:=3;# t; A8 M3 p' \* p2 z
next;
/ ^0 v0 T3 P+ f1 D9 i o5 w9 [ ) z' W- m" K& {& n# J5 S5 C
.Delivery.MUs.Forklift.speed:=2;* V- U6 i5 K% D
WH_var.delete({1,Part_Nums+1}..{*,*});
, R# f/ V+ A. n# ^5 k+ g# v& U for i:=1 to Part_Nums loop
+ r5 S4 p9 D% n! d4 b' v WH_var[1,i]:=chr(64+i);! w9 m2 b; u! \- j. f% ?
next;7 T- D& k8 F$ a2 s) f" n
end;
( o' e1 R3 ~" ~9 }( [出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 , w- [2 a5 t" m- U
5 M; c' }4 B& G( p: P4 ^
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|