|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。, K4 I3 g8 I; ^5 \
语句是这样的
& P; w3 l H' P% R \! ?7 dis' o8 z8 M$ X$ W9 ]1 ]( y0 n
i:integer;
+ t3 x/ c- B3 s2 z, J1 C) x3 x Res:string;
3 q. j3 ]0 ]' b4 W* y2 O5 J obj:object;4 T& ?& o8 r U; k: H: {
do3 V) h! Q" C* a* A
if existsObject("Status") then U; O3 a( K: {6 c) y1 |! ~% q
Status.deleteObject;
2 r0 n, f$ A8 n5 r& D+ I8 T( H) l end;
" I; T( c4 l0 \) u for i:=1 to 10 loop) f9 l4 x! q3 x2 F; M |3 t
Res:=sprint("Store_",i);
. n0 N: F8 C7 d3 {$ F% x if existsObject(Res) then2 O+ J1 @# g! j3 f3 d* C
Obj:=str_to_obj(Res);
% H3 A- n+ i4 p6 F) x' Q Obj.deleteObject;/ p; ]9 Y1 X/ N! a/ G; z
end;! Y) W: x/ `+ {
next;
9 F! h J5 g6 W" x) F4 ~ --shengcheng Status:zimoxingceng
9 v0 U1 u6 v- Y3 v* [, J7 _. b( P Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");# h6 I; T/ g0 S4 X+ U I
Obj.Label:="warehouse status";
. D# c; S" k" a5 K ( g- u; L8 u( |. ?7 z7 ?4 J
for i:=1 to WH_nums loop
1 t# H6 o# n& e8 O; H Res:=sprint("Store_",i);* k" M" A- L% p" F. z: z; l: n t
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);4 W8 M* g8 o. R6 {0 W" F ~
Obj.Label:=sprint("huojiaceng:",i);
8 B4 \5 @. e7 `* ]8 C; j! |( O Obj.xDim:=WH_x;% z: _7 l5 t2 e" P, I" z/ L N8 S
Obj.yDim:=WH_y;- r2 d7 G' R3 P X/ s" [
Res:=sprint("StoreData_",i);& a' r3 V6 w) V1 a- Z" q
/ H2 k2 k% z) S5 l/ s4 k! }# q
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
* }; C( U- i- ^7 ~" d Obj.Label:=sprint("huojiaceng:",i);
* ]+ a* P8 o$ g ^$ u4 n Obj.inheritFormat:=false;, T. T; c- a9 f
Obj.maxxDim:=WH_x;( N* k, E7 `6 A& `5 c$ E: n
Obj.maxyDim:=WH_y;
" s8 p' `! x7 X; C8 { Obj.ColumnWidth:=3;' h- H" N/ T6 R) f5 V2 p# {
next;
* d) [- V* L! { 2 L8 y8 C5 v4 _/ K$ o
.Delivery.MUs.Forklift.speed:=2;' E. d2 ]6 K2 y" m
WH_var.delete({1,Part_Nums+1}..{*,*});
1 @% \5 d- _/ ^9 @% \ for i:=1 to Part_Nums loop
, {% V9 g/ q) m" t WH_var[1,i]:=chr(64+i);4 f% O% H+ C# U$ c
next;
. L: L1 o/ V, v: oend;
; l0 O# A4 v" S出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
' k5 I7 Y: Q! X% W0 G
7 V. y( N' o9 M) |4 k |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|