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

zooey

is
        mark:boolean;
# x( i: O- B0 T$ U2 _! m        dx,dy,ct:real;
7 o6 P- E4 h5 T% C* r! G( A    i,j,rows,lines:integer;
    machinename,bufname:string;
+ Y& b  U+ C3 ]2 F0 _2 A    machine,buf:object;
do
        current.eraselayer(1);
       
% V# T3 t# \6 [) x        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
- d* `! W3 |& g8 m" Z                when 16 then
                        print"yes";
                when 32 then
                        print"no";
0 \1 ]- e/ V' Y/ k& t! g                else
( D7 N) S3 b5 c  M                        print"cancel";
                end;
                eventcontroller.stop;
% b2 Q$ D" b! x; w1 d( Z" g        end;
9 [2 k, ^0 Q7 E2 D7 L" C       
        for i:=1 to number_of_machine loop
  i5 Z3 l1 V4 u, L5 F        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
. y/ b, ?  N2 V1 X+ ^        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
5 \3 c6 F1 W; y4 g  T% R; P' L        end;
& F8 ~9 V! T; |3 `, o6 j& ~- ^        next;
- F- b8 w8 R+ \8 w) v       
        dx:=0;
        dy:=0;
7 |( T" d: E* S. W8 R- W* H% I6 u        for i:=1 to number_of_machine loop
1 {- y. F$ c" P- N$ s- I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 `6 s7 e7 \9 J4 Q" H' J' u8 X                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- k9 O) w; W- a" w$ d                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& X8 b% L. c/ V5 z7 ?. s8 m( I) ?' ?                        and activityspace[1,rows]<(1.05*y_max) then
) Y- s( W4 O  b" h2 I* v+ G" f                        print activityspace[1,rows],",",activityspace[2,rows];
3 u, R* C! H, k( T! s( o+ P' E! D3 V' G                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 Z, b( |$ B4 ^                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
2 C: [" I2 M' K; l- o4 E/ ^! r# }1 P: [; t                        dx:=0;
                dy:=0;
* E/ j* `+ R+ h* U                        --end;
# K3 U5 ^2 u0 s/ f                end;
) C; o6 ]- G0 r! b+ I                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) c6 {) ^: U$ g  h) `" X% }. w7 x: H                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
( _7 w$ {% _0 }. P: X* T            if activityspace[2,rows]>dy then
) h3 i' y) a! ^( U& I* n' H                        dy:=activityspace[2,rows];
7 m# f, W, }" W  y# T" Z& l                end;
$ {4 P" X. E# m: U                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
% F: ~* L) `; m                        activityspace[2,rows]:=activityspace[1,rows];
/ o  v+ k1 w* d0 P+ S                        activityspace[1,rows]:=ct;
                        end;*/
5 `5 O- {( m" P$ c& v% ?/ ]+ ]        next;
9 n$ C+ s1 p" [( n; e, z        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);
1 K# O8 n' M6 }/ [/ J' T       
3 l: V+ `9 N: x5 C7 d        rows:=0;
2 t4 O( Y, D( g        lines:=0;
& O( K/ H$ z. f" S6 m6 K5 q        for i:=1 to number_of_machine loop
+ d! P3 E2 ^# U  N. i                for j:=1 to number_of_machine loop
: C! X: k5 n7 ^% F! y                        if j=i then
- h. F$ e) Z$ X: E0 P2 F, \( n7 C                                d_from_to_chart[j,i]:=0;
                        else
9 Z/ K9 B" W0 d+ _/ _# ~                                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);
                        end;
' Y8 J, C$ I2 h+ k; F" c0 _                next;
* A% u: {- s' m. l9 \" ?: Q  D        next;
       
        lines:=0;
3 [8 |2 c( v; o/ V- Q' ~: N        partstable.delete;
       
% Z2 g2 t7 K# ^  }0 h! H3 h        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. ?+ ?# @) ]9 t7 v                machinesequence[2,i]:=rows;
' W2 ^1 v, ~+ P, R' N) V4 a- i6 r                for j:=1 to number_of_machine loop
  t: z; v. }" V' w6 e$ V5 d3 Q" T                        if w_from_to_chart[j,rows]>0 then
; L& m( E5 s) m( s6 G4 y                        lines:=lines+1;
% |" a5 u3 ~" I/ I0 Z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
7 W6 N  l0 C; `0 [0 A; n! b                        partstable[5,lines]:=rows;
! q/ r0 J) C3 [. \- t                        partstable[6,lines]:=j;
& k# l/ O* J1 j! w) |: _: \                end;
. x) ^5 b5 Y6 @+ e& d6 }        next;
! b4 `6 J3 o% a4 f. s7 e        machinename:=sprint("M",rows);
2 }; ]0 Q, Q) L* {7 x  n' |        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]);
9 C$ h7 [3 |' w/ }# ?; E        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
' t( j9 t7 K. W% E        bufname:=sprint("BF",rows);
0 {. ~3 I" A! [8 p7 N( w2 R        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;
        buf.capacity:=5000;
- h. J' t# j. C+ {- N; I+ \3 d6 a% K$ R        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
6 z* k9 M& N# n3 ~# V- H5 [/ k( V1 E3 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);
* {4 A+ u! M% ^6 K( Pnext;
end;