|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
" h! v9 U) |( m. q" g语句是这样的1 C: U* E* @0 H8 k7 C9 {5 Y
is% E2 |9 O! l, U% m' {' k
i:integer;; r$ E# V; E& ~& h+ ^+ b
Res:string;4 C7 D: m, d' v& }1 S: r% B
obj:object;
7 Z4 j5 [& O, `+ ?% Wdo
3 o+ N& _3 R+ w0 X: S if existsObject("Status") then
* @4 J# k5 R# s. Z! V( k) m0 h Status.deleteObject;0 g: v* ~7 u+ J
end;
8 _' ?/ k9 U4 W5 J# _) r. {8 J) Z- k9 L for i:=1 to 10 loop: y# X& `5 @7 W& D
Res:=sprint("Store_",i);) S" j) [% J9 x3 X z L
if existsObject(Res) then
/ a+ \8 q6 }+ u+ M3 {7 w Obj:=str_to_obj(Res);
( }9 D7 ?( m0 I8 E8 ~ Obj.deleteObject;. |$ `8 @3 w P( U
end;" S5 a. n+ u1 U
next;
2 M# s0 H" X3 Z$ G9 U- v --shengcheng Status:zimoxingceng
: A1 p4 l0 e, R6 u+ `" T Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");. b9 e- b. [$ r) v" s2 M% p0 p; E; P
Obj.Label:="warehouse status";& x5 E3 o _. L9 }( C4 s
' d1 \% H1 x7 D( i for i:=1 to WH_nums loop' a6 J3 q) R& O/ i. t
Res:=sprint("Store_",i);; ~1 _5 J( [ q: w0 ]
Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
# _ K! R g7 a$ L$ X8 b Obj.Label:=sprint("huojiaceng:",i);
F6 Q' Z. K5 I/ ^- ` Obj.xDim:=WH_x;
" v" m' \: s9 B3 } Obj.yDim:=WH_y;
1 F0 B1 l7 I( \2 o$ |) y Res:=sprint("StoreData_",i);
9 f2 H+ r5 m1 E' n, M
t8 {9 o. u- j Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
: q" X- V' d% `! u Obj.Label:=sprint("huojiaceng:",i);0 k2 O: s( V: N, F8 a
Obj.inheritFormat:=false;1 I+ a/ x; F: h/ L4 S8 F
Obj.maxxDim:=WH_x;& X- [7 R, X& u3 _; M
Obj.maxyDim:=WH_y;
% Y% X3 c, O. c8 V) s) k3 Q Obj.ColumnWidth:=3;
' `0 ~2 }) D+ c: m8 i6 E- h4 { next;! F6 C7 c0 s% |! s/ z
0 H$ Q& o: h# p! U
.Delivery.MUs.Forklift.speed:=2;5 E8 t; m1 u) [: E
WH_var.delete({1,Part_Nums+1}..{*,*});1 \9 V8 V$ A' k
for i:=1 to Part_Nums loop
, O1 h- c/ I e7 k' c" B! c* K WH_var[1,i]:=chr(64+i); W2 o! D4 g* _5 |7 l+ p
next;3 M3 t8 B" K) t# H# e
end;
: ^/ w( p6 I2 _1 Q* j出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 , O" d$ ?8 i3 w$ P
: U" V( G" _7 L9 b0 G5 `# V5 t
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|