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

zooey

is
9 X, ~: G7 X# W- r& Z        mark:boolean;
. z: X( S8 T% g( L$ p9 A7 C* M& o8 t/ v4 s        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
8 v$ A& i/ @7 c6 `  g3 D! |do
1 \& s1 `2 o; F' q$ X        current.eraselayer(1);
% a6 n% i4 r! w, H6 f       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
( U4 M- ^# g4 X! D! o+ W                when 16 then
                        print"yes";
) v. [8 v3 z7 P9 M& P                when 32 then
                        print"no";
# a3 F4 y8 ^+ e4 k                else
9 i7 j& E. h+ \* U( o$ P3 b                        print"cancel";
' u' }+ ]5 r2 V2 f1 k                end;
                eventcontroller.stop;
        end;
5 J8 t. B  Q* X) T* p       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
; c. T4 L7 }$ R; h6 |0 T2 l6 `                machine:=str_to_obj(machinename);
! m6 E2 f: w* k( b                machine.deleteobject;
        end;
$ {# q7 l$ n: j2 |/ T! C0 Q) a        bufname:=sprint("BF",i);
4 O# B2 A, L9 e3 r        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
% Z# P, w( A; B' v0 W        end;
        next;
       
& _- ?0 k- v, j% D+ R( x        dx:=0;
; I  I3 m7 H& \4 `: \& W" D        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# Q) `: ~3 ^) a( f1 N$ ^                --mark:=false;
/ Z( I; F7 W; D1 P  }$ O                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
# N$ P2 n0 S% Q7 c4 `9 L. U                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
( l. {1 l! F0 G5 T7 m3 w! H; _3 t                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
* K7 o- ?  @# Y9 b                        else*/
                        y_max:=y_max+dy;
/ B9 _, ?& X, f" e                        dx:=0;
                dy:=0;
                        --end;
                end;
                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
$ O+ U2 \$ [9 \3 o+ f+ T                        dy:=activityspace[2,rows];
. P  U8 `6 C) {                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
7 k& N2 h1 e) b                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) p0 F% A0 L0 k6 T; [+ T, t9 l                        activityspace[1,rows]:=ct;
+ y' K! R( K2 w8 }1 j# u                        end;*/
        next;
        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);
        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);
3 V; A/ v. M! ~% x       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
, A- u, k1 s2 l+ R! @                for j:=1 to number_of_machine loop
. }! d  \  h' r6 `( @                        if j=i then
% a$ B0 t; ?* K! C. N                                d_from_to_chart[j,i]:=0;
3 C. W" `9 y# a9 H4 a                        else
4 Y4 @  j/ V) ^6 e7 R1 W                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ I6 w/ ~2 [0 F( V0 N' \                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
7 Y+ `7 u# k' @5 C9 ?, W                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
8 h. ?* _- H  k& [; |       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
2 C; f0 H. i  b- A                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 g7 G; y, p0 x6 P$ |/ e- q- g                machinesequence[2,i]:=rows;
                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];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        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;标识符未知
        machine.proctime:=5;
7 X. @3 m1 E6 ~$ C8 I0 x        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
1 T' M1 F1 ?: `0 A       
        bufname:=sprint("BF",rows);
) L' O0 b2 b! i! Y3 U( B/ H        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]);
: X, E, O* l3 k% C6 ]/ i8 U# T        buf.name:=bufname;
        buf.capacity:=5000;
  s: g. `0 ~. p/ N        buf.proctime:=0;
1 k9 ^7 G/ ]% y4 e/ Z        .materialflow.connector.connect(buf,machine);
  y, p: e7 a% |4 E* L9 Q8 }       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
8 H1 B. i( F7 Q3 Z  V% ?! w: L( ady:=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);
  v5 n. K5 D/ n1 hnext;
0 t0 O) Q4 V5 [! u# qend;