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

zooey

is
( ~2 N* J8 S4 v7 o        mark:boolean;
        dx,dy,ct:real;
' p5 C+ K1 C% ?& |: B    i,j,rows,lines:integer;
* D7 k8 t2 u# n' S    machinename,bufname:string;
1 n; A7 ?$ v/ t* t6 b4 H    machine,buf:object;
do
5 m6 j7 f: s+ z2 A6 V        current.eraselayer(1);
+ a7 b" d4 p% R- \. i       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
) I  O4 }$ k. Y7 x/ A  X                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
3 H" n. _( k, `* `' |) \2 R                eventcontroller.stop;
. G7 W7 {: z# c! l1 W        end;
       
) z! Z6 J/ c! T' [: Z7 I# n        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
5 B+ i8 I- d1 _5 w4 f) n: D5 _# _        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
. N( F9 ^) g; J5 s        if existsobject(bufname) then
3 N' r8 f% V. C( b" W                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
; P: p5 s+ s0 Q! @" a       
! ^% }+ U: G/ x8 m- p        dx:=0;
  C* |( F* h4 M- U3 y2 W% t        dy:=0;
        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]类型不匹配
                then
                        /*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];
- c5 E" |# ^% E  ~8 Y* p: W+ m3 S                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. i, M! x4 _, E  m& S6 E, O                        activityspace[1,rows]:=ct;
                        mark:=true;
# f2 s0 O8 i4 |7 i5 L1 w                        else*/
! m: |. {0 b% M8 z                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
' _7 @# s# }9 A4 _) x                        --end;
7 W3 b; s' T; Y) x                end;
  i% x' O3 L$ k( T) B, i                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
* ]6 K, {1 A6 }7 s/ Y# J                dx:=dx+activityspace[1,rows];
                /*if mark=true then
& m' ^. x; W. `0 G                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        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);
. i! }, _+ N2 l* I' r5 _) p        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);
8 L. |' `* T' @8 x7 c8 i       
        rows:=0;
5 {  v1 S  ~/ P; u! R9 q        lines:=0;
) a5 H) F3 m( f9 X0 Q6 s3 S, R        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
  R( r/ Z. O2 Y+ @  N7 ^6 y                        if j=i then
                                d_from_to_chart[j,i]:=0;
8 _) c, @' W. C, ?3 T' I% ?                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 P+ J, d' z* F# v' n3 V2 A% N                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
" X5 R4 G$ \7 E9 z) F: ~  }) V                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
% w9 S) ?$ H3 J. Y- `+ P% x                next;
        next;
9 z! `: k5 P6 b* U) ~1 }& B% E       
3 M* T. D3 B) n) q' G) W        lines:=0;
        partstable.delete;
. ~( ]5 {; F4 A( i% q2 ]       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
; ^; E: \( f( q6 _                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
1 v( r4 R3 d+ O2 d5 Z4 Q                        lines:=lines+1;
3 B; ?+ {7 i- S; s8 N0 ^# j) Z! R                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
3 C1 T* `: z+ W" J9 L                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
. F% c; F8 e2 v0 w                        partstable[6,lines]:=j;
' B3 A- H& Z7 l1 n4 R; @" J! n                end;
        next;
        machinename:=sprint("M",rows);
/ O8 t9 U0 C9 _' ?( G        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]);
* C, [4 \: }2 t* G8 c        machine.name:=machinename;标识符未知
        machine.proctime:=5;
7 I1 p2 O; n7 D9 T5 ~" s( q        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
9 z( h4 s4 _( E6 f7 ]5 E6 K        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]);
8 q6 y, I$ i$ j6 l3 U        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
) I' w$ j! d; ]) k" b       
        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;
; |, w8 b  w6 Q6 ?current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
. h# g9 y$ ?' I1 v& d