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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
0 J) c  Y( S5 `1 j    i,j,rows,lines:integer;
8 P! _8 ]4 a* W6 p8 E1 [0 d4 R    machinename,bufname:string;
! l7 B  @1 @) N" T( R) I# M" s    machine,buf:object;
do
8 ?  G9 N3 Z; Y        current.eraselayer(1);
/ U4 _+ m2 R0 D3 \       
; K. r  {, A3 R- D/ P, H2 v. ~$ L        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  v5 ?6 A) p* [' I                inspect messagebox("设施数目不对！请核查...,",50,13)
* ?0 j& m8 S) h6 {+ g% F                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
& ]! q% u1 Z3 f6 T7 Y, Z% Z                end;
                eventcontroller.stop;
* p" x) K( Q% p+ |        end;
- H; D) t/ w0 d8 {       
5 _( h$ x9 u* t! v+ @. w# \# Z        for i:=1 to number_of_machine loop
' j' ~2 z0 g  n2 X        machinename:=sprint("M",i);
( q( i! q3 G: a9 g; e2 G        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
6 ^. t% T7 O* `        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
3 d/ q4 @/ }/ R9 l8 P+ f        end;
        next;
       
        dx:=0;
& Y1 J1 D( f  b# g2 i# x& \4 e% o        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* w$ x8 \1 ]& f$ b; x- Z                --mark:=false;
1 u+ F( p9 |3 ?                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 F0 x/ Z2 \3 L' L; J                then
0 }2 P! N$ \5 h/ G7 ~, }2 n' ~                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
2 V% o6 z1 r* M4 I                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
; f4 g% i% T& o! W) a! i1 K; y# W                        y_max:=y_max+dy;
2 A0 |. |2 W* Y( q) h6 q4 ^                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% P& }3 C) Q9 |1 A                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
, o- W2 }6 }5 Y9 F            if activityspace[2,rows]>dy then
9 m, x( l. {7 F! @                        dy:=activityspace[2,rows];
                end;
  d7 m  I4 D: G8 o                dx:=dx+activityspace[1,rows];
                /*if mark=true then
# p4 |  y" p2 k$ A% M( ?                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
9 o2 w) }8 B1 i* a" X5 ]                        end;*/
        next;
6 p; ~1 l4 S9 i' d2 S1 V4 h        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);
        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);
& g0 P4 d! [& ~7 t! M0 Y       
        rows:=0;
        lines:=0;
' I: @( F2 L. E        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
0 J$ X, a. r4 C) j. j                                d_from_to_chart[j,i]:=0;
                        else
6 w2 a# t) H3 t. }$ D' v& H, L                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
8 b: K3 c% j: n; [$ Y                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
) z& R1 A3 C: U4 k                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
; h5 D7 m( x7 k6 s; D        next;
       
/ D5 P5 T2 {9 w: x( C. m        lines:=0;
        partstable.delete;
& l: j+ u& ~0 s% \       
        for i:=1 to number_of_machine loop
5 N- b" F; V0 Z. W7 L- a                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
+ _: K. J, R, M$ W                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
2 l# B- [7 v7 ~2 ^; }% Q                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
; `: x$ a( S3 J2 k7 a* D        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
! l* o$ t/ ~( t1 D# ~# S/ D        machine.exitctrl:=ref(leave);
0 B5 I1 l+ ]# r4 n) s4 q       
% i- y( J5 f- Y/ g% U5 Z; F0 _+ W' v        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]);
' H3 @' p' _3 r3 L! |2 {% J        buf.name:=bufname;
        buf.capacity:=5000;
: v, k, b3 y+ b6 }4 {9 G% z5 W        buf.proctime:=0;
1 |: b! S, M3 Y6 \0 ]5 P        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 N3 E# }1 z0 s* Qdy:=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);
2 p$ l4 x- l  q3 a5 y# inext;
end;