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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
8 I8 t# ]/ u, H6 X7 |0 }% X    i,j,rows,lines:integer;
* H, |1 p# x: a    machinename,bufname:string;
0 a) U# j2 c) ]0 Y1 Z; [8 w    machine,buf:object;
  o3 ~2 g& ^' X# d* Udo
6 ]% k1 o& E5 v/ `' B" J* ^        current.eraselayer(1);
% w% @6 T0 ], J0 I: f( A$ n2 R       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
1 t: k2 v: r) [% Z0 n' ^; I                when 16 then
                        print"yes";
) f2 T/ u# ~! x$ H; \5 z& X                when 32 then
                        print"no";
$ ~4 O  f$ ~, r: {                else
                        print"cancel";
) @8 c) \6 r0 i1 g+ u" P                end;
                eventcontroller.stop;
        end;
4 f+ H) f/ x0 {% u: [! r! F7 I       
        for i:=1 to number_of_machine loop
" t+ B8 H! |  N( ^        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
& q5 S* N. M6 k- w8 x        bufname:=sprint("BF",i);
: L2 S& k+ g2 F! h7 Q6 O6 [- I5 k        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
( U, Y; E, t+ n. V6 \        end;
        next;
       
        dx:=0;
) O0 c2 t/ v$ M' K& V( {: i0 A  S  @        dy:=0;
        for i:=1 to number_of_machine loop
) B$ k2 X  L/ w5 _7 @8 X; ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 u* p3 T* O5 I6 |                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
* ~: y3 ?9 c$ p% Z/ a, ~/ B" O                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 a6 F9 c6 T& @; H                        and activityspace[1,rows]<(1.05*y_max) then
9 a4 C) n, ]6 ]: j( Z5 N                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
$ F& H! i$ h3 x7 q( P8 n2 g9 @7 d                        activityspace[2,rows]:=activityspace[1,rows];
$ ]1 b/ b$ L0 |8 \  W                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
  H+ x3 J  Y! _+ O/ s* h- J) |& Q, }                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 M% A  f* C5 {9 S; I# ^' [                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
' ^0 D/ t* m5 Y) C2 Z  S% N8 Z+ H                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ k' A. w1 f5 o$ x" K                        activityspace[1,rows]:=ct;
                        end;*/
8 C) C2 B9 N" I2 Z% k        next;
        y_max:=y_max+dy;
0 ?# A0 v% W1 X. Q; X9 m& ^, S: }        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);
       
7 Z7 M; c2 k. _5 N0 [5 ]; y        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
# I, ]5 G7 \: _4 {" k                for j:=1 to number_of_machine loop
                        if j=i then
. i- {3 m; m3 e3 \+ E0 @                                d_from_to_chart[j,i]:=0;
  h2 \" S. y, I5 c4 a                        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];
5 e& ~1 u6 |7 d( s7 |                                d_from_to_chart[j,i]:=abs(dx-dy);
& Q% w/ R0 @$ u) |$ F! }                        end;
4 b3 m. p6 x3 {/ o7 a                next;
+ W) U9 A: n3 Y1 _8 K1 m0 N        next;
8 }; ?. H6 O7 j7 E       
        lines:=0;
        partstable.delete;
! ]6 l" k7 j4 {; q$ u+ p       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 Y, r0 Q& B2 y% p% S2 t& Y                machinesequence[2,i]:=rows;
) _9 ]% F4 `# l                for j:=1 to number_of_machine loop
2 r: Z+ d3 ~& Y2 l                        if w_from_to_chart[j,rows]>0 then
: X! W0 L' Z: S& l                        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");
! u8 j4 I% v. M6 g9 C  P                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
/ n: M9 w1 ?' l! s  b1 j                end;
        next;
/ x8 o4 I+ v, ?% E/ d8 f, j! `        machinename:=sprint("M",rows);
) @: n, K# N& d3 Q# n9 v        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;
- ?# ?3 Q) m3 f% r0 v1 q7 G8 \+ @7 P* L        machine.label:=activityspace[0,rows];
1 j& E$ |- ]9 L- n7 ~; o9 a        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]);
1 {7 B2 g5 x! g* e        buf.name:=bufname;
& x- x6 X' U; p        buf.capacity:=5000;
        buf.proctime:=0;
5 d& m! Y8 N! [9 ~        .materialflow.connector.connect(buf,machine);
  I0 ]# [' x* t  I  C0 A" K       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: W- {3 Z; P$ s  l0 v& x8 Z3 _dy:=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);
/ X& d: S9 q8 ?3 F1 u9 Tnext;
: t6 J! o* {) e# M/ y9 wend;