|
|
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
3 \2 ?9 ]0 p7 e1 ]语句是这样的
: t" E2 W- h1 N6 c9 Pis
; r$ _+ C% i* ~# f( u i:integer;
) Z( N8 n+ E0 m+ m1 p: u( m Res:string;
* I" f* A( z$ X$ l; q: ?9 R | obj:object;
8 u. F* }" a6 J' B( l" {& V$ ^4 Hdo7 E$ T3 T+ [6 L
if existsObject("Status") then3 y, C/ B% G" V8 B' }- R
Status.deleteObject;
3 Z+ _3 O. B3 ^5 g6 t end;# k# x' u7 q: R* \
for i:=1 to 10 loop
$ I7 H/ a/ Y3 ~ J- g Res:=sprint("Store_",i);3 m. t: V8 ~* ]- o
if existsObject(Res) then
& y6 f$ T# C4 I4 I' r Obj:=str_to_obj(Res);
% w6 ^& e9 L) j1 o3 |- R9 {4 s Obj.deleteObject;& {. Q. Y3 A: d" h* p
end;; A, r2 l' x/ a1 G) w% ` {
next;
$ q2 z) }8 W! R( n2 w --shengcheng Status:zimoxingceng
5 c6 p* |* M0 [9 e* X" {* e Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");2 p$ ^ h% R. V2 H# s
Obj.Label:="warehouse status";8 ^- i+ K5 D5 ~3 E3 J- Z, z9 m
( G/ b( q9 Z2 g: v# s for i:=1 to WH_nums loop
0 w5 L5 X: H% R$ Y( h, R Res:=sprint("Store_",i);
* `# V5 z" ?, E4 `1 C1 K Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
8 D( A, g; o4 D8 C* v Obj.Label:=sprint("huojiaceng:",i);
9 a1 ]) D4 {! m Obj.xDim:=WH_x;& i/ B, y3 O! U
Obj.yDim:=WH_y;- k4 {* S5 `4 _ T
Res:=sprint("StoreData_",i);
% |7 X6 L3 N# [* S$ y) G ( g6 K% D) i8 B' @4 Y5 h$ d( L
Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
S. M; W5 f8 x0 E/ h- M3 P Obj.Label:=sprint("huojiaceng:",i);0 p# b6 V; m! X& {4 `
Obj.inheritFormat:=false;& l/ v- o( x! h" o
Obj.maxxDim:=WH_x;; C* u# |4 m# l7 E
Obj.maxyDim:=WH_y;
- M7 q/ s% g9 F6 J8 n& k% S; X Obj.ColumnWidth:=3;5 L/ N) u; k" y$ @+ I$ ?9 ?
next;( z \6 g2 }! a- P! J! _ O3 A" o8 j
* \8 L H% |) K8 {0 e0 `& I; m' x .Delivery.MUs.Forklift.speed:=2;
# J& F, _4 t! D& a0 z. h WH_var.delete({1,Part_Nums+1}..{*,*});1 b6 J* U: Z6 [
for i:=1 to Part_Nums loop) c% D3 t7 c2 \
WH_var[1,i]:=chr(64+i);
+ s' p$ U- {# Q next;; F- a$ F3 R5 {+ W( x+ ]
end;
' N# d6 I, T5 q/ e8 |- ~) d3 M% x [出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了 & d8 B2 r2 x9 x/ f+ ?$ u; K) Z' @5 [
4 j# k4 r& n p2 c
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|