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

zooey

is
3 K! \5 G, u7 @3 l; z1 J' U        mark:boolean;
/ [* L9 b* }4 J% @4 _0 ]& p. x        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
& M9 B+ h' Q+ o$ N; [" V( ]3 E    machine,buf:object;
* A2 X. @: ]( j  P; ado
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 R; ^  K  h2 g- g/ ]3 H# F# k9 B                inspect messagebox("设施数目不对！请核查...,",50,13)
* s% T7 ^5 O1 f                when 16 then
* x( A2 d. L& k/ h! y( M                        print"yes";
                when 32 then
9 w8 O: W  b, |5 c: e( w8 u: E                        print"no";
4 k$ Y# j- E9 L. ^                else
* L! U2 ?3 Y; O/ [                        print"cancel";
                end;
                eventcontroller.stop;
        end;
9 i" d3 B" W: |3 t( a2 i       
& C( @3 V1 M! R5 A8 R        for i:=1 to number_of_machine loop
3 \5 c# t) {3 B# Y& F        machinename:=sprint("M",i);
; ^) Y, A9 p7 X; l( L, M/ h        if existsobject(machinename) then
6 c6 N( P# X% ]8 ~5 ?; ]                machine:=str_to_obj(machinename);
                machine.deleteobject;
9 r* r" _, k& V- s% s3 Z        end;
        bufname:=sprint("BF",i);
0 C8 r' Q- a2 \* E        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
& `  D$ J! ~. W7 c. s( \                buf.deleteobject;
3 c0 U1 I0 }+ X# d8 W5 U        end;
        next;
       
6 K' J; @* Z* x4 y        dx:=0;
        dy:=0;
5 ?5 G9 j$ ?- Q" y        for i:=1 to number_of_machine loop
$ x5 h9 f0 k5 a                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
8 c6 i; [; v) J; S& O                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  g+ a' V" r* C5 w( T                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 b" S% w1 V# ~0 J* ]  n* c) M                        and activityspace[1,rows]<(1.05*y_max) then
0 Z9 C' l: k1 A                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
# t& b' j% O- D                        --end;
                end;
) l6 ?/ {+ ]1 Q6 n: N# Q. y* B5 K$ P                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 b' Z7 w2 m1 k  X3 W            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
. n- ~$ T2 X  o                end;
                dx:=dx+activityspace[1,rows];
8 Q) L+ W& M' \! A: g# f* y% d! @                /*if mark=true then
                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);
        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);
; p: ]' H7 `0 ~       
3 h0 O' N+ X8 y        rows:=0;
7 |9 S! j6 f( A/ p/ r7 u2 G        lines:=0;
: X* W4 K. a4 B* O  {        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
) D; R$ J' b' n, _5 D                        if j=i then
                                d_from_to_chart[j,i]:=0;
5 V+ A; L1 h) P- F                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 E7 ?1 @( N, G7 E& U                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
& V, A, A; F, ?" J+ L2 u                                d_from_to_chart[j,i]:=abs(dx-dy);
) p: w0 g. Q* s2 t0 V# {9 k0 O                        end;
                next;
: x6 c$ v4 F7 M. v  `# W0 \+ O        next;
       
1 n6 P" T  D' ?4 N& h8 a$ B7 P        lines:=0;
5 O4 S& t4 [9 R9 y( q) y! P        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 L( s6 o5 h  m5 Z                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
; g/ L. _1 E, M+ \4 j                        if w_from_to_chart[j,rows]>0 then
2 m' z. u% M9 n% T; u, w" i& i6 Q                        lines:=lines+1;
2 L* t- _- z+ I3 p+ U3 m  u' @9 c                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 \4 _, F( ?! g+ b& }3 c                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        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]);
0 u# [: |4 ^, ~0 c( W- n% p        machine.name:=machinename;标识符未知
        machine.proctime:=5;
9 V3 t* d! N, [) h# U+ J1 V        machine.label:=activityspace[0,rows];
0 Y7 g& q! Q3 m        machine.exitctrl:=ref(leave);
6 f2 N+ I  l7 d2 s% g" k, s       
        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;
5 Y0 [& C0 w+ X3 z" J( d. N        buf.capacity:=5000;
3 U' }: B0 ]5 H2 E$ L1 J0 z2 K        buf.proctime:=0;
8 |# r/ D( h+ D/ ~: p! |7 L& G6 d6 [, x        .materialflow.connector.connect(buf,machine);
& b3 Y6 ~5 p  a- t* g       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: }& C: F- ]- ~" }) [. fdy:=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;
2 B. }, R* u, W5 send;