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

zooey

is
        mark:boolean;
: Z3 m7 ?+ u) ^9 o" v6 r" H        dx,dy,ct:real;
9 b4 ^) W. e: c' i. b    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
  v) Z5 z, @4 X2 s% ^: `do
0 n+ i1 O9 C' _6 v        current.eraselayer(1);
       
& v$ n# `  X  u1 u        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 V. }$ ?/ g7 x9 z                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
: w" W; _6 \, U/ D                else
) F* F0 |2 r5 G; R* q, h% N                        print"cancel";
& D/ O8 v, t) U8 X+ b$ f* p9 q                end;
7 w1 z& N: _7 ^3 c, t# V% t7 Q                eventcontroller.stop;
        end;
* \- W# U3 m5 Z' z       
        for i:=1 to number_of_machine loop
1 Y5 U8 B# P( `  H! m+ s/ t        machinename:=sprint("M",i);
        if existsobject(machinename) then
, i* D3 I$ n, d; N* k' _5 x7 p! l                machine:=str_to_obj(machinename);
                machine.deleteobject;
5 H0 L. b0 W* B) H9 G        end;
9 [: ]$ ~, n: p; d        bufname:=sprint("BF",i);
        if existsobject(bufname) then
; H8 B. B& d3 D7 M                buf:=str_to_obj(bufname);
- Q6 i3 H( a2 S$ n- d/ H9 W                buf.deleteobject;
% y1 d' i2 b5 D! @7 ^* E0 ~        end;
        next;
4 z9 q" w; Y5 u5 m% J       
        dx:=0;
% E0 j1 m4 r1 F4 X        dy:=0;
6 Q9 \; G  [. p        for i:=1 to number_of_machine loop
( X8 ?9 z8 Z, n! b! ~8 S4 x                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ f  a6 _, c  l% z" q, ~                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- a5 d, ~5 ]% _% |4 @" h2 m                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];
+ |1 a5 _/ V1 p4 x" F                        activityspace[2,rows]:=activityspace[1,rows];
& P0 e1 b3 I4 |9 o! K# e                        activityspace[1,rows]:=ct;
                        mark:=true;
# p! d6 N3 @0 U( d                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
* `' o7 ^6 O! `4 {' S& c% t) a) }; p                        --end;
                end;
; g$ h, h  t6 @1 L                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
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
3 H; r1 a0 \% g3 E' Y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
. S$ i/ _+ j" _6 b6 L$ X# X+ I        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);
  I5 W/ F2 c' M& v  k        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);
       
        rows:=0;
: e1 D0 _$ B+ X) M6 ^        lines:=0;
% N6 P  N& I' R( ^        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;
1 V0 c3 G9 r3 W, a6 A                        else
/ T7 @" M& T$ b. z( P                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- V  B/ u1 b* |8 M+ k; }$ g( l                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
7 x0 G( w8 a8 G, p  ~; B) d                                d_from_to_chart[j,i]:=abs(dx-dy);
7 |, I/ A, o% m' i# ]" Z7 l                        end;
5 b& G- i9 S- @                next;
        next;
       
        lines:=0;
# ]! ~% l* X" A9 N8 V; l$ \        partstable.delete;
       
        for i:=1 to number_of_machine loop
) M, c/ |- W4 I3 d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
- X0 {2 _  v( S                for j:=1 to number_of_machine loop
2 q# g* t8 k4 ~% z5 M7 ?' K/ E. Q                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
9 z6 h6 q  U! D) V) {                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 w0 k2 L% k! v* `                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
5 ~2 Y' |* d6 t$ a/ b/ P4 }                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
        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]);
5 I! k1 Y+ _, h9 t$ g; o: u9 M        machine.name:=machinename;标识符未知
        machine.proctime:=5;
/ l5 w9 f! N2 m$ s+ e        machine.label:=activityspace[0,rows];
, v2 T/ a; Z& Y$ p: i. C. X        machine.exitctrl:=ref(leave);
       
        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]);
- L5 b' Y, H  g4 T! `8 {& i        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
9 W6 _1 h' N. s7 ]: H) e; K) e        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ z/ O, ?# y- E6 {' v3 xdy:=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;
0 A$ W  k' d. {  V4 d  uend;
2 b  U$ }  W- K2 n