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

zooey

is
0 d" R( ^/ C- q2 n        mark:boolean;
+ E4 h. V) f4 o* D- y, X        dx,dy,ct:real;
) Q' u7 u6 A! Y  X! o) B7 a, n' w    i,j,rows,lines:integer;
    machinename,bufname:string;
6 p5 t' L% m# K% m+ A    machine,buf:object;
do
        current.eraselayer(1);
       
* ]' S' o) n+ x7 m        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: `+ J/ P1 e% g3 Q5 j% p- G, Y* ]                inspect messagebox("设施数目不对！请核查...,",50,13)
6 U5 g% m% b+ C# F0 E                when 16 then
                        print"yes";
: H( h4 ]* [3 T  O                when 32 then
                        print"no";
- p% f; W2 ]' J7 l1 j9 X1 [                else
2 v) x9 y" V/ V1 n' w( R                        print"cancel";
) [/ B. P$ d& ^+ {) X+ P" u  M                end;
                eventcontroller.stop;
        end;
       
- \8 P% Q- [% I        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
. n! s3 @* }: M# {        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
5 [+ }$ Z/ M5 i  i+ ^! R+ ~) i! ?                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
! M8 a# J6 s% I0 j* W* q        next;
  S& q; b2 i& X" C4 {7 m+ |: Y       
        dx:=0;
( r" E8 [# }  o. c  f        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
/ q& w& z! j$ r: m2 V                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
$ t4 l2 `% H7 \                        print activityspace[1,rows],",",activityspace[2,rows];
$ O$ t5 F5 A1 K* ^+ h$ z& x                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 L% A) O& g5 Y& L                        activityspace[1,rows]:=ct;
7 g+ E( H# u9 u                        mark:=true;
# E4 O5 B2 n$ D+ L- w  V                        else*/
                        y_max:=y_max+dy;
' e; s+ r2 M  U% d% }; J                        dx:=0;
+ G+ Y* P5 z7 d& a                dy:=0;
  N, W2 L9 @9 R* x) v" G9 W7 r9 q                        --end;
                end;
3 x& W5 |0 R% ?# ~                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;
- y% e5 y9 Q. R# @            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
- v3 u' B; j$ A7 K' q                /*if mark=true then
                ct:=activityspace[2,rows];
0 g" o! z! w. K  r                        activityspace[2,rows]:=activityspace[1,rows];
* ~' f6 J4 r" s# _$ W. o3 ]                        activityspace[1,rows]:=ct;
                        end;*/
7 _/ J7 N  ]; q; h! U        next;
0 R& \3 g+ v; V+ j6 z        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
6 K# f( t, u( X; ?; H4 [; q8 t3 M8 v                        if j=i then
                                d_from_to_chart[j,i]:=0;
" W) T+ ?5 Z( G; C1 W. }/ V                        else
* z: P& J" r7 q9 t                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, i" L4 h# A6 B+ P0 G                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
) W6 Z3 q2 ]) U) t                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
  u, [  W: v8 [. y( H' @       
  x% Z5 |/ f" C: `7 a' s! x        lines:=0;
        partstable.delete;
       
: N: O+ }8 P/ Y# E2 V        for i:=1 to number_of_machine loop
$ v' Q0 m# T( ^" c8 L                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                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"));
6 }5 S8 \' v- {. z; Y8 u5 v$ S                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
, A. l1 H( T- L/ `                        partstable[5,lines]:=rows;
, ?/ V  J2 V# w- ~                        partstable[6,lines]:=j;
) F% g: v6 N5 i; s5 P8 I' b                end;
, V% ~/ t  E0 A: o4 u        next;
        machinename:=sprint("M",rows);
, i8 H  a6 l3 f, v/ x& W4 a& J        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]);
  C1 j$ [: I( X0 u4 `; o1 i        machine.name:=machinename;标识符未知
        machine.proctime:=5;
. U7 g) K4 O  a$ X5 T' U/ s* P        machine.label:=activityspace[0,rows];
7 m1 H/ u8 x/ W. Q6 e        machine.exitctrl:=ref(leave);
       
        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]);
9 N- Z1 d% n( H4 e, z# P8 J        buf.name:=bufname;
) }! S. e" ~1 o* Z: ?        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
8 L) p( A4 p0 V" B4 y       
/ G+ \8 W5 d2 t$ |        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;
, Q3 m3 I; a* ncurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
+ s& M* M9 {, z1 \2 s$ ]; Yend;