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

zooey

is
        mark:boolean;
, ]0 A- H) x7 j; `- y        dx,dy,ct:real;
+ z' U) e* K- P3 B$ m    i,j,rows,lines:integer;
    machinename,bufname:string;
1 q0 h8 |, X, b% T* Q    machine,buf:object;
( ]' p; W3 W3 @8 l* S  Hdo
        current.eraselayer(1);
  O( A1 i5 p2 V/ Y2 Y' G  U       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
7 d, c! c2 T! o6 o1 K                when 32 then
! D- i  q0 M6 M* y, B                        print"no";
                else
% w8 R3 Y5 q* a# H* W                        print"cancel";
1 {8 B- {9 H% R! ]1 o' p+ o  \                end;
( z8 @. j; [1 b& |: C* w/ H                eventcontroller.stop;
        end;
! O( D+ P  F- \% N0 E       
% ], V3 K7 e% r% _( a. s        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
7 p7 C4 ]. L2 t        end;
7 y, X. o# H& ]+ B7 x! y! f" z        bufname:=sprint("BF",i);
1 b- L0 l0 H" }( N  [' t# L3 U        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
( U! b- B+ O8 s) D9 t. n) ^                buf.deleteobject;
        end;
        next;
% I6 S8 @, x: S2 z3 n       
        dx:=0;
8 l& h& S; @* z  R; D6 a1 `5 z        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
0 P$ P- a2 x# M4 g                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 [0 F8 `: P- H% H, }                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ I: N) E# V+ l8 K: {2 g" I                        and activityspace[1,rows]<(1.05*y_max) then
& ^* ?2 O+ K- b% s2 B( z6 A( w                        print activityspace[1,rows],",",activityspace[2,rows];
5 e9 a, K; i% k* T' X                        ct:=activityspace[2,rows];
3 C2 s3 P* l) c  e+ Y  X( m                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
# l7 `( f# ~5 m' P                        else*/
! P7 W* R6 k5 j0 [) ?( R8 m                        y_max:=y_max+dy;
4 s* y, |  B. n- l! B7 N                        dx:=0;
                dy:=0;
- m2 S+ F+ v9 r# R! g                        --end;
! L& J! s* @' K: j: d                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- O& a% g! t' w3 u! G2 V                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
- Z& N( y6 y5 p) i6 @  l            if activityspace[2,rows]>dy then
, s' x: m) H1 }7 `3 A7 V: X                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
* ]- S5 K& w9 N" a  ~6 }                /*if mark=true then
4 H0 j8 i: B( Z: y) v                ct:=activityspace[2,rows];
: V$ Y4 v: y/ G& {                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- ?$ }, W8 P. G+ v. y                        end;*/
        next;
% [7 t7 g5 v' u. q( B        y_max:=y_max+dy;
+ X5 c/ ~/ p! 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);
# u1 B( _$ y1 B% N% e% ]        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);
       
! d1 g; P7 F3 x, }: C- o        rows:=0;
" m2 y( l$ S3 ]" T        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
2 e  ?. o# U+ a8 _                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
: g% g) a9 \5 s- Z8 Z) p                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- U: [- F- k$ D( w2 }% D' ]4 X* P4 w                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
( V) e. r: J" {7 k9 d& M                                d_from_to_chart[j,i]:=abs(dx-dy);
3 ]* J2 S6 b$ b! ~( y& U& h, |                        end;
                next;
        next;
' D+ |. f" g; ?3 \5 o$ i6 V% H       
        lines:=0;
        partstable.delete;
& e0 g* G& c' N3 q       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
8 @1 L+ y* H9 F' ]6 S8 h6 y. ?                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
4 V0 Y8 }+ k! H# M* b) @' i1 m. }                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
2 d( R4 o* H+ x" Z                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
+ d& ^: X8 X! K  ?' j8 e                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
% N2 F/ L3 P( s/ K- P        next;
- K7 l1 ^. Q5 F6 N7 f( y        machinename:=sprint("M",rows);
3 B) O2 B' ]1 }5 h2 c        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]);
" l+ P- i, F* I+ e0 x- u; K        machine.name:=machinename;标识符未知
( Y) _0 ~  R" C/ \3 F( F  _6 v) f        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
4 s& V# S( Y5 z$ Q, M        machine.exitctrl:=ref(leave);
2 R4 l9 F; Z/ j2 v9 Z       
        bufname:=sprint("BF",rows);
& ]' C8 Q9 S" p' m  q) t        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;
6 l: z, I2 H/ l. p        buf.capacity:=5000;
; A  l1 j' O) c. K' q        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
- F* W! F& d: T, E  Q) U       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
1 g0 @2 R8 A' Y, _( J  V0 G0 t8 Ody:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
- `4 U0 l2 |/ u" V7 b7 Y/ d* pcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
6 ?) f; T" C# x5 y% P: h8 H  w# k& r