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

zooey

is
4 R& W- n) b  Z' r        mark:boolean;
        dx,dy,ct:real;
- C( S* N% F- P; l+ Y# Z5 V  f    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
) r  M' t" F% G! R) ^3 _; J+ t        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
* ^5 _5 O7 G7 u  R, w$ o                when 16 then
                        print"yes";
, w2 d- h1 ]4 x  U" s                when 32 then
                        print"no";
8 S2 D, d' D& C* E( }                else
                        print"cancel";
" j4 G8 V9 |- j9 m& Y: k- Z                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
( O2 N! c/ ~/ {7 k- {: m                machine.deleteobject;
( X! z/ i8 u1 S( D1 E2 I7 W        end;
' U0 c" c; O; O& S  f1 p2 Q        bufname:=sprint("BF",i);
        if existsobject(bufname) then
# ?( M* p  ]5 A& d                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
& A4 P( Q/ o- C% `% K2 [7 O$ f' L  S* I( z        next;
       
  E; W6 i- }$ _3 a. a) }        dx:=0;
* C& x+ l% ^$ y        dy:=0;
( t( q: C: d8 t9 D  j        for i:=1 to number_of_machine loop
* J3 X7 g4 r! H" Z+ L4 b7 x                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 H8 E& @& D' w7 r                --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];
5 [2 t5 b# |* m* W2 y& g$ V                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
5 w/ M0 C8 n5 U) ?$ R- W6 J                        else*/
. n% D% c. j& l; J/ o# |                        y_max:=y_max+dy;
) Y( h, j: A7 v; U- Z% u                        dx:=0;
; h6 z5 b1 [. x/ z) K                dy:=0;
                        --end;
                end;
1 I" S+ l4 n# `; R, j- q                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
) y9 I. c0 ~% \: Y: i                        dy:=activityspace[2,rows];
$ D3 U  s+ V0 e1 s6 a- d6 }  U6 O                end;
( e- V+ y2 g0 n5 l1 q                dx:=dx+activityspace[1,rows];
                /*if mark=true then
1 T, z+ F4 J5 F6 K                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 u5 H0 i) R4 j( h: j4 l                        end;*/
        next;
9 A/ p6 F( O+ f0 [+ s  C+ P- l/ [9 j        y_max:=y_max+dy;
, }) A6 h" }$ E  d! D8 k        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);
       
+ Z0 o& C/ I" C3 A( G9 g: ~+ l        rows:=0;
1 r! N* h5 d+ R) J9 [% F) q/ V; s        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
2 p- |4 W. C  X% {+ x$ [8 K  I# S" h0 d                        if j=i then
                                d_from_to_chart[j,i]:=0;
) ?# h; Z) R. S% d4 Q, ]. z                        else
* S& N! L. f: r7 g                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
& x1 z2 V1 G9 G2 ?9 v. v0 G2 Z7 v                                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);
. M- Q3 ^, C4 j9 w                        end;
                next;
        next;
       
        lines:=0;
1 [% F- Q3 c* C( Z# R, l+ \. }        partstable.delete;
: V$ F* C$ u5 ]( b* I9 h       
        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;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* i( Y9 i# q) ^1 i) A                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
: b6 \5 X, D' v( F! b) |/ k) `# t                        partstable[6,lines]:=j;
                end;
* A; I" g4 r: {, k        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]);
        machine.name:=machinename;标识符未知
% k  K2 ^7 @1 q% z+ x' r) W        machine.proctime:=5;
- l1 v" q6 [' v* E# j        machine.label:=activityspace[0,rows];
% z: m3 |, O# V0 n# ?# o1 ~        machine.exitctrl:=ref(leave);
- g: T) l9 ^) U' o& Q! z9 @6 W       
) I/ {7 y+ @# _9 }" ]' i" D/ Q3 M        bufname:=sprint("BF",rows);
/ O3 [) T& z) Y) C( g        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; p) i' ?5 s9 |3 m5 R2 |        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
1 w( @, Q; k2 g* D/ v       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, a8 Q% }& u  ~# @2 ldy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
& b; z* `5 E- {current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
& l7 G/ z+ S! P4 V+ j) c% {next;
end;