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

zooey

is
        mark:boolean;
0 R+ y& I" U7 q  P/ @" k) R, v. p$ y        dx,dy,ct:real;
. a# P) ]9 m- F    i,j,rows,lines:integer;
9 E( P0 N  n" Z8 U5 q    machinename,bufname:string;
* a$ ~$ L5 v6 c' L) _) w3 C( k    machine,buf:object;
do
; m$ R' |: t: W8 ?& G& P2 C        current.eraselayer(1);
       
) @! M8 M+ h: s' K+ B. w        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
- R) Z- w# s8 o' b                when 16 then
                        print"yes";
                when 32 then
5 q3 i  ^- c7 H! E0 ^. E. @) |$ H                        print"no";
6 ]: H/ x3 v. {/ Q" q9 u9 }" O                else
                        print"cancel";
                end;
# c% |# n2 d% \  m6 G8 C4 K1 b                eventcontroller.stop;
        end;
: ~: ?4 R1 h. e; N! y9 R       
4 l# h' ]& F, ?/ S9 C. R$ N        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
# F8 l6 X4 d& {( i7 U1 c( M7 u        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
$ w; A: G8 Y! ]$ v5 X" w        bufname:=sprint("BF",i);
        if existsobject(bufname) then
$ b$ n' L# _- f# b' k                buf:=str_to_obj(bufname);
; q) V0 X- P# C. e) N) u0 x                buf.deleteobject;
        end;
        next;
( t! i6 }. t1 L* A  `, W: D       
2 A7 W+ A" K- a2 q+ A        dx:=0;
! _) B) |- p/ s; m; \        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 `0 n4 l! a7 N( H; o" R0 u, k                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 F, s( `$ c  W                        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];
. r6 A0 L; e9 p) u  w                        activityspace[1,rows]:=ct;
! ?& t! I' k5 e( Z                        mark:=true;
) _9 k, E& H1 O2 j9 V! W1 e                        else*/
7 d& F, L2 j4 n/ k) H                        y_max:=y_max+dy;
                        dx:=0;
. C% Y1 f) `  }  |& e                dy:=0;
                        --end;
                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
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
0 ~1 D0 O8 I9 Z( W- j5 ^( _" @                /*if mark=true then
: q1 C6 @! S' ~9 ?                ct:=activityspace[2,rows];
- C0 _/ ?) t% h9 N- d! \                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
1 e$ K$ o$ R9 c: Q        next;
: s4 p2 z& A( e% N  d- ]+ C8 g; R- e        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);
/ D9 W  z( P$ ~        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);
: Z8 S, t# P  Q3 w7 `1 n       
4 m# g  N' c. B) N* S        rows:=0;
        lines:=0;
2 i5 Z3 }! S/ I. b        for i:=1 to number_of_machine loop
5 w/ X( b/ r3 e& S0 Z$ i) @                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        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];
, `# k! J8 d+ D                                d_from_to_chart[j,i]:=abs(dx-dy);
' z: o- D9 {# @) m7 I" b, w                        end;
/ G% o6 }! D2 s5 {. r                next;
        next;
       
        lines:=0;
2 c% a' [" o4 B+ [/ i3 X6 e, w9 e. P        partstable.delete;
* J: f# D" c, F" J! x4 A1 _       
7 i1 Q  @9 D/ d9 J        for i:=1 to number_of_machine loop
8 B- ?7 |* P1 r* i7 z3 @                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
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
2 Q/ |3 H' E+ u5 |                        partstable[2,lines]:=w_from_to_chart[j,rows];
% m% ?2 c( J: h: C                        partstable[3,lines]:=sprint("parts");
. m$ R3 L) X8 V7 o                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
( L8 d6 A8 T) Z; s                end;
( D4 i5 b6 @' R% x0 i+ e; ~        next;
        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]);
        machine.name:=machinename;标识符未知
7 k$ H& X1 U2 Q! S4 B2 _        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
% n; @, A+ w& D9 u' Y        machine.exitctrl:=ref(leave);
       
) s6 ^( F# \+ S$ ^        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]);
" A2 c9 j. q- i        buf.name:=bufname;
* }6 y! x" t2 G6 C/ H) \        buf.capacity:=5000;
        buf.proctime:=0;
. F: {9 K- W  i: d/ [( M/ @        .materialflow.connector.connect(buf,machine);
       
5 K, H# N( Z% }5 J$ t! @; R: ^* B        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;
! O% d; C1 [: `1 r2 K: `current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
7 ]+ }9 x9 G8 a! ?: ~