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

zooey

is
/ j4 |0 h- ^' D9 p  @4 G        mark:boolean;
, _4 _# U% z" l# ~; ^! i6 l        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
$ T% a% H8 p  i% L8 @do
6 d+ f; h- Q! G7 a% ~: k8 t9 f0 P        current.eraselayer(1);
       
6 ]8 Y# n! x, q; `( h) T        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
' U% e, T& w$ F                when 16 then
* b. I4 n- s, P, f. U% j                        print"yes";
                when 32 then
                        print"no";
                else
0 u: U4 F1 J! I' N                        print"cancel";
9 k# y( D6 m( A+ Z6 H" k4 ]. D" F! [                end;
$ ]9 V- e; U/ }                eventcontroller.stop;
( X* ^/ N0 ?" q        end;
: a/ S4 `6 H! O       
" C8 e3 o. Q0 r2 P# y# C  `9 \; ^* I        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
# e0 S1 X5 X' [& B7 ~8 y        if existsobject(machinename) then
0 N( l% j9 U+ Z$ f; r                machine:=str_to_obj(machinename);
# }9 B) H9 t- M) t  o9 }% o                machine.deleteobject;
        end;
( }  [( S3 C2 c7 H1 F5 K* O        bufname:=sprint("BF",i);
6 ^. N- k4 ?& S5 j1 F& o1 \        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
  n2 l( x9 W  ^$ z3 R+ u5 `                buf.deleteobject;
        end;
! T1 v3 I- x# _$ L/ j( F0 O  K        next;
       
3 w8 d) [" t9 Q! K9 H- L+ o        dx:=0;
        dy:=0;
( l+ d: z, ~' b5 C9 ?/ T        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 p  N7 P  _1 C( P' v9 ]% n3 d                then
5 ~- W  x% k, Q* K2 i                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
$ a+ k6 @' x# j6 X$ R6 h% w. s. U                        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];
- d. J% l9 u8 B% L3 I4 J                        activityspace[1,rows]:=ct;
* h' y, n) `  ?$ y; x                        mark:=true;
                        else*/
: j; i4 R$ K  `9 v4 t                        y_max:=y_max+dy;
                        dx:=0;
) i7 }, W3 ~& \. {9 E0 I5 S                dy:=0;
                        --end;
! T. i: X$ e, p3 q- z                end;
7 r3 F  @) F( l( F                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
, |* M, g, A) y5 @( p                        dy:=activityspace[2,rows];
7 b0 Q7 U1 {( ~. Q  x0 P: r0 Q                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
+ p; [0 H' ~7 O" [" P8 o. H                        activityspace[2,rows]:=activityspace[1,rows];
- d4 |* Q& I, b7 k0 Y  G                        activityspace[1,rows]:=ct;
( C) K, P+ s" R+ ~% z% {                        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);
$ b0 t4 g$ h1 y2 n. b. }6 n" C        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);
       
' s: o3 b: T% {* g5 J* t' E6 u  n        rows:=0;
+ e4 J7 R- Y6 D  E  W* e$ q8 x" H8 D        lines:=0;
& y8 L9 d& n% }$ K        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
8 Y# d. H5 Y- H/ u3 M5 D! C" [( h                        if j=i then
                                d_from_to_chart[j,i]:=0;
4 f! ~1 |( Q( O( u" o: u$ j2 A3 r/ A                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 d/ _( h. ]5 u& c                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 b6 Q5 k1 }  ~                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
, B. n- L5 T5 `6 D% h% w/ ?                next;
        next;
       
        lines:=0;
        partstable.delete;
       
( C) Y8 w2 O5 Q: e        for i:=1 to number_of_machine loop
4 Z  z* C& W7 u0 \1 j                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 c- ?0 T+ ~0 k$ t* E) Q) x                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
4 D( p- M+ w6 d                        lines:=lines+1;
( a& b8 c! B$ g- j                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
# K" N8 Y# ^. T/ X8 s4 n1 U                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
+ B$ C' E1 S/ l5 s3 f  A! l                        partstable[6,lines]:=j;
- @8 y! q  o. \. K# Q                end;
        next;
        machinename:=sprint("M",rows);
' U1 z& S5 Y& W9 e$ @" n) p        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;
        machine.label:=activityspace[0,rows];
- \; Q( R; U0 V/ R% I        machine.exitctrl:=ref(leave);
) Z$ f( Z: {( G: f) c+ O& H       
) j6 e" I+ h$ R3 L6 U: r2 G: H        bufname:=sprint("BF",rows);
" S1 G9 e+ a: [3 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]);
& i  w2 P- I0 ?6 V- a* A( N        buf.name:=bufname;
0 p! R; g* S5 u8 W3 R1 @        buf.capacity:=5000;
        buf.proctime:=0;
: l6 l5 o! B, C+ a- u0 Y3 _        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
8 u1 T' s% {9 V. A$ }, ?current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
% l, S/ F( i) E7 s" |next;
end;