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

zooey

is
, T1 |. p  `1 R. ?! A4 p; _        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
" T' o# ?) e% P6 w5 T# h+ O       
        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";
                when 32 then
                        print"no";
                else
$ U( x+ c! O4 H1 f0 {9 b                        print"cancel";
                end;
5 A1 C- Y0 }7 B6 b( X6 n& Y' f7 d                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
5 K: ], O2 X5 Z+ Z9 B7 V, n/ C/ P        machinename:=sprint("M",i);
# c( V) R2 |4 G6 u7 l' J        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
, U8 E' J5 D. U1 }7 Z7 P- r, f                machine.deleteobject;
        end;
- T. |# O: U; }1 Q: y4 f        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
* r. v5 c* d. O% A8 x. Q! N& D; x                buf.deleteobject;
        end;
2 E+ E$ p9 E& X) S        next;
       
5 _2 D/ _( N6 c, M        dx:=0;
        dy:=0;
% h, p! A, V) ]" i8 {        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) C) j) r% c' p1 o: |0 b/ M                --mark:=false;
6 Q# V- _2 u# Q1 Y7 G                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) j6 a( |2 v, ?3 g1 H7 z                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 K) }" t# A  {7 E( y" g+ ~* [/ `                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
) [; D# S; v" k2 b/ D; ^2 N                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
/ ~) K; D2 |/ g+ w( [9 S' S1 ^                        mark:=true;
$ n2 C0 r+ b. k5 v' x5 `                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
7 M$ r2 I& h4 v  _/ E                dy:=0;
                        --end;
2 ]/ O$ O9 m" n. i0 l0 h5 ]                end;
' g+ ~8 M$ e! u# k+ S. K                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 S3 D+ G2 S" n$ {9 y; M                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
5 {# ?' R: ~; X! r! H            if activityspace[2,rows]>dy then
8 J! \+ p% C' U9 O" o- m' u                        dy:=activityspace[2,rows];
                end;
3 B- W4 O' W: B( @& `, O                dx:=dx+activityspace[1,rows];
" U7 U" `$ h+ v+ L                /*if mark=true then
0 `# J9 M$ @, w5 p' t% b0 O% Q                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 [" D4 C, Z4 q+ u8 b; _                        end;*/
        next;
) N. C! |$ M7 W/ r        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 v" o: s: F( T        rows:=0;
  i- Z" t* k% i( p: P3 `        lines:=0;
5 Z/ h/ r* O: I( [0 i8 T        for i:=1 to number_of_machine loop
- `- G% F0 f$ `" b; b# Y                for j:=1 to number_of_machine loop
# C" Y! r/ k3 b9 B( R' D1 H                        if j=i then
                                d_from_to_chart[j,i]:=0;
- T! x! c; C4 I" F                        else
" ?& C# n# C- Q9 h& D                                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];
  `- O  u. \8 f, N& j1 I                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
% b3 H+ l: L+ o; Q                next;
        next;
       
        lines:=0;
        partstable.delete;
9 u9 @( m& v" H- }" W       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
+ X, [0 }  d( ]& j                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ M( T- w1 G$ R  x                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
3 x- a: J  g# |: u! O7 N. H                end;
        next;
        machinename:=sprint("M",rows);
6 Q0 C& T+ Z( W" T0 @$ 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]);
% H* r6 x+ T6 k1 Y1 J2 |7 g: m4 q        machine.name:=machinename;标识符未知
- m( B. j4 P1 G) t5 ~! c        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
2 N; Q0 D; [4 ^7 x       
* o$ `: o( U5 N: N/ E, Z2 ]+ c) j9 f- E        bufname:=sprint("BF",rows);
8 O2 u# y/ O$ v/ V- B        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]);
  ?) J. j# l; n. m& ~( F6 j- Z0 K        buf.name:=bufname;
  b$ j9 e5 E7 Y2 u! o+ X9 n        buf.capacity:=5000;
# f4 h/ y+ w0 s* _3 i        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
* Z  `5 C# {5 N, R2 Y* 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);
next;
end;