|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。8 _4 a0 U: |, n5 i9 Q
语句是这样的
+ g j+ r, H/ C/ B; \6 ois
3 F7 V9 G7 V, Z6 A3 z i:integer;
, J% K6 X k7 K! w9 S5 | Res:string;+ i3 ?& ^% g0 g& ~9 ^8 g r
obj:object;2 O6 i: H, d3 x7 e5 Y
do
4 w( _# |, G2 C0 N2 A$ c if existsObject("Status") then M- ?! m! Y: p
Status.deleteObject;* u2 B" p$ D" t/ \/ S. ]
end;
e* u) s$ @$ X' K/ R for i:=1 to 10 loop
6 O, `, t# \' k$ f! y' i Res:=sprint("Store_",i);% a P# N* ~; g0 t
if existsObject(Res) then2 ]/ W; i- |1 S
Obj:=str_to_obj(Res);
" ^+ z5 X$ N+ Y, B Obj.deleteObject;1 M h# [) u- r9 U; p6 U
end;8 y/ ~0 s% R/ v; K% B
next;
) r5 r9 @8 j4 T --shengcheng Status:zimoxingceng
- v- o( G; \; l9 _ Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");( ^8 h# z6 W+ t2 y3 G' {! _
Obj.Label:="warehouse status";
9 b1 g5 D- Y& w, H7 O6 X6 t- _
" A. r8 g3 l5 ]! ?; u8 a" g for i:=1 to WH_nums loop
5 D! G8 l7 O) G, v- \, r Res:=sprint("Store_",i);8 |( \/ `, P5 }" {
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);. M6 S: u3 Z4 K+ B, ?
Obj.Label:=sprint("huojiaceng:",i);
& }# l2 z9 P# X, E+ B7 s G4 | Obj.xDim:=WH_x;1 o- p" ?5 l( i
Obj.yDim:=WH_y;1 P7 M& h# a) J3 C. I, L# R
Res:=sprint("StoreData_",i);! U. g" \, X( Y2 d& Y$ S \3 t& ]
: E5 f4 ]- B/ `1 t2 ], m Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);. |4 X+ _/ Y3 p' ~1 m$ w
Obj.Label:=sprint("huojiaceng:",i);
; M& U% X" M6 m4 l1 c- Z2 n Obj.inheritFormat:=false;! [* B. y! O; k' T1 n
Obj.maxxDim:=WH_x;
6 p3 q* g& G5 _6 Q" |) Q Obj.maxyDim:=WH_y;+ [' k$ Z T* v! z) s3 U
Obj.ColumnWidth:=3;: v' U3 k' B/ \7 v6 U
next;2 D4 l! w3 H' q1 y* T8 M3 F5 F
) B, r& }, P' y+ T! Q
.Delivery.MUs.Forklift.speed:=2;" G2 }# b, N' Q2 R g
WH_var.delete({1,Part_Nums+1}..{*,*});
/ y8 D9 A" Y1 S4 u; V- q for i:=1 to Part_Nums loop
6 U6 F+ E4 Z, `- H WH_var[1,i]:=chr(64+i);6 y8 J9 G( I* c) }) m/ U) S! E
next;
8 s! {' X- `& T6 |) gend;
1 L# g& C4 {+ \4 z出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
9 _! _- u' R: A/ p9 Y+ ^! k
, N; e" ^! p8 }. L |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|