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

zooey

is
9 N) R! m+ o4 j! J& F        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
5 J( K7 q$ J7 h3 @+ D    machinename,bufname:string;
0 p# ?# I1 [  Q! O4 }; m6 |    machine,buf:object;
1 h. c# e6 P$ G! o7 _5 l( J+ ^do
        current.eraselayer(1);
0 z) n% J$ H% o" c& O3 ?       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
  i9 c5 |' m+ ?  Z( I9 M! p. ?! Y                when 32 then
- _5 ]7 }9 e; F/ F                        print"no";
                else
2 a) p% S; U3 @1 t: _4 g                        print"cancel";
                end;
* D% K% S+ H: H+ B* E( _                eventcontroller.stop;
3 M+ h2 }0 t& T- Z4 S        end;
       
: x9 n0 r% C6 y/ O* h6 p        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
. {. t4 Q* x8 j& M# X8 O  b                machine:=str_to_obj(machinename);
6 y8 j- j$ b4 C4 f                machine.deleteobject;
/ _' U. h8 P6 X1 c$ [/ V. T        end;
6 E8 m- G8 z& X" o: ]7 W: N6 C6 x        bufname:=sprint("BF",i);
% z% t. D8 Q( u+ c! z        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
0 B) x9 ^  \- y9 J0 B        end;
, X: Z; N" O" n9 J9 T        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
9 }- `) t/ x7 E, [2 W6 x                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- u  A& Z4 p, m3 {0 M4 m+ L. Z, i% S                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
3 M+ U# [0 t+ [! W' _0 x                then
) u, r8 k, I1 m4 T8 U                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% v. K- u& f# m1 w8 G1 |                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
" z$ J) K) |# Y5 Q4 y                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
6 r3 q: r( N3 N! l0 U9 g' R6 ]! n* A8 E                        mark:=true;
! [& s6 T! o! M( g" e: J                        else*/
                        y_max:=y_max+dy;
9 K( z+ d9 h6 L% C8 p                        dx:=0;
$ K4 m; c* H6 O; |9 Z2 }: j                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
                        dy:=activityspace[2,rows];
2 V, `" r' ^' U4 g4 l                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
2 ?+ ]& v/ F1 Z        next;
        y_max:=y_max+dy;
4 h" s/ O* O, v( B, }2 U, V8 u, H        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);
2 Y2 g0 O" z3 M0 z" R' N' r8 w       
" F7 H7 N6 I2 M! ~! x6 N1 [        rows:=0;
        lines:=0;
        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;
) O: e- ?4 Y4 u) h                        else
# C( G& k& W1 Q! a/ V1 j                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                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);
5 D+ {5 p- K# [) Q# `                        end;
                next;
" P4 l; G% }8 Z# W        next;
       
        lines:=0;
( t, w* j# O4 n* Y' p        partstable.delete;
" U4 U9 @, B3 M2 G  `       
- o( ~* _5 ]# x1 @) \- L) v$ O        for i:=1 to number_of_machine loop
7 `4 i+ \8 l( A( r  f& Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* x5 E) Z' g- f8 _( c# ^                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
8 N; F. R: \! r3 l! w$ l                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
5 E. _9 `) Y/ U0 a' u3 }/ ^0 l2 m5 Q/ K1 z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
  h' ?  l5 Y0 }5 v4 T7 J! }                        partstable[3,lines]:=sprint("parts");
7 z+ e+ s! l5 F3 [9 f                        partstable[5,lines]:=rows;
, p6 e# a  y/ R' z% s8 b                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
. `# x% ~' L/ C/ l' o        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]);
  G& W) X, _9 ?" N+ P" T! b        machine.name:=machinename;标识符未知
) ]& u4 w1 E3 U) G/ T        machine.proctime:=5;
( |2 L! C4 D: }        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
1 z; {- }) A) f       
5 t* g% ^  o- S8 B2 i        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]);
# T3 T8 b/ ?& C) K6 Q4 C' G        buf.name:=bufname;
* h7 z! @9 u# H* y        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
. @) v% g  H6 l, {  V4 ~/ a       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& V7 C- n  Q) Y6 Ldy:=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;