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

zooey

is
% p+ [, _. G8 S: u        mark:boolean;
        dx,dy,ct:real;
) j7 X1 t: O6 N7 W; v, Y) r    i,j,rows,lines:integer;
& H7 D4 i2 V: i# H& s) ?4 w    machinename,bufname:string;
7 Q7 H  @! v$ s6 |5 b5 u9 @% T    machine,buf:object;
4 C. {, }0 b- v2 vdo
8 C' e# |+ i7 ?$ K3 R4 w        current.eraselayer(1);
       
$ G% ~9 B9 ?0 g- b/ H        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: [& D/ X) W  N; f  W                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
, K( W/ T: a1 z$ ?. k* K5 I( H$ S                eventcontroller.stop;
        end;
6 |- ]2 I0 ~* c8 X# ^* N6 r) N2 Q- p       
        for i:=1 to number_of_machine loop
: C, e0 {- `( H% t        machinename:=sprint("M",i);
        if existsobject(machinename) then
$ ]. ?* w  ?; t; l) _- H2 S                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
/ h' B; D. M" P        bufname:=sprint("BF",i);
        if existsobject(bufname) then
1 \7 P- O5 ^- m; J8 A! J                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
# Z. a* C" Z2 D- g0 o/ A7 x+ s( _( U        next;
       
        dx:=0;
        dy:=0;
2 z% [$ R/ M8 t2 u        for i:=1 to number_of_machine loop
/ }0 X& V" G0 b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' ~0 }% ?* \/ C5 s8 W) r5 E                then
! G' J3 B& h& U' w: L                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
6 j: D% C! Z. O8 H3 `# v& P                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
8 P, V; {$ J# a" B2 _- k7 M6 z  T- o, p                        ct:=activityspace[2,rows];
) }. h6 z4 t( q/ v/ r5 C! c                        activityspace[2,rows]:=activityspace[1,rows];
2 L- N- C* r! U: ^; v& i                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
& W! Z; {; Z" l5 [& [+ V! z9 L                        dx:=0;
6 C1 J5 E. u. d" x                dy:=0;
' j! [2 `$ l3 b# Z5 j8 T' F  o/ B( T                        --end;
                end;
  O2 x" u- n! q& a% [2 }2 D                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( v$ i' V* N# g0 b6 X8 b                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
4 R( d! T- Y2 @8 m( O+ \0 N6 H                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
" c) X( T$ c6 i( t( X' H! F                        activityspace[2,rows]:=activityspace[1,rows];
& s4 Q" H8 R( r' J' b7 r; W                        activityspace[1,rows]:=ct;
                        end;*/
# p: p7 m7 I1 f% \; M7 |        next;
0 y: U; b1 V, t+ H        y_max:=y_max+dy;
5 o+ H+ H# i$ _+ ?        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
7 k! I. i! u, V7 [7 P( R! b                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
; O- ~2 v5 P$ P$ Q                        else
1 v' w: p) m8 c% @3 [                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
. r! S3 z; D5 ]% N9 V/ Z  e                        end;
" [/ b& p4 Z0 f: V5 N3 B                next;
        next;
       
        lines:=0;
0 A( D" O- `! ?0 m+ B5 h        partstable.delete;
. T6 v: n  V9 U5 U7 g! l7 f       
        for i:=1 to number_of_machine loop
: b( e- Y3 l0 X& z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
* T1 D6 P3 p! v- f0 O5 T                        if w_from_to_chart[j,rows]>0 then
  g3 ^- e$ V5 y  D                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
! g9 _- y; {* ~/ _7 F4 @+ }. Z5 ?                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
$ Q' p# e- O  J# W                        partstable[6,lines]:=j;
                end;
8 c; _+ p% S# c/ r: [        next;
        machinename:=sprint("M",rows);
9 w3 }5 @2 t5 Z; a  n: r* a        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]);
: x% i9 e$ a8 {" |; G7 J0 |        machine.name:=machinename;标识符未知
8 o) V" U" k5 X3 F: b        machine.proctime:=5;
6 `, }2 [' \: B+ C6 I        machine.label:=activityspace[0,rows];
, m8 p: `/ T5 L; p& y9 T        machine.exitctrl:=ref(leave);
3 j1 f9 O) p1 \4 h% ]       
        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]);
! M8 J- Y$ T6 s- o* t+ i9 x        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
  i; e. P3 c# O7 N9 C        .materialflow.connector.connect(buf,machine);
       
( z* u: H* c+ M        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* t: ?. W( Z+ }3 E* u1 J8 Zdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
* S  \% [& R1 D& M, K% lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
9 A) Q. Y: X1 _( t- l# |5 E