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

zooey

is
  A" U  |1 s& c! d( ?' k6 @4 a        mark:boolean;
* e1 B) F8 p6 @+ S        dx,dy,ct:real;
; f- @+ V1 }' k, e( B+ p" B    i,j,rows,lines:integer;
    machinename,bufname:string;
5 |, d( ]! `" ^$ Z; M* F    machine,buf:object;
2 X& q3 r; Q. w" tdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' B. G! {0 I8 z0 Y                inspect messagebox("设施数目不对！请核查...,",50,13)
/ ?( e0 h3 p. K                when 16 then
                        print"yes";
, q2 n( D! d, Z                when 32 then
  @6 x: h; H+ M/ Q                        print"no";
) A2 Y( x5 D/ w9 ]0 v                else
& G) X2 s! r7 W: O" P$ n: [; s                        print"cancel";
0 Y/ U' j  }+ j/ c$ X& N                end;
                eventcontroller.stop;
        end;
! c8 L  B8 g9 M0 N! S, X       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 M$ W2 S& B6 h        if existsobject(machinename) then
" H6 r2 L- D& p; Y( K" Q6 e                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
+ A0 J; y0 o7 b5 E9 v$ t7 A& f8 w        bufname:=sprint("BF",i);
7 Q: ^. X' m9 V( r( b6 h% `        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
4 }* Y' o( o0 u7 W7 e$ ~        end;
0 m7 k* m: C' y* v; S        next;
$ b+ L% O; H* _/ t- k9 J( B       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 v3 X2 y$ x8 j& G5 P7 m8 H& h                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 S) G3 L# T9 T5 x$ P                then
1 M2 v. `! u+ C1 T( S/ O' ~                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
, l7 i  L- B3 q4 w* h  Z, J" r                        and activityspace[1,rows]<(1.05*y_max) then
& F$ |4 n9 n& e5 T$ P- x                        print activityspace[1,rows],",",activityspace[2,rows];
2 k( J  }" `  P& B                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
: E) ^" t8 J5 _" I6 m                        activityspace[1,rows]:=ct;
4 V+ e" i8 |2 y& b                        mark:=true;
3 W- ]. T+ u  T. ~; B                        else*/
* B- F9 T. m. z                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
/ C) f6 v9 s% z+ _- g                        --end;
' N2 H% l# @2 X2 Y$ X, V) u# o# C                end;
) w. \8 x# `$ J  V$ c                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
! w7 d6 q& J+ h( @2 w' R5 D3 N/ `3 R                        dy:=activityspace[2,rows];
* E7 Z4 q& I% a, j                end;
6 [0 U; K  _6 }9 f$ I) I5 k9 k* N                dx:=dx+activityspace[1,rows];
                /*if mark=true then
9 l( v5 ~/ R! c* q. M                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
; S& }  l: H7 m7 d                        activityspace[1,rows]:=ct;
                        end;*/
        next;
* R; W# k5 k, A2 j        y_max:=y_max+dy;
: F5 H# \  b6 }1 X4 X        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);
( T5 S* G* g: F4 ~+ U9 P  V       
+ q+ H+ s' c) f, K        rows:=0;
+ N4 K% m5 B) o" {0 W: P0 j5 ]        lines:=0;
3 P$ \0 `. U$ E8 O" V        for i:=1 to number_of_machine loop
/ |  G  i8 ^1 p. N                for j:=1 to number_of_machine loop
* M, d8 O; m! S! Y                        if j=i then
2 c- P, _8 q' @                                d_from_to_chart[j,i]:=0;
                        else
+ `) q7 v( t& A) Y                                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];
, V+ o$ G" i) l  t2 Y7 p                                d_from_to_chart[j,i]:=abs(dx-dy);
1 Z) ?& g, h5 q2 j                        end;
                next;
2 r2 Y- n3 p9 {# v9 F4 T5 W        next;
       
* Z6 B/ n' X0 Y7 F$ m, X        lines:=0;
6 r7 W  v8 s4 a2 r2 d( M4 N        partstable.delete;
4 D7 |7 o9 n9 t3 r7 b& X       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 B: a/ h! d* y                machinesequence[2,i]:=rows;
- n8 ^* R. L8 z* z% d' h1 x                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"));
3 y" p6 x9 G# C9 E% C* _                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
- t2 q4 o# d  p' {% u3 O                        partstable[6,lines]:=j;
                end;
        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]);
        machine.name:=machinename;标识符未知
. g. l  D9 g) W5 V# a$ t        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
) f0 ^* K- Y9 y& g! d: L: k        machine.exitctrl:=ref(leave);
, V% p( @% ~3 B8 w  O       
        bufname:=sprint("BF",rows);
/ f( U4 n- }. n1 O/ z9 V        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]);
  F" l; c  j) C        buf.name:=bufname;
0 u! l7 v5 d+ ?+ ^* N9 g0 R        buf.capacity:=5000;
        buf.proctime:=0;
# T  |  z! m9 @! U: {/ N- `% }        .materialflow.connector.connect(buf,machine);
/ H7 {1 `4 L5 w+ |, I: j2 a) c" Q       
3 u  V1 D2 i9 j        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 t+ S8 M( D5 @2 ady:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
! |2 _# z. @: `' m6 X+ |current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
# e: Q& I+ u1 z% A: s( w! G/ Hend;