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

zooey

is
$ P  V& [- R0 H! [  j) H        mark:boolean;
+ `! a4 e1 ]  \2 [        dx,dy,ct:real;
    i,j,rows,lines:integer;
  c- u/ P4 @% I0 L. A- w; ]' l    machinename,bufname:string;
    machine,buf:object;
/ g- ~( c, i$ ^4 d1 |+ ^: Q9 Tdo
* H# e/ G0 q. q        current.eraselayer(1);
       
, @* Z# v+ u+ F% Z( R        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
/ K1 Y) [, ^& S) E                when 16 then
                        print"yes";
                when 32 then
  I; B8 Q8 t  F8 [                        print"no";
                else
                        print"cancel";
% p/ C" T. V& ?& v7 q                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
; Z+ N% H6 m* X- n        machinename:=sprint("M",i);
8 l+ _8 Y9 x- D- w- \9 u* [* a# w% R        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
! i( @6 W9 h. F+ R) Q; U                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
9 r  R. f3 z; i9 h7 P" v$ m        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
6 e' s4 }3 n% e9 y        next;
       
2 p4 g0 q3 T$ v! h) }/ o. k        dx:=0;
        dy:=0;
- r2 X" h2 `  `4 J9 {        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
' N5 E6 k9 U1 q* o# Q; ^0 L                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];
) B2 s- e5 {% a! V8 \: d                        ct:=activityspace[2,rows];
1 r+ g9 s$ a; }. o) s; P' I  Y1 U                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
. @) v# Z3 a2 T1 b2 @5 X                        --end;
                end;
2 ~6 Y' P" z0 q  F1 r                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
* k7 A$ a0 v4 H) _- F7 B  @                        dy:=activityspace[2,rows];
7 y( h# K( ^" }. G! O+ o6 w                end;
! Y1 ]# l$ V; i% q' X                dx:=dx+activityspace[1,rows];
) T% s: `' `. N" c                /*if mark=true then
                ct:=activityspace[2,rows];
+ {$ K# I  I' R& ^; \* }; o                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
. u/ R6 o6 o+ F- t/ d        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);
! [  j* w/ w/ W0 [+ G- P       
        rows:=0;
        lines:=0;
6 Q! b. m1 r5 S8 F3 g        for i:=1 to number_of_machine loop
9 |; F$ d+ r. U# X, I, H                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];
2 L& I' O0 b) [1 j) j8 O                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
: w" C+ @7 D, }" c6 ]2 U                                d_from_to_chart[j,i]:=abs(dx-dy);
4 V( e/ z9 C+ S* z* D, _* b                        end;
  T. w) X, R1 v1 y; p5 S                next;
        next;
       
        lines:=0;
* w+ g' M% W! m        partstable.delete;
7 m( h3 Y2 [7 a5 g7 {  V) {; ^       
        for i:=1 to number_of_machine loop
9 p1 b/ B4 I4 Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, Y3 h: b8 Y. e4 w! d0 N# u                machinesequence[2,i]:=rows;
7 s( V* B9 P0 h+ H+ j. ]                for j:=1 to number_of_machine loop
! H" X7 K# s5 t" X                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
& S0 c& e3 f3 S" J, ?                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
) M9 a: M7 p, l. U3 x                        partstable[3,lines]:=sprint("parts");
0 R3 V! ^% ~5 N. L                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
# W+ c- V$ s' U% L/ q$ @# ^' J                end;
        next;
' p' `* w! X& t( ?        machinename:=sprint("M",rows);
! ~1 \0 [' ~. E+ B        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;
- f+ z( k5 v2 k' j" u3 Q1 j        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
/ |, J2 B4 I% @6 A1 m: {; `; y       
( A- N9 [) W$ c' X* ]% z! J$ q( \        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]);
5 _6 I0 r, a9 E8 r6 N        buf.name:=bufname;
) y  s1 H, v3 d        buf.capacity:=5000;
7 l4 E& `7 _- X/ E% l2 z/ U* B        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;
4 i5 ]* H" O8 U5 a/ \3 b8 rcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;