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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
, ?0 d6 H' n/ A* }9 V    i,j,rows,lines:integer;
    machinename,bufname:string;
8 W7 o, i3 t1 z  f    machine,buf:object;
" p7 h/ H3 q1 H$ T2 d2 M- xdo
        current.eraselayer(1);
. ~' J1 p6 d" _9 ]% ^* Z       
4 ^; U. D& |! d        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
5 d+ {8 V5 N' B% N                when 16 then
                        print"yes";
                when 32 then
                        print"no";
2 p" y$ \* }0 y. X+ j/ T1 N4 V. o                else
                        print"cancel";
                end;
                eventcontroller.stop;
3 L( F0 O6 e) U+ Q% |        end;
( ]- l: |2 F/ P, n2 E       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
8 W+ y4 g# S: g& l. g        if existsobject(machinename) then
; l  m, G6 n) R3 A9 D, B                machine:=str_to_obj(machinename);
                machine.deleteobject;
1 ~' ^. W4 q6 D        end;
3 N% b0 C1 ^8 q2 U- @& g        bufname:=sprint("BF",i);
        if existsobject(bufname) then
6 ^1 B) F& w* g# \, l                buf:=str_to_obj(bufname);
                buf.deleteobject;
& n, C  d  S  Y7 R; _) W        end;
        next;
! z0 x' @+ u  Y; z# |       
3 \7 o7 B4 |& t' }( A/ G        dx:=0;
        dy:=0;
: Q" F, e2 P; d, T' f        for i:=1 to number_of_machine loop
* g6 H! _7 Q& K2 G& H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 K5 [  q" g+ l                --mark:=false;
' d6 }9 C3 ^% H. [( m+ W  {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
, S, [; X( z6 D- @1 j* e% ]/ V5 x                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- Z6 o! n0 ?7 S5 f* d                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
& ?. Y2 t' x  {, O0 D* F) s$ k& P                        mark:=true;
8 u1 K0 p$ d7 A: a3 m                        else*/
                        y_max:=y_max+dy;
/ o$ q, C3 T. f5 u) d- [3 }                        dx:=0;
1 e; i1 e; |3 U; V3 f                dy:=0;
8 B, V% j. Z! b7 n4 I$ N                        --end;
                end;
& h# Y2 h3 y- B# ^% `' q1 r) K                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;
1 A& s" b! F( b# q3 J) C) J" |                dx:=dx+activityspace[1,rows];
$ B# G' f: \4 b  B                /*if mark=true then
                ct:=activityspace[2,rows];
# \" b$ S2 K5 J* |                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
- x* d( C: J# M- l: {& t$ p        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);
1 Q+ h* @: _9 o' K" }+ s: u0 W2 c       
5 P) A% r) b5 U6 t/ C) h        rows:=0;
        lines:=0;
8 `3 z* c# k% _. ~) U# b5 Y        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
' w% P3 h1 w. l7 L, U" F5 P, n9 n. @                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# Y. l+ E% C% t6 h                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
8 N2 W% H1 O0 O- a* x  b3 Z" ]                next;
        next;
8 G2 U! h# x: M+ }       
        lines:=0;
        partstable.delete;
7 H' W: Y8 x8 v       
9 k3 e/ g1 m8 E! X# A& L. F* @6 ?        for i:=1 to number_of_machine loop
: F2 D# V! z& C# R4 Z1 c9 x: M& r9 S  r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 v8 ]% K. j) V+ S- E                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
+ K( U) `- q% G6 Y                        lines:=lines+1;
0 ?" {0 S: c$ i0 ]                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 n+ J0 R/ V% l9 b3 s                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
# R( ^% f% F" P) T2 ^( p9 x& p                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
+ B2 q/ N- M5 s% o9 ~        machinename:=sprint("M",rows);
5 B0 X/ k) b. g% b5 L6 r% S        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]);
, D4 A% s* `+ A6 V; Z        machine.name:=machinename;标识符未知
        machine.proctime:=5;
0 F3 m4 v8 T' ]4 G9 ^; }) V. Z        machine.label:=activityspace[0,rows];
        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]);
, w1 p! l3 P1 h* V# O  z4 N        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
  L4 }5 Y, E1 b9 m        .materialflow.connector.connect(buf,machine);
       
6 C! m5 N; f* U8 f5 a# ~6 Z* Z5 k        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;
* u! o. y' c! S( [& R2 V; j: Ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;