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

zooey

is
* N/ n. _$ W" B4 S; |        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
# ?2 u8 @( K) mdo
8 F- W% a9 l/ h& L' u        current.eraselayer(1);
" k+ U, c( }1 x5 _' A! @       
2 R! Y1 w7 e" r, J8 B. T        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";
                when 32 then
                        print"no";
                else
                        print"cancel";
) R% p$ U9 d; g0 R, V3 N                end;
                eventcontroller.stop;
        end;
) r  p3 R% `$ ?% D9 Z8 m3 O# u       
+ ]* Q; C1 M: Y& K# F+ k        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
; B7 l$ v, n2 W& s" Y        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
7 O& i# f# n/ B4 J0 p+ ^) U: L9 p$ }                machine.deleteobject;
        end;
7 W% o$ `  L1 e3 U        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
" u( |+ N. {1 k  u/ Y                buf.deleteobject;
        end;
        next;
       
5 ?1 i" |1 X6 Q6 j( ^' z        dx:=0;
; c* ?1 ~1 f& }- ?4 @        dy:=0;
1 v% d- `; X  a8 M- X        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 \, D6 v# ~8 x' g5 h( Z                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 P0 I& r2 ~" ]( d                then
8 l0 I1 o$ z2 t) c6 n9 l; ?  {                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
$ G. v/ U6 y( t1 ~* s- O                        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];
                        activityspace[1,rows]:=ct;
2 [7 g. i& g% F8 b  {- S# L( z, |3 Z                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
; _+ N+ L) J. @9 S( M0 t                dy:=0;
2 p7 k) U) I3 d. p5 J! t$ I  x                        --end;
8 O5 P. D4 a& _6 [- G                end;
9 j8 `4 _! T; l; O7 e/ D                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];
* M* _3 ?: J& X                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
7 ^9 G' F3 N. T  Q/ E, `7 c; ]0 d                ct:=activityspace[2,rows];
# S5 [- ]. e- q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
" \% |6 k5 J3 n' k% D, {8 y! |8 a        next;
$ J+ u" E' A7 m  h        y_max:=y_max+dy;
( _# J; L" l9 H4 T        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);
6 p. e- _6 T; ?7 w  B! [6 s8 ?) U       
% X+ F+ H6 j; m! T! x+ c        rows:=0;
        lines:=0;
9 N' Z. z  Z( J$ q' Z, N        for i:=1 to number_of_machine loop
0 c5 W% c0 ?) H9 }1 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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
) j  q* n( M5 R  ?- t. A                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
! A# I6 _- L% R4 y+ V6 S* i" }       
0 L/ W, c  T/ G  \6 f        lines:=0;
: Q2 \4 y, c* g        partstable.delete;
       
7 T. f# W- c1 y$ _+ D! C        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
$ B0 v$ p- Z; u8 |                for j:=1 to number_of_machine loop
3 M/ ?; H4 {' a9 K1 `( s                        if w_from_to_chart[j,rows]>0 then
1 Y% j+ G7 Y9 q8 n                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 L* ]  x6 w  C1 N, t                        partstable[2,lines]:=w_from_to_chart[j,rows];
, h% V0 q) f* d* Z                        partstable[3,lines]:=sprint("parts");
3 h1 n4 b  x5 i" i* b% z                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
- @4 [8 W6 U! c3 C( b# H                end;
! u6 c% P7 b2 h9 T$ ?% R* N        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]);
9 G( {! M6 n0 z; d, R5 p4 b3 U        machine.name:=machinename;标识符未知
. F1 L/ u+ c( M; Z0 j3 M        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
9 U1 _& y3 |5 C# w  f        machine.exitctrl:=ref(leave);
       
        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]);
# S2 y0 E" F' u1 y! ~6 i1 r        buf.name:=bufname;
        buf.capacity:=5000;
. L& |- e  q( q2 i0 U# V5 [3 k        buf.proctime:=0;
& I! j( C. l3 f6 q  @2 y        .materialflow.connector.connect(buf,machine);
5 y' U4 q/ t) v0 m       
0 m' v& D4 C9 r5 i/ _        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
  D9 _1 o* M& A- k: hdy:=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);
7 i: N* [- N) [" xnext;
end;