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

zooey

is
% O  p/ u& `$ F, C5 B4 g        mark:boolean;
% Y* E$ ~- C! Y3 F9 n        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
7 Y3 [" G8 C6 l3 ]5 X& }& x& F    machine,buf:object;
8 U4 T; t2 N% c, C0 zdo
% b/ i1 {! T1 L$ \        current.eraselayer(1);
  ?( ]' M1 J' H# ^1 |       
! b, j, d9 H6 s) s9 W; K        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
# M- G* R! H; r# t" I; @7 O                when 16 then
& d. q) g4 ]& b' {# J0 ~                        print"yes";
0 D) X/ x1 G+ ~# c                when 32 then
% O# Z- c. R4 q- {4 U& I# [: [* @2 l                        print"no";
                else
! C2 t- F0 x9 r' `- k/ x                        print"cancel";
                end;
- [% O! y1 D" g                eventcontroller.stop;
( ?, N: X9 h3 M- w! M0 |$ h& _; E5 b        end;
& x8 `8 Z9 I. ?  m       
9 r7 e1 Y% e. l# V        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
3 ]4 J& |7 @  P% ~        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
' t, k, M7 y' @- \. P                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
3 ]- {2 H- Q- z/ R3 e! R                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
% U% c! r: n9 v& U        next;
- y4 {% l$ h2 O- B+ d4 U       
% N1 t9 w% l* J0 K1 f        dx:=0;
        dy:=0;
/ Q' _- h8 X4 [) k2 d        for i:=1 to number_of_machine loop
" z3 C1 {( L. s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* `$ T' Z! u" r5 e1 ]3 ~                --mark:=false;
8 t1 G8 q4 T5 S* I6 H                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! c0 K. v$ Y; Z6 ]                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
6 y7 ?5 n, u% X/ }1 ?2 r. U                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
" w3 R; n0 {; }/ s                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
% Z0 i; B# Y$ g9 B+ ?' f, N0 {                        mark:=true;
! O8 E1 a7 @3 p0 {2 l                        else*/
                        y_max:=y_max+dy;
$ @. \2 v1 \2 o% I: b. R                        dx:=0;
                dy:=0;
0 N9 W4 X5 R( b9 b8 @                        --end;
3 ~: J- K0 A) d* n                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
# z- s& J7 U' m6 G6 ^( {                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
9 y7 O( m) D3 z( f8 m* j                        dy:=activityspace[2,rows];
                end;
( S6 @2 m2 q  g9 f                dx:=dx+activityspace[1,rows];
* w7 S5 ]: [: d+ u) \                /*if mark=true then
0 ?2 h# b/ C7 W9 @1 ~' G                ct:=activityspace[2,rows];
6 s; ?- f& o& N) e                        activityspace[2,rows]:=activityspace[1,rows];
0 ^6 g$ U- \0 i) _& j                        activityspace[1,rows]:=ct;
                        end;*/
& V9 i% j* }! [  v        next;
        y_max:=y_max+dy;
5 I1 H( J3 k# `" d/ c( K        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);
. O+ `# _* D/ v4 d/ K& i4 |% I# e6 y       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
3 {& ]9 c) f. j% J. W) \                for j:=1 to number_of_machine loop
                        if j=i then
4 t; R! \$ W; ?5 r                                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];
0 \8 J+ s( s; x+ {2 D! z                                d_from_to_chart[j,i]:=abs(dx-dy);
8 }+ z: p: _) f                        end;
                next;
        next;
       
        lines:=0;
; L0 Z$ R! _2 k. m        partstable.delete;
8 z, c  |* H8 ~       
' \" q" J) h& i, m/ u7 g        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; Q* U6 d0 {4 N! Z7 w                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
1 c0 i, O& A1 o: }3 o                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
  C7 v* q. K+ ^. _0 P  g# e                        partstable[3,lines]:=sprint("parts");
  B% b* o. T6 C% T                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
) _! e( i# n7 G+ J1 L8 k" S$ x                end;
- _# ]1 k% U# N9 t0 }        next;
        machinename:=sprint("M",rows);
8 c0 p( r5 T2 ~' X        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]);
; @7 b7 E6 V9 B2 ?9 u3 B6 \        machine.name:=machinename;标识符未知
        machine.proctime:=5;
2 x1 L) Z$ d/ t; {5 D7 l* U1 m  e        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
8 n. y" `4 u( ?4 s9 @' R        bufname:=sprint("BF",rows);
2 }( }% W7 F; w$ @        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;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 }) x( O9 a8 ydy:=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;
end;