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

zooey

is
; W) ~/ r! e; X) ?2 h        mark:boolean;
        dx,dy,ct:real;
9 a6 T7 m$ d8 Z/ D6 w9 X" I* ]    i,j,rows,lines:integer;
$ u+ B, g' _; I: x/ [5 L    machinename,bufname:string;
  A5 q6 C; Y) W3 o: b    machine,buf:object;
0 D/ b+ A* R% @6 Z, `& ~do
        current.eraselayer(1);
       
        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
; v) M+ \- A0 O                        print"yes";
                when 32 then
7 `  i4 p+ ~9 p$ G                        print"no";
( I5 ^& s/ d0 M                else
                        print"cancel";
; ]% T/ V7 ~2 w4 f                end;
; ~' o) g8 j( \. I- n- L6 b                eventcontroller.stop;
        end;
+ G. K1 Y) X4 y6 d0 T# ~; X- R$ F       
: ^8 G- {/ d9 j6 n        for i:=1 to number_of_machine loop
( U, \2 Q' Q/ S, u: I0 E5 ~0 I        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
3 p7 T# o- L/ [/ ?                machine.deleteobject;
        end;
; W* Y+ z1 S& D' d& Q! P6 G2 E        bufname:=sprint("BF",i);
" B% V1 @: }+ g* F5 O        if existsobject(bufname) then
1 Y; m& T- e# T3 p1 S- o                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
" b5 P8 N1 q2 T        next;
       
( T; `/ @) V: P- @& W$ I* @        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
) x, `0 f+ i7 ?4 O& X5 c' u1 N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
5 A! i- Y  f! A                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
* V% \  S( z4 ?) x' ^                        and activityspace[1,rows]<(1.05*y_max) then
+ P/ e0 p7 _, K1 i' x                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
5 }+ y1 W  C+ L: r. ?                        activityspace[2,rows]:=activityspace[1,rows];
  l  Y( f( M+ Z. O6 j. u& Q  U- ^                        activityspace[1,rows]:=ct;
& {# L! c; p& w                        mark:=true;
3 g. o- v, ?0 n4 [0 u0 k1 o! g                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
; z! ^  A: d2 \% O* n% [                dy:=0;
6 B7 a( u( p$ T. g# F1 _                        --end;
                end;
. H0 ~3 R, D$ M. K+ j                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;
/ m3 Z# s! z# L& h3 b0 d; w- I9 U) r            if activityspace[2,rows]>dy then
* ^; B9 g1 u1 [% e" O4 v, E                        dy:=activityspace[2,rows];
                end;
) J2 I2 t( o  O$ A6 m                dx:=dx+activityspace[1,rows];
8 N! B& x) E+ |$ f6 d) a9 d                /*if mark=true then
- [: G  S9 G; s                ct:=activityspace[2,rows];
6 [' W& _; R5 L8 F                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        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);
* E1 t' c; T+ D4 R& X" g        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);
% W+ @# n4 t* x+ S       
        rows:=0;
/ N$ x+ o9 p( j8 |- O5 T) F        lines:=0;
! J3 z7 S/ y- D& @5 k8 H6 A        for i:=1 to number_of_machine loop
) {2 r5 @1 h' [% `) N                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
) K: }* i7 t! t* i                        else
                                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];
% C( h1 D7 W# u- B                                d_from_to_chart[j,i]:=abs(dx-dy);
6 D: b! P2 d8 R' K) B                        end;
                next;
5 D" p, }4 u3 v- _$ w        next;
2 m; ~$ _4 B. R$ I. H2 y+ m1 e       
" }8 w' o- u* ]/ @/ W( |( E+ d        lines:=0;
" W7 @( o. J, ]8 @  K! k2 W        partstable.delete;
: u. d+ E4 ^/ ?  {       
! b: A5 ~1 ?: X* \        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
- }3 M# r( m0 W                        if w_from_to_chart[j,rows]>0 then
' h+ Z6 c2 D: [  R5 Q0 {$ e" X, @: {                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 m- g$ Q& h8 X/ G! c$ w1 |7 A; P- C                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
, W( |) ^) p& L8 |                end;
        next;
        machinename:=sprint("M",rows);
) H; R2 X, E4 \1 f3 h8 g0 @5 D        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;
0 Z: G7 Z& R% W        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
& j- E7 e5 x3 k& ~+ J        buf.name:=bufname;
        buf.capacity:=5000;
, j- U' e& M% Y" |4 R0 |        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
) y5 h7 q' a& z6 _9 Q6 K        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
  D3 X! c4 C9 J. F2 d, Y) 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);
0 `$ b1 f! T, fnext;
* m6 Y; ^% _9 ~2 x$ mend;
- T! B0 x2 U! U9 `