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

zooey

is
( g  l" D- A: b5 G5 E4 j        mark:boolean;
* N6 r( A/ B! w        dx,dy,ct:real;
. Q. Q, t4 ^% r' w9 k: F    i,j,rows,lines:integer;
) c( @3 b8 a! c    machinename,bufname:string;
) b! |+ w, t  A4 [: h    machine,buf:object;
6 S, m/ C* l# j* T  ?+ _' f! _do
5 _9 J) i. \$ J& n& m9 }        current.eraselayer(1);
$ T! Z+ Z0 `% _4 V; `8 P! h       
        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
7 @) O4 P; i) R1 a$ P                        print"yes";
                when 32 then
                        print"no";
2 [, S2 o( k+ Z, \& u0 V! s                else
# C9 Q% o+ Y3 a1 q( s3 N                        print"cancel";
& Q* V' s; R, q3 ?8 H                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
1 E: N, e- u4 g/ X: a2 _+ ~! E        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
( P. \; d6 F) A' k/ x! Q$ ?/ u1 T, m& R        end;
* S6 w, q1 W/ V2 a: m        bufname:=sprint("BF",i);
0 o! F  f- P( U% c" x        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
: v0 E& o% Z6 R0 }" X" o. l& D+ c                buf.deleteobject;
        end;
* A. m3 o2 s2 Q4 O6 u) V        next;
9 j: K# ]* y  `6 `8 f( T+ n       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
" x1 p( k, q2 q3 u                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
) Y  P# L4 l/ l" @( j, n                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
- _! u4 q. f, T$ G4 d& \1 T; 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];
4 H( P$ H% j6 l8 `                        ct:=activityspace[2,rows];
# a2 N4 m) }, @4 o5 }2 W: J                        activityspace[2,rows]:=activityspace[1,rows];
( G# v' h! E& S+ J& p9 y' G9 K+ M+ D                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
% {/ V* o/ |) L/ j, y                dy:=0;
2 `, j0 I) ]/ y$ T( [                        --end;
                end;
6 H% @/ C, r0 \7 n9 P$ ]                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
1 M. }6 Z5 ^+ ~, n) o, _  J                        dy:=activityspace[2,rows];
# q: M  X8 i& i9 P! M' |1 F                end;
                dx:=dx+activityspace[1,rows];
, h! n- w. m4 ?                /*if mark=true then
                ct:=activityspace[2,rows];
. ?0 C7 M. q2 j/ g6 R                        activityspace[2,rows]:=activityspace[1,rows];
$ C/ s. _: G; ^" ^( |3 Q. _; u+ `                        activityspace[1,rows]:=ct;
                        end;*/
! ]: G! M! `: k1 I" U        next;
        y_max:=y_max+dy;
* b/ G0 ~& N" y8 @; |        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);
       
  Z, B% Q, d4 }+ _+ f; }' @$ j        rows:=0;
' U( [4 u5 t6 q. S, W+ o3 X        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
9 a( a/ z. V3 b3 {: H                        if j=i then
$ u& S  B9 \$ P( R                                d_from_to_chart[j,i]:=0;
/ m3 V, B! ^! s! x                        else
                                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);
                        end;
/ X8 e$ V& o# I: a( Y: ]                next;
        next;
; ^0 v9 `' h* |' G8 y; G       
        lines:=0;
* [7 |5 m6 A8 G        partstable.delete;
5 i" [0 i, l  l8 n6 x6 r       
  ?. E6 s4 J( P+ y6 G  V        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 P8 U, W; M9 `4 Z( F+ t* v: w                machinesequence[2,i]:=rows;
4 ?$ q# ?( F. n; d3 \* ], q                for j:=1 to number_of_machine loop
2 i, j4 e. j5 J4 m5 c                        if w_from_to_chart[j,rows]>0 then
  I3 H" `: g' C/ m( [+ j( ~: M' W                        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;
                        partstable[6,lines]:=j;
0 X" P. V& M- p6 d                end;
3 T9 T! x  f7 ?1 S- a        next;
/ W( V: S+ O' t5 d. P  n! Z, V) R        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;标识符未知
        machine.proctime:=5;
+ F1 H6 o4 u1 I" t6 i        machine.label:=activityspace[0,rows];
( k& t* a' h3 z: c  r        machine.exitctrl:=ref(leave);
$ @2 \2 {1 q, \9 m, K( ]       
5 M# y0 Y, g( C  {) w; i" o& t        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]);
% V5 Y# o8 D& T/ j( U9 L3 H9 y+ w        buf.name:=bufname;
7 p0 O, Y5 u7 ]4 c- e        buf.capacity:=5000;
) x, c" f( J7 b* N$ T8 S" M        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
4 F) v$ D8 z- E1 c' c4 O        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* O  f& x, E) o/ Edy:=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);
, t) l' L! _  V3 |: vnext;
end;
( R# Z4 U- W( y# o! R