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

zooey

is
' x; g  m, |1 Y, p        mark:boolean;
. R8 d9 y3 O7 G7 N) S& K+ ]2 B2 p        dx,dy,ct:real;
. J3 P/ z  U3 ?- I: Q    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
, I, e$ Q8 q* [/ e* tdo
        current.eraselayer(1);
, b' R  g! s: h7 s! {/ R3 v  @$ p6 s, H       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
$ r' y$ U8 e" f5 p; N                when 16 then
8 E6 A+ E* B4 W                        print"yes";
) A; \  y# q  J8 h( C: k                when 32 then
                        print"no";
3 r* B! A  I, i, C0 e                else
' u6 z4 ^8 P( Q1 `/ q$ ]                        print"cancel";
6 W, ^- h; |, t7 Q( w% r8 h6 L                end;
3 A' v0 e  I* D; n$ T- G                eventcontroller.stop;
        end;
       
! H9 B. r. O1 t5 Q% G        for i:=1 to number_of_machine loop
& X8 H  j, f' y7 T        machinename:=sprint("M",i);
. W) m3 V4 ~$ i) B* O        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
' z4 H/ J6 k, e% |3 ~4 ]" D6 F5 H) G  A                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
$ l  O7 {+ t6 u. L        if existsobject(bufname) then
5 `( k  `: j" p+ @# \* `& `                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
" b; X5 }6 h" ]3 c5 K/ L% o; Q& D" @        next;
0 }9 \  r4 _0 W- Z       
        dx:=0;
        dy:=0;
7 `% @' T% j# u2 G. ?& `1 U) J        for i:=1 to number_of_machine loop
2 S3 g3 I3 v" C, q; }9 H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        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];
6 h8 q6 _/ i% n" {& D                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
: G5 m2 X* J+ E# B1 ]; ?' t                        y_max:=y_max+dy;
& J0 D' u) Z  [                        dx:=0;
                dy:=0;
) ]1 S" G5 x* T2 [5 J( c                        --end;
$ `' w+ S) A6 Y/ K7 B1 {, `                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 ~: I7 J0 F# i% N7 k) y                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
6 g/ }: a5 Y8 W                        dy:=activityspace[2,rows];
                end;
6 E* I4 B7 j' k                dx:=dx+activityspace[1,rows];
7 F- ^' c3 r2 V# G                /*if mark=true then
( w5 E& V4 R- }, O$ |8 h. _3 f3 ?                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
$ B7 j* K# \; Z                        activityspace[1,rows]:=ct;
$ U) W) d2 _$ T4 B                        end;*/
        next;
        y_max:=y_max+dy;
  Y0 N' D" E% n" o: q. k        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);
1 X& s( A4 v$ H; Q       
        rows:=0;
# [6 j' k( L( T9 W6 b, h% q, b0 d        lines:=0;
3 s! G# v" |( o- @; V0 c$ L9 @        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
+ y: z- {$ h' L! s* m                                d_from_to_chart[j,i]:=0;
                        else
1 m7 A0 S8 ^0 P7 n                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 W2 L3 `* u; P                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
) r$ r8 ~8 v" a$ C/ l' k* {                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
! N7 L  K" C- T2 t2 q                next;
        next;
2 R, U" o( `, A+ j/ j; d% G; j       
" f+ w: G. _7 w        lines:=0;
$ }* z! S! Z9 \# w9 q  y        partstable.delete;
/ s3 Z1 g. I+ \8 J" G       
        for i:=1 to number_of_machine loop
6 W% M5 @9 N, d$ A  I+ v- o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 H4 Q" g. Q$ x- u6 e, A                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
1 X* t0 F" M3 {' B4 U. `                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
9 m1 {# d+ c! E) ~* \                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
. R$ D* ~- i4 p. X: b: G                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
' L6 y0 N3 d/ ^6 ~% R6 I/ U. q* O                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
9 X( m6 C  G( b! p/ G                end;
, I4 E7 a; v3 d4 e% y" N        next;
: @5 ~3 M$ G4 d$ m+ R        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;
' ~& z7 s. t; q% {' E        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
. r9 k9 n+ m1 ^; A3 q       
* C/ J; l% \! M7 Y4 a7 ^" `9 K) w        bufname:=sprint("BF",rows);
' b3 w4 u9 ?. o' 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]);
        buf.name:=bufname;
# x; }+ Z6 `& f- I" l5 ]        buf.capacity:=5000;
        buf.proctime:=0;
/ }3 |+ V1 h: N* i& B* ~. H' k! d        .materialflow.connector.connect(buf,machine);
* Y4 [- O2 ~( b, G8 Y7 L4 _) j       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* N' z, O$ x! U5 f3 qdy:=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);
next;
end;
$ K! R3 J2 w3 z1 o: c5 ?