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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
. Q! }' `6 l1 f* r* l# P    machinename,bufname:string;
    machine,buf:object;
do
, [( R% P- q: B* z        current.eraselayer(1);
: n! w( }+ i  T5 Y+ i/ R/ r       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 J6 P1 g- }4 f3 M                inspect messagebox("设施数目不对！请核查...,",50,13)
0 O( s2 S# P+ Q/ v# P2 f                when 16 then
                        print"yes";
                when 32 then
                        print"no";
& z( g. a4 V3 ?% y1 ~$ W" Q$ c                else
                        print"cancel";
  p* A0 s1 ]1 G/ f                end;
3 v8 N, X9 E0 [! U                eventcontroller.stop;
  y2 S' d" p' _- h) L6 K        end;
) |9 I$ Y' h. }. W5 n$ Z: l       
        for i:=1 to number_of_machine loop
# {6 M; B: j; d9 n& u( [" v# Y        machinename:=sprint("M",i);
3 `& O" h& o, q# @; v1 I        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
4 P' K/ Z3 f- L- s        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
0 \+ v2 F" K, }$ r                buf.deleteobject;
5 y( {! u8 I8 K; f; I        end;
        next;
! n& m* y5 E# m& v1 ^* ^       
        dx:=0;
2 k" y2 {  P  V) {7 @* p! l8 ?( l: Q        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! g9 L6 W& W8 x% C                --mark:=false;
/ \$ c7 h3 L% u; o                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
. U: i- Z5 j, y! W2 z* j                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 f6 r2 l9 e" k- c                        and activityspace[1,rows]<(1.05*y_max) then
  C9 Z- {! I, F                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
4 c- |% U' A  i$ }8 H                        activityspace[2,rows]:=activityspace[1,rows];
3 p9 x3 _9 N( G* v4 i                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
! U7 Y; w  b2 o: k                        dx:=0;
7 {2 ]" D( u' R5 x# Y                dy:=0;
$ y$ F1 a5 R7 p  Y                        --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
& Z5 g4 y& [8 a1 d8 u" K                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) a9 M& F8 b; M) Q( h+ T+ O  l                        activityspace[1,rows]:=ct;
7 J8 n7 V  C1 c  A                        end;*/
& v, i) N2 v4 z% s8 P- Z' t' ^        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);
- E) q2 Z, f0 e; x5 J% B       
8 R3 R$ R0 s8 d        rows:=0;
0 c/ n' M5 B  ~1 T        lines:=0;
$ |9 T: ^  [7 M1 y# X8 `, E        for i:=1 to number_of_machine loop
. F, V  C" c2 f; i# E0 y0 l                for j:=1 to number_of_machine loop
                        if j=i then
5 J* s; l4 c; g, L4 A5 }                                d_from_to_chart[j,i]:=0;
& I0 T% ^$ ?3 K; j( G                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
" S2 M! G/ b3 ?. v6 Z/ ~* j) ?* T                                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;
                next;
        next;
       
6 m4 m4 J. y/ f% ^2 |& |        lines:=0;
8 h) u: Q* }- \# z4 j        partstable.delete;
2 m# D. l" E7 ^6 q5 O) E9 R       
+ Z* y) b4 ]8 b+ R        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
8 N, g" o0 \9 }  D' C                        lines:=lines+1;
: x7 h  g' n( C$ l. r. g                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
5 K) [' o4 N8 I/ Z4 L6 F6 B                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
0 N2 L) R; m5 L/ z, ~4 k, ^                        partstable[6,lines]:=j;
3 c4 p6 t# j# O5 s                end;
        next;
        machinename:=sprint("M",rows);
. @( W% d& G/ Y) W+ S/ s        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;标识符未知
5 ^) A& J) J! X: E) F  X6 _' Q        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
9 S9 I2 |, p; B1 g, r. J        machine.exitctrl:=ref(leave);
' n! R( n' L: j  w       
        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;
        buf.capacity:=5000;
  h; K/ h9 x! e' S1 y( k        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
7 {0 I3 g( L% q4 ]       
0 |7 J  L0 T! H+ s, j* k1 L% Z) q        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: @3 g- W3 Q  [* w+ t4 ]6 X' udy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
/ c6 q8 J4 }3 Z, pcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
2 O; O2 y/ |' T1 b$ Enext;
end;