|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。! S4 {8 m2 s8 s0 d7 X' l% O
语句是这样的
7 e. w! X1 r! s8 l" f! Pis" H K0 |4 G$ f* t" z
i:integer;; f2 K) D0 w9 d9 l
Res:string;
2 V2 t$ v$ p6 M" H, j0 P obj:object;* s) z! j' X, C5 `6 ^$ _" e
do+ C2 @' N/ y. r( k; c, ]
if existsObject("Status") then" l" Q: [- y$ B* l; J8 g
Status.deleteObject;* r" @" e6 `* Z( ~
end;; U( d4 t2 D% p* a4 c% a
for i:=1 to 10 loop
' L" R$ B: W3 H7 u Res:=sprint("Store_",i);
/ C, \" P0 C, M! l; Q if existsObject(Res) then
: F8 q ~$ v' @, v Obj:=str_to_obj(Res);
" [1 I3 g& n" ?* q/ { Obj.deleteObject;
8 Z* i q: P! R4 I [3 N end;
; F' k# { ^5 g1 \8 f" k next;' S0 w a/ x+ C6 S4 u, O2 f
--shengcheng Status:zimoxingceng) t. \% Z2 t8 s: }2 P1 m2 |4 C
Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
9 Z3 e; p3 W3 G2 m; k$ d2 \ Obj.Label:="warehouse status";
% R4 l; [7 a3 s2 M $ E2 A0 e0 W x: c% }
for i:=1 to WH_nums loop, I* q3 D3 W! E7 i
Res:=sprint("Store_",i);
( i; o2 u: K. x8 p' D! g Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);) X& {; t3 N; X) M2 ^
Obj.Label:=sprint("huojiaceng:",i);
7 m( A( @8 X9 J2 v3 h4 A Obj.xDim:=WH_x;/ P. @8 k- }4 D% @$ q
Obj.yDim:=WH_y;
! c7 d9 [ F3 R& N m Res:=sprint("StoreData_",i);+ ~) W+ U) o; i/ E* D
' y$ X/ O# Y# L$ {4 J Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);) P& |) G, B1 G
Obj.Label:=sprint("huojiaceng:",i);
! _- @9 r) n+ U" g3 ?; \- s+ M Obj.inheritFormat:=false;/ ^7 {: G+ j' {* y- g
Obj.maxxDim:=WH_x;3 {( x3 S! E! \7 r# a" W% F+ Y
Obj.maxyDim:=WH_y;& B8 d3 d/ E6 n# e$ p m( d
Obj.ColumnWidth:=3;
& {* a" t- e% p; ? next;4 I9 ~* [5 I8 n
d a, K% Y. ~; p5 h .Delivery.MUs.Forklift.speed:=2;, L5 s& Y/ G: z: I e0 z
WH_var.delete({1,Part_Nums+1}..{*,*});) j( K3 F2 A0 F
for i:=1 to Part_Nums loop$ |1 b$ b1 N7 ^6 G; C
WH_var[1,i]:=chr(64+i);
5 y4 P3 Z6 Y$ z y) r' o next;+ t, Y# P, w0 Z" z9 Z, ?
end;
5 N8 \9 W+ X8 G9 P7 k* o( H8 x出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
8 f. g4 g/ y( @& U" e
; ]: M" K6 {6 n2 k" c' `; v9 k |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|