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

zooey

is
7 A& O& H4 r! L: [        mark:boolean;
* o: B# B6 J) N+ l# m6 Q% z        dx,dy,ct:real;
: R% q" l; Y+ [$ P% O    i,j,rows,lines:integer;
3 D  ^* N, [! k    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        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
0 q4 `# b3 m+ q: D# P                        print"no";
                else
9 ?0 X, k; i6 f/ J                        print"cancel";
4 O4 [0 R4 t  S7 d0 h4 {6 w                end;
                eventcontroller.stop;
0 n3 n$ o& ?% l" [9 L5 Z$ p. b        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
3 ~) O: }) [2 n; R9 J2 @6 {        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
/ _9 K9 t0 X9 z, @' H- L# C1 A  \        end;
9 q$ P# `' G0 |3 A        next;
       
* m, b; m, c. ~' |3 P/ N        dx:=0;
        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];
                        ct:=activityspace[2,rows];
/ e, h% f: B; g- z# h                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
; T( p9 F+ Y, s9 z# ?- ]( U                        mark:=true;
                        else*/
* g( c, R6 M! S- [+ e( G8 r1 H# ^                        y_max:=y_max+dy;
% D2 ?3 ]9 i0 _! w& p, y                        dx:=0;
: @$ `6 q- F* b; @                dy:=0;
                        --end;
# J; ^* W7 A) B- j. `3 o                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 O+ N4 E- O9 |* q  q: k                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
( k" E" w. c" u                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
" C3 v9 y% j) y' [- m9 p! c                ct:=activityspace[2,rows];
6 U2 Z9 z9 G: u' E0 a+ d/ `                        activityspace[2,rows]:=activityspace[1,rows];
4 D& v/ |% ~/ [; _/ B9 A4 o                        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);
& t1 k+ I7 t4 M. V        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);
       
) n; }; N+ ?- F! v" h        rows:=0;
' M  B/ T$ z0 b5 ~        lines:=0;
. g* N/ g" \' M( S  A3 e. E* R( J        for i:=1 to number_of_machine loop
6 o; U4 u' h/ [$ s7 H                for j:=1 to number_of_machine loop
                        if j=i then
5 F2 L& i; X& q. ?                                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];
5 A2 w. E1 e  k1 K                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
( h; `8 u& G4 k        next;
       
2 }& f% t% s" `. P9 B9 j        lines:=0;
        partstable.delete;
& I/ k# c) B9 N- t& k: X9 U       
7 L8 C2 @1 X0 J3 j. X5 {7 l        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
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
  D) Q1 j$ w$ Z8 z: U! O                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
8 B: X) p7 B- F: B: W4 r& D: }                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
* }% T. ]* z' f+ a$ t5 d        machinename:=sprint("M",rows);
$ Y2 Q/ d5 x+ W. ^/ Q! m3 i        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/ U6 A: h7 l+ z2 F/ B        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
; E; q* f6 R& l; v       
        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;
  d0 Z; D6 x* b, S: j3 [/ l        buf.capacity:=5000;
        buf.proctime:=0;
0 e* |: z8 }) [% C/ [' H$ k8 i        .materialflow.connector.connect(buf,machine);
       
* A7 g) }5 ~7 A5 [5 w# S        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ g5 l3 x8 ~+ K' s9 Kdy:=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;