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

zooey

is
# t) I  Y- `! f3 ]- t! ]        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
+ [, S9 I# J# @3 ^) K* |' }1 ido
/ h- o+ j+ v* S/ C: o) F        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ ^  w& i7 q8 ^1 P+ @/ V  `; A0 _                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
& I- A' S/ m) x0 G/ c: l0 l, D1 m8 p                        print"yes";
2 B- @0 [7 J' S: c6 b. {                when 32 then
) K# J  Q' G6 e: e8 p% k( [                        print"no";
                else
                        print"cancel";
2 t8 p" X  o4 |! o                end;
  G0 E$ r+ U* m. T/ T! J4 N                eventcontroller.stop;
( c0 H+ ]- i. |5 R8 b1 b+ _2 G        end;
       
- J+ J6 \# n$ c        for i:=1 to number_of_machine loop
$ h3 i; X( o3 d0 O+ b  ]        machinename:=sprint("M",i);
( f4 `. }6 }9 M* z6 c        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
5 D7 a. w1 Z& {0 b) n' w; }        end;
- U3 H2 B  I4 w5 G9 x& t        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
0 o& u3 u6 ^  K7 u4 B        end;
! I$ f( L6 n! E6 ^6 ^7 E! R        next;
( R* j! G  _1 K: C# m       
2 x) ]1 E) e! G- o        dx:=0;
: D% j% O4 R1 {8 M1 A# z        dy:=0;
9 V- H: J; X- L        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ {0 j6 h+ `5 H2 v1 N$ o2 a- s5 X                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
4 |2 c3 H+ [0 O! R: g                        /*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];
( ]8 D( E2 s7 `5 {' i, S                        ct:=activityspace[2,rows];
8 S& N! W- r# K6 k8 K3 {                        activityspace[2,rows]:=activityspace[1,rows];
3 j# m" u3 C6 l' ]2 q, _' \& d, y# f                        activityspace[1,rows]:=ct;
                        mark:=true;
. |, v  ~+ o  e' g1 _9 p# q& ^                        else*/
8 u4 {: M% T6 p$ O( Y( L& X! i                        y_max:=y_max+dy;
                        dx:=0;
( o2 ~- ]% n* @2 a                dy:=0;
  O1 w3 f5 v! A                        --end;
                end;
                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
9 C# A, J0 R3 P$ G0 I& C4 q9 _                        dy:=activityspace[2,rows];
9 _" ?$ Q3 ]7 W                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
1 D3 ^: M0 @% W8 i4 \$ ?% p                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
5 E: ~9 m8 x7 T" ~# }3 n% l, C* _                        end;*/
* s9 e' j* t, |2 \' h        next;
( v7 K. }8 H4 W$ C% I        y_max:=y_max+dy;
3 s$ V0 J% [5 o% r  ]        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);
0 S0 Y/ K3 W  Y) O2 i' Z        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);
, F2 b- `" v( B1 M+ a( X       
        rows:=0;
        lines:=0;
        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
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
' c, x1 L1 x! G4 d; `                next;
        next;
2 ?9 N9 }5 E. v) O) u* d       
9 T1 p# H7 Q4 U        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
+ [' {0 w8 U, S! v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* _9 p9 v/ v% e) C) C& n5 r% s                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
/ {5 p! J) \( D, G                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
- o4 Q3 k- G& B                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% T2 B  S4 Y& d- B5 w                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
$ z( B: }, k  s9 Z3 O1 O                end;
1 J' S( U0 I; O! V; o# B        next;
        machinename:=sprint("M",rows);
  T2 t! X# Y9 r, t4 Y( _- Z        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
% ^1 g! l/ m) N$ n       
) Y7 l9 l' j9 R$ K! f' x; ~        bufname:=sprint("BF",rows);
5 R+ a+ L/ @. k7 Z$ K1 s4 H        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;
8 W" T4 M& C+ K$ h# g' \* g        .materialflow.connector.connect(buf,machine);
8 L  B% J2 B" Z$ s0 b* E$ I       
- A' k! C# L2 l1 w4 x( j        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
3 f/ K, D: y; o( H* F7 l! s& qnext;
end;
0 b% e* D% v# a8 C$ f. l