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

zooey

is
6 ]( n- v" o; b4 I* `/ b1 w        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
/ Y' t- ?0 O* F) A0 `6 ^    machine,buf:object;
do
        current.eraselayer(1);
9 z% W7 l: T% [$ h. r+ p& i1 N' j4 A       
* k8 @  K  t2 }  ?) o        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
3 T7 ~* q7 V, W& M" V                        print"yes";
                when 32 then
1 L! d0 c( F- I9 c. z0 i, N% }  H  v+ a( M                        print"no";
5 d+ x$ z4 R/ L0 F/ ^8 n7 a                else
                        print"cancel";
  U7 S$ l6 M& W" h: F                end;
! b  A# T9 l9 B$ x+ h  n                eventcontroller.stop;
! w  H& [6 R0 ^        end;
       
. d& V2 k( V/ g6 c3 {. f. S        for i:=1 to number_of_machine loop
! W6 z* K2 b: c3 h" c! z        machinename:=sprint("M",i);
5 _: K  x5 O! R- v+ }9 H        if existsobject(machinename) then
6 a9 Q% z) n1 C6 A+ T8 L9 |6 N# E* z                machine:=str_to_obj(machinename);
" S% Z' `8 r" a$ L, t                machine.deleteobject;
        end;
% J8 A. S; Y6 B& L        bufname:=sprint("BF",i);
        if existsobject(bufname) then
0 X+ `/ n* V$ T. N0 H                buf:=str_to_obj(bufname);
                buf.deleteobject;
1 `+ Q: I, s% U9 m# p* D        end;
/ }3 p$ @' y! B0 x        next;
6 w: D4 E9 U; V" `       
" n( U( T; L, U9 n) x, S        dx:=0;
        dy:=0;
* n5 J$ X0 d) h8 \5 q        for i:=1 to number_of_machine loop
' Y1 W  t9 ~$ R( A& A                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) F9 _5 k: r2 P2 H! f                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ G" ^! T! f% K                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  A5 v+ I0 b6 l' J0 L0 f4 V! q: }                        activityspace[1,rows]:=ct;
( w0 v8 p8 P6 N- B                        mark:=true;
8 }$ X/ @/ K2 X: l; I                        else*/
. _0 O4 ^8 P5 c* B8 J: t4 L2 \                        y_max:=y_max+dy;
' T- @. ^" H: ?  @                        dx:=0;
3 }/ s* W: H- I                dy:=0;
7 m' d  A1 \% L6 z                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 @& G" ~. O! B                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
$ Q: ^; L  h" A. h  E8 K$ R8 x- K                        dy:=activityspace[2,rows];
' j0 U2 }# a$ y( b3 V$ h: B                end;
" w7 [$ e* V  v( q* B, s( t7 G                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
6 n, K$ S/ }6 K6 Q' X6 B. ]                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 e! y) I3 F- \+ G5 M; p/ }                        end;*/
8 X0 a; a3 R/ V3 Q' r0 ?        next;
+ a; f) o- y6 H; J* E0 q' x: O        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);
% n4 V3 _) w7 L8 c        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);
       
6 J. n4 Q* H$ G        rows:=0;
; ?0 }& F! \4 X1 W- w' d        lines:=0;
! i5 [: |) L5 v9 Q        for i:=1 to number_of_machine loop
3 U4 O5 U6 ]) t8 ^" H& O                for j:=1 to number_of_machine loop
                        if j=i then
5 A& k- _; g$ I% h# [1 f, K, K" i                                d_from_to_chart[j,i]:=0;
1 Z* F# e* `7 _/ F. M) N7 z/ U# B                        else
2 y) N1 Y. @8 r' x  H                                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];
, r, w9 s3 U+ F* M( W; G& T                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
) h) O4 |4 U6 O( c7 ]                next;
        next;
  A) y  R' F( |  u       
0 \+ j# U0 P& C8 B2 Y+ T        lines:=0;
8 F9 B! S" f$ j% ^% h  P        partstable.delete;
       
. ~( r- R- v$ s6 ~$ t; E1 e        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
4 T% G+ U' A8 R4 Y                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"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 _2 ^7 K* c3 M                        partstable[3,lines]:=sprint("parts");
2 _. Q' h2 X6 v                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
/ O; A+ p3 K$ o3 x                end;
: q( m, q- i6 Z& v2 ^3 Z        next;
        machinename:=sprint("M",rows);
, J9 v+ J$ k+ E+ M        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]);
6 L6 c: _7 M8 }0 ^        machine.name:=machinename;标识符未知
& _8 Y1 n+ T' Z7 \* s+ ]3 l# R        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
4 A- f& x4 E! P# p' m        machine.exitctrl:=ref(leave);
       
* H& V4 q6 p7 h2 x% K$ [/ {        bufname:=sprint("BF",rows);
! @' S& Q! O( m        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]);
$ n  E; c6 [% F1 a. `2 e( S- d        buf.name:=bufname;
2 S0 X- d3 C" Y$ B% q        buf.capacity:=5000;
  f& E! Y* c1 o" k/ X! `0 Y        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
4 s- H& x/ k& M- O- M1 ^        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
& J6 o1 t# G% P& B9 Rcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
' j+ @  r9 y0 inext;
- O9 _* `, w- _% C4 Vend;