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

zooey

is
( K, P5 w' r/ S" \$ j        mark:boolean;
        dx,dy,ct:real;
& t$ l) s) w- T4 R9 I, s7 J    i,j,rows,lines:integer;
    machinename,bufname:string;
, ]$ i; v$ D8 d+ B    machine,buf:object;
# w1 q) H2 |: O$ [+ ndo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
, Y9 L2 h; w- b/ C, {1 G. ^                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
, `) Z, Z7 U/ u& ?1 V                        print"yes";
                when 32 then
- i9 a* Y. n, z                        print"no";
  b# `" z' P( `/ f- M2 v8 w                else
                        print"cancel";
1 H6 r1 H$ w3 T8 M( I                end;
( V$ Q" I' r2 y5 y0 @                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
: _& U- ]" ]2 d% S        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
) F7 s$ e7 k2 l        bufname:=sprint("BF",i);
        if existsobject(bufname) then
  c; X, v. d9 p8 W                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
7 }# F9 U# r. w        next;
. k: t, Z8 m6 D6 E$ j: _6 r       
" v; s- k3 c' e2 a* J& c        dx:=0;
2 R1 E2 r  R8 Y        dy:=0;
" n5 M2 j1 v) R" b5 E5 k% l3 w        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: k' W1 P9 T0 [) P9 V9 d                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) a6 {, M, x' c* B9 }0 N1 [. r                then
1 \/ J( i# u1 k: X7 i5 c* W6 G                        /*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];
9 C7 u6 p: Z  U: S+ q                        ct:=activityspace[2,rows];
% V; N, K0 j* {( p, x2 z                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
+ V4 i1 j1 l8 S+ f; X4 v# z; r                        y_max:=y_max+dy;
* N% ^5 Y9 Q3 K                        dx:=0;
                dy:=0;
                        --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
; l7 w4 p+ T: ?1 a  @& J! ]                        dy:=activityspace[2,rows];
                end;
+ @+ x0 V6 R; c. q: M) R( @                dx:=dx+activityspace[1,rows];
* G* B9 U' R. d9 k! q. R0 c1 y                /*if mark=true then
7 S! f7 F) Z; f                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
# G  T1 z: d/ W; N, [  M- N' `        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);
' G1 b% e! C' T* i1 s       
3 t& p. q: F" t7 D        rows:=0;
) n' L3 H* }+ u8 |& J/ \        lines:=0;
% V9 z6 J3 P- l6 u        for i:=1 to number_of_machine loop
. ?0 O% m; P5 q: c; E5 f7 t                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];
  d3 _5 w; s  ^$ p  `5 S                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
- w- b" t# ~4 r- u" H1 j                                d_from_to_chart[j,i]:=abs(dx-dy);
" d+ [. G4 W  I# D& k, y                        end;
- G7 o2 i' J( I8 g6 ]1 b                next;
        next;
) X% n# N# \% S# h7 Y" s( H* W       
7 }7 _* j1 j' F" x% K+ c2 B        lines:=0;
        partstable.delete;
# ^" Y* R% q# e0 f       
* r- {) B, t- l, g; L        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 t# ?7 H4 Q9 k. @' C' ~' y# J                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
) I1 [$ s( ]7 S8 J( k1 Q( N$ Y) N                        if w_from_to_chart[j,rows]>0 then
+ d( `, t; h/ x4 N* O, U. G" o7 e                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
! ^3 C& J) `& Q3 X; g" V                        partstable[6,lines]:=j;
( t" R2 W; r0 F, k- W                end;
2 y# L8 p* \" c! N% I3 X        next;
8 r! U6 A' C) X9 B8 t" R0 Y        machinename:=sprint("M",rows);
# _5 t- I$ h  z  ]/ c, 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]);
0 T* b$ |: L# e        machine.name:=machinename;标识符未知
/ l+ c  U3 j4 l1 _/ _' [        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
& U; P8 C# S: T5 u       
+ \0 \! z+ e1 j6 b/ c- N        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]);
# B1 d5 a6 O) F, C        buf.name:=bufname;
% Q# K; Z8 }& t, F! M8 x) V        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
) w& L" o: T* @1 T1 ~# z* y       
# n: K- D) E1 |        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. Q2 P9 |2 j/ Bdy:=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;
/ S) e& |% W! l9 x; H