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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
3 Z1 o: ]0 d9 a7 C$ H( X* a0 a    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
& {5 I$ H5 _' @        current.eraselayer(1);
* |  _! f- ?, q& j# m9 W       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# e, I2 L% y8 _) T                inspect messagebox("设施数目不对！请核查...,",50,13)
3 ~* q' I: E0 D/ u$ ?  t                when 16 then
9 }! ~/ d! ~! s                        print"yes";
" g; g6 X5 f# u6 l                when 32 then
  f8 H) ?. n, N2 |7 _- t                        print"no";
- ?* [" }+ |- ]2 h, G! k                else
                        print"cancel";
- h& V( q" U. F' @8 ?3 ^& L4 w                end;
1 r' I% O2 F' J' I$ J                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
: c6 `4 ]. }: b        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
! o- P& C* _  N8 l                machine.deleteobject;
3 a# U) o7 h7 Y        end;
        bufname:=sprint("BF",i);
) T* U; S1 U+ _) h- \7 V        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
# f: I! D% M! U2 N) J. V                buf.deleteobject;
        end;
; z* y5 q8 N1 K4 U        next;
       
7 g: V! [! O9 c9 e        dx:=0;
        dy:=0;
! k1 b3 M1 R" m3 }        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" M, I4 I& [* P* a! g. E5 R* x- h% F                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
$ A' u4 E( K6 Q9 ]; ^                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 Z! j. U) l# t                        and activityspace[1,rows]<(1.05*y_max) then
8 j1 g2 E. _9 o$ |+ p                        print activityspace[1,rows],",",activityspace[2,rows];
) J  w' h- \3 f' H1 z* m4 O2 S                        ct:=activityspace[2,rows];
! E  J5 C  r: [7 F                        activityspace[2,rows]:=activityspace[1,rows];
% \0 f! @4 z, z* M6 W3 y6 q                        activityspace[1,rows]:=ct;
% l+ ]3 O# C: h5 ~4 O                        mark:=true;
0 w4 n# _9 z9 y4 i                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                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;
0 }8 F$ l  n9 z7 K) Y* Q6 h& Z) X            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
8 Z9 v: h2 F- |$ i, Q                ct:=activityspace[2,rows];
/ M" @7 L- R3 S" L$ Y* f                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
8 G3 v1 P1 Y7 u1 L        next;
: j3 I* O8 k1 B* V, r        y_max:=y_max+dy;
% L% n( [& B0 }' @* D) m2 `3 ~        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);
; X; d1 v' e9 B2 H        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);
3 l1 z! H( y! o- A* D) y       
        rows:=0;
        lines:=0;
) e& A1 h. Q, M        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
; ]2 O. `, B1 I7 @7 _                                d_from_to_chart[j,i]:=0;
                        else
                                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];
2 i, b4 h9 r3 m( h* o                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
2 @$ V+ l- ?/ @6 M4 m# o: c        lines:=0;
& ^9 ?/ B0 A# s# O        partstable.delete;
       
# b4 Y+ N( Q4 M8 u8 }4 G+ J  {- L        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
) x* l. s4 c+ V                for j:=1 to number_of_machine loop
; Y4 K( M; Z/ m6 x- I                        if w_from_to_chart[j,rows]>0 then
3 I2 V  c# M7 {! Q, y                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* W- ~( M" l. m                        partstable[2,lines]:=w_from_to_chart[j,rows];
; `# j0 }9 p$ s) M: i                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
& Y) i. N8 n3 \9 d9 Y' d, ~                        partstable[6,lines]:=j;
                end;
        next;
" ?3 E6 E3 O( A6 j- |        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];
        machine.exitctrl:=ref(leave);
+ N9 \. k* z, @' y$ W8 e       
        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;
/ D: \( ]# d7 r1 T0 M7 d        buf.capacity:=5000;
1 s% C4 @% R4 {0 J        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
! V- J+ a' R7 h. y8 T7 g! _: y- n        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
0 J  f6 ^: x' W% P: Edy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
, x1 M- `+ w: e! Jcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
& ^8 x+ e, ~* S' Anext;
end;
- k7 e( K5 L+ @" `4 F