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

zooey

is
        mark:boolean;
1 y4 @6 V* b6 Y  l9 d        dx,dy,ct:real;
    i,j,rows,lines:integer;
6 [. Z1 T6 v+ c) u    machinename,bufname:string;
, u4 I  G! H$ s! x2 `    machine,buf:object;
do
        current.eraselayer(1);
) T, h4 U8 a' l5 t" j% A       
        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
2 i4 G7 w" \- V% G. `                        print"yes";
                when 32 then
7 V1 l& Z( B" f. ^) @                        print"no";
                else
& \$ c" O* t, z6 }) ?; r- ~" f8 D7 `                        print"cancel";
                end;
                eventcontroller.stop;
4 ]4 W! N- y; ]6 O3 c$ k        end;
       
2 X$ \6 `6 @: i- H        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 R4 F5 C3 h; g# U# R3 f        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
3 O) M6 K. Y' Z2 S! ^                machine.deleteobject;
$ A: z* y0 a9 R; \1 b9 A) U* [        end;
# ]8 ^- {9 j; q6 H# K9 o8 X; x/ u        bufname:=sprint("BF",i);
        if existsobject(bufname) then
3 f( D* g3 W7 o. |6 r) R% \                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
. j% u  T' e- k% K7 ~" n        next;
- i* R$ t$ [- b/ x       
        dx:=0;
        dy:=0;
, w) t: u2 f5 a3 I9 E5 b        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 D# g" u$ Q' |/ [) t                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
: M9 e0 ~- e; @+ Q% a                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
+ N9 m0 o. U1 W5 M6 B) M# ~                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
1 |6 l# @2 `, d& m, A7 |% I# O                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
, t$ O* S4 [5 z. L9 v/ @( a0 }                        dx:=0;
                dy:=0;
                        --end;
& @5 \2 W( G, |                end;
                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
9 z% K3 J1 P  o- ?: \+ w, ]' T& }: G9 ^5 T                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
- E: A4 G8 ]' G7 I                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ T- a9 H8 d) _: d9 A6 h3 t                        end;*/
$ K2 X# O% r5 a' g( S        next;
4 y. ?) \  ?; ?0 H' j* t        y_max:=y_max+dy;
! s. L3 g# P0 W  R        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);
, v2 n; G9 J) z' X; c/ F4 @' U       
, A, K' F1 z3 Y3 a        rows:=0;
9 t' S; x+ {' O9 L$ E        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
2 l% e" u4 {2 ~9 }* i                        if j=i then
$ G: o0 u% F+ x8 c                                d_from_to_chart[j,i]:=0;
                        else
: M8 Q2 e- v- [0 P, G1 Z                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ |0 C! x6 g3 b. @                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
$ G1 Y# j8 I7 C& u- _5 x, h                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
2 b2 p& d- o* D. }1 l, o        next;
7 h0 H( C! }2 {. R6 [. r0 B/ V% i       
# K. a  @2 E) }        lines:=0;
2 ]/ z5 P* I9 A        partstable.delete;
       
        for i:=1 to number_of_machine loop
( X% A7 N1 B8 r# `3 n. h( j4 o  t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
5 }/ s, N9 _9 D8 N; X1 l" D                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
9 W: q+ E5 Y0 o8 s                        partstable[6,lines]:=j;
                end;
- J" v( G! _% C/ [- R        next;
7 \2 v% D3 T/ B; M0 u$ z1 K        machinename:=sprint("M",rows);
        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]);
! A- E) H8 E- G; C. R1 u2 ~        machine.name:=machinename;标识符未知
+ A+ Q6 X4 U1 Q1 s3 f, ~        machine.proctime:=5;
- A5 O2 j8 p$ K        machine.label:=activityspace[0,rows];
' i0 b4 V0 _' l- g& K        machine.exitctrl:=ref(leave);
       
7 @4 V: }9 e, z* D- K        bufname:=sprint("BF",rows);
& z8 v: I' F, V, ^        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]);
. q! R2 `, P8 F; j+ x/ ^7 o        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
4 B1 x, u8 q1 ]- C        .materialflow.connector.connect(buf,machine);
+ O' t+ P+ `1 M7 W; P% n       
- f; k6 Y& f3 I8 ^        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
1 t$ f5 G  u: o* a$ m1 N* p, }next;
; t1 f6 h# e- G( r# I% Rend;