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

zooey

is
5 C; t+ A2 t5 @! G* _1 ^; G        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
3 I( F& I6 v: x2 l4 E    machinename,bufname:string;
: C* U2 L! J, q% ]0 p    machine,buf:object;
do
        current.eraselayer(1);
( [" f3 s/ c. w5 U( I       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( {& w' W3 {" g# p                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
. p) I1 h( ~  C6 x* C: q                        print"yes";
                when 32 then
' a- `1 w4 s3 l+ Q; ?, Z  E                        print"no";
                else
. c" q  N& c, `5 H2 o                        print"cancel";
                end;
6 T2 \  @: ]# o" y                eventcontroller.stop;
# c1 H, T' g7 P- K* g, S# f        end;
       
% S- k) J) M$ @! Z7 j, X% m' H        for i:=1 to number_of_machine loop
. j, M( S$ e; X7 M/ b        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
. P+ N  Z- n8 N6 `7 _        bufname:=sprint("BF",i);
' A9 q& }  b1 M        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
3 r9 i$ K* L# |) M. ]1 j                buf.deleteobject;
        end;
0 G; Q  w1 D( _: ~        next;
       
/ b% k: R( b) _" t- n6 a7 H% b        dx:=0;
        dy:=0;
' \) b1 T. D7 ?2 S! G. v2 a) \        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
: @) F( r4 P4 U4 J                then
/ Q6 A8 r/ ~- D7 F" w7 i7 v0 N. k                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 H+ z" _8 t' {                        and activityspace[1,rows]<(1.05*y_max) then
( N* ^* g8 t/ X' s- u# T# ?                        print activityspace[1,rows],",",activityspace[2,rows];
& k" ]2 r* a! j9 w! S  G% E9 j  t6 }                        ct:=activityspace[2,rows];
" |' G4 p3 t1 c# v                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
* i% k/ K6 A- V( a                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
! j+ W2 K* N& y, G                        --end;
6 R/ J: z0 ?) s; B6 s                end;
$ T+ ?3 j* ~  Z1 W/ G                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;
& L9 X) b5 Y6 n% ~$ ~# [            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
6 S, i0 t# |3 g: b: C                        activityspace[2,rows]:=activityspace[1,rows];
' U! c4 `% L0 v$ R8 u7 U( k/ Q                        activityspace[1,rows]:=ct;
                        end;*/
1 j0 _1 J+ c5 X' `  Q+ ^2 l7 ?        next;
- K0 M! Y' u( C        y_max:=y_max+dy;
        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);
* g0 c5 b7 z2 R        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);
       
        rows:=0;
4 d3 a6 E# u9 I2 ]- P* _- u0 S        lines:=0;
! k2 ^9 j, @/ U        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
6 Z* n1 I, ?  B: {7 O0 x                        if j=i then
: `) U5 s. z, _% E                                d_from_to_chart[j,i]:=0;
                        else
6 q* s/ T! B' K                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
9 A: v" W9 U8 M0 y( M6 F                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
  j$ f+ r! a2 G" e/ g, Z% W; ]. R                next;
        next;
' a& H: q: E+ Z6 b+ [# a, q       
        lines:=0;
        partstable.delete;
       
) v. W1 r. W! f; S9 [% j        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 p. }' y& m! n  a                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
: v+ Y+ p9 r" `                        if w_from_to_chart[j,rows]>0 then
( I$ }4 x% a% ^8 G: w                        lines:=lines+1;
% |4 H  v2 d$ S) a8 n' B$ W; N% z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
5 u, `/ n) ?) [% D6 I* G5 ~7 X                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
* Q" ^& x7 U9 R- [                end;
        next;
( D' J" |0 C6 n/ r: R3 [' h        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]);
/ k6 h3 s, G1 V1 X        machine.name:=machinename;标识符未知
1 e" ^1 t! Q; k        machine.proctime:=5;
! K; ~# V% P: K* F, i7 J) E! c9 r        machine.label:=activityspace[0,rows];
! T4 n, Z+ c, i* J. `* X0 h) |* H5 _        machine.exitctrl:=ref(leave);
       
3 b/ c" X# E. {, b0 h5 Z" a7 F7 r        bufname:=sprint("BF",rows);
        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;
        buf.capacity:=5000;
        buf.proctime:=0;
, @; ?8 {; ]+ C  q8 X8 M        .materialflow.connector.connect(buf,machine);
       
  j9 ~+ {( M; U( |0 h3 E) F  u        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
; K7 _9 [  o: a( Xdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
6 A" t- u, E* d) F5 eend;
8 @4 a3 o' n9 R0 e. r$ F# ?8 l