simtalk程序调试不出来，帮忙看一下

zooey

is
% _5 n- A% R& j. J0 u' O        mark:boolean;
        dx,dy,ct:real;
: c2 Y0 x, [4 W! \; w: G    i,j,rows,lines:integer;
' o1 M/ O0 c. ?9 i2 c- s    machinename,bufname:string;
' E' O- A' B: k& _$ `- h% w( Z    machine,buf:object;
% \4 \: b+ f( y* J! t7 ~do
        current.eraselayer(1);
, A; x6 _/ j* y, q; a0 S       
2 Q- V2 d6 P. P; V4 |        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
0 X& O+ ]. v! f- i0 o( K& _                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
) c. b) S0 i  O; R  H" K( Z                        print"yes";
                when 32 then
/ s" Q: w7 X: _/ T6 b0 l4 A                        print"no";
                else
, h# c6 R# B2 F' O9 }                        print"cancel";
                end;
/ |, `1 `, d7 [# f* i                eventcontroller.stop;
7 A8 q3 ^. I- S6 E        end;
( \' q* V$ V2 e* Z       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
- P! W4 ^( t$ ?2 j3 h6 {        if existsobject(machinename) then
7 M3 X9 q# E" g* D  J  i- |                machine:=str_to_obj(machinename);
& e2 T5 f: ]4 x; u. a) J2 k( z                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
; u; G2 v6 k+ Y7 x" O' e        if existsobject(bufname) then
3 F+ s+ f* C0 X* _8 D                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
" Z" X/ B+ J6 S2 s: j( S% q8 _       
: r4 O% q4 ]7 H5 ~# O. P2 W+ G8 F        dx:=0;
0 n- d3 \  K- Y* S        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 c: B5 T& m; ~* L  }, u                --mark:=false;
3 D' I, N. P' ~1 Q) w                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
4 ^( Z$ ^: Q& C+ N' q                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
$ p! I# x) J  D                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
$ J) u. r1 o( S0 U+ M; O                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
4 C4 r& G: a( n( U6 D/ i; x  v                        else*/
" g# O6 {# O: k; a; G$ n. t$ n) I                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
1 f$ |. p7 S% A  y! p( A                        --end;
' {# _/ U4 X9 G, S8 V                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
. |) d" X4 z! F                        dy:=activityspace[2,rows];
! d& P& B7 a) D                end;
# b6 I" Q  {/ E: _8 w/ S                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
! }  {5 r9 t8 d! x7 C( A$ x                        activityspace[2,rows]:=activityspace[1,rows];
! p- x! B* }7 `                        activityspace[1,rows]:=ct;
                        end;*/
        next;
. k0 r! ^1 N3 R" Y! E        y_max:=y_max+dy;
0 K- g5 t/ L# E; @& o- D        current.drawrectangle(1,x_pos_init-5,y_pos_init-5,activityspace[1,number_of_machine+1]*xscale+10,y_max*xscale+10,228,174);
        current.drawrectangle(1,x_pos_init-7,y_pos_init-7,activityspace[1,number_of_machine+1]*xscale+14,y_max*xscale+14,238,176);
2 ^& `, D2 z( k5 f/ E6 [* d' i       
' C+ _4 `0 Z. a: P        rows:=0;
1 _1 S/ t# E) m3 r" B        lines:=0;
7 v& i+ Y+ L! l. |) K        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
0 T; ^5 o% |/ E4 ?; a. B                        if j=i then
1 _* ?6 Q6 W/ @3 n5 |                                d_from_to_chart[j,i]:=0;
, q( v' p8 {0 H  t                        else
5 Y. c  A' S& |" A0 }7 \                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 ~8 R8 ?9 H$ ^0 M( C1 E                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
                                d_from_to_chart[j,i]:=abs(dx-dy);
" d7 D# k7 x% k# R' L1 H8 V                        end;
  s0 M' J1 f) ^, Y) N; T( d                next;
        next;
9 F# k$ y1 P3 S+ [8 }       
        lines:=0;
        partstable.delete;
  y. ?8 f2 B' ]) O' ]" f$ O$ o% p       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 U% O8 s& n7 R. d1 X                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
' j. ~8 b+ R0 A: b3 a6 Z                        if w_from_to_chart[j,rows]>0 then
$ u2 `4 ?1 c. w& Q9 U                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
# C9 P. I$ R/ w1 D: R5 ?6 D                        partstable[3,lines]:=sprint("parts");
8 T: {4 }3 i0 p                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
        machine:=.materialflow.singleproc.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]+15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
+ P: {  h1 |2 K8 t9 N/ L0 J+ A        machine.name:=machinename;标识符未知
$ g- {: \( P% ?! m3 a6 w( ^        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
3 r' L5 ~7 x2 e        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
& ^: Y. i1 L; x- A; y        buf:=.materialflow.buffer.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]-15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
        buf.name:=bufname;
7 |; h9 q. O) m/ s+ Y( Q        buf.capacity:=5000;
6 U( j# W: h1 q3 t        buf.proctime:=0;
# j  F( Z, F( d        .materialflow.connector.connect(buf,machine);
% |- D* j5 a/ _8 ]3 s, g) u1 \       
) [! h+ r* f/ L7 F0 G        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
" @. `/ V( N& y9 lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
/ d, M2 H1 Y9 G8 [3 onext;
5 i$ O+ l, _8 t3 j1 B5 |1 \3 Dend;