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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
9 j% P2 U% r0 [( E8 e2 q    machinename,bufname:string;
* M% p5 U$ L1 j# G% w7 F5 Q    machine,buf:object;
2 p8 d9 F) C* I; B& v* edo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( W+ x0 v. p, o+ k                inspect messagebox("设施数目不对！请核查...,",50,13)
7 S: C" W" \) F/ V) x$ t+ i                when 16 then
! T% w2 F/ k  g/ W9 ?  G                        print"yes";
5 m& o" E  j  b! t% T# U5 }                when 32 then
8 B; F1 r5 `& b; x; M1 i! r5 ~/ B" s                        print"no";
                else
; i$ I7 Y$ s" _/ J4 \, i5 t* y                        print"cancel";
& C/ q! x- S% t" c+ H8 p                end;
9 e( E: s" Q" G3 g+ O7 N                eventcontroller.stop;
        end;
       
" V2 h* k7 f5 j7 C1 x: x# {        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
! n5 C  z; A6 g; o                machine:=str_to_obj(machinename);
4 {) _9 D6 J8 P( y5 p0 c+ h                machine.deleteobject;
        end;
' p( c3 m9 S9 j) z        bufname:=sprint("BF",i);
        if existsobject(bufname) then
% _* p  R1 j3 X% j0 S8 i- c$ J                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
& k. c( d& z- I) D7 w        next;
/ M" d: U- @  G2 v$ B7 X       
9 R0 D" y. T6 H5 G( v+ Y. [5 p        dx:=0;
' t6 {  j; T* b, ]$ Z- `        dy:=0;
        for i:=1 to number_of_machine loop
9 x: w3 m: i& p1 o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, m: o/ B, T0 L) K$ \! X$ C( I                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 V0 u3 J, V+ M, y4 t2 a                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
/ O' A& F' x; a. ]9 P, U5 L1 S. ~& r                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
, q! C, D' P/ O; [' H                        mark:=true;
) Z3 o& Q3 q( k$ f* s                        else*/
                        y_max:=y_max+dy;
, A/ f: ?0 d7 ^9 J( i2 R# V+ u                        dx:=0;
                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];
) ]; {- v% R" S5 @                /*if mark=true then
                ct:=activityspace[2,rows];
0 J  K' d/ ]/ Y( M                        activityspace[2,rows]:=activityspace[1,rows];
* s# X8 R, ~& q; H& _5 {                        activityspace[1,rows]:=ct;
                        end;*/
        next;
5 S; {' B; j3 M) b% n; T  G        y_max:=y_max+dy;
, p: T+ p4 I* {8 H5 S; 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);
       
. C- E1 F5 S, @2 N& G  O* U: F- a        rows:=0;
        lines:=0;
, c+ E) e7 y# l+ C) G        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
5 K2 S" z0 E) [                        if j=i then
6 L) `4 H  D8 `& ]1 D, X, v                                d_from_to_chart[j,i]:=0;
- a) r$ |9 E0 \0 ]2 P                        else
1 l4 G; D; b0 ]$ c( o. A                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
5 D: H7 A6 m" A& X5 b                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
* l, ^$ B+ j. k/ @  [, M; Z                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
) a- G0 p  X# Q/ l                next;
$ h6 D' I* v( ~        next;
# u4 r6 Q% T. S& X# n7 ~       
        lines:=0;
        partstable.delete;
- r7 e0 I3 A% I9 h! {       
        for i:=1 to number_of_machine loop
4 y1 o# x. G: m& J' n$ A                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& E: }- `# M; Q                machinesequence[2,i]:=rows;
- Z6 A- j7 k! w+ K$ f" `" ]1 i                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"));
! _& \. W4 N4 T- s9 ~                        partstable[2,lines]:=w_from_to_chart[j,rows];
' u. ]9 X& w' `6 t# ]2 y2 O% L! V                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
/ b+ T6 F, X4 {6 [4 v" g        next;
        machinename:=sprint("M",rows);
2 p4 v0 J, p6 L5 p' L        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]);
" P6 i  @7 w" ^1 {" @% A0 E        machine.name:=machinename;标识符未知
9 Y2 u' L& m9 |5 u: j1 N3 d        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
6 _; o1 K5 ?" g! }2 Z% w( i# d        bufname:=sprint("BF",rows);
( x2 }( O/ u" [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]);
        buf.name:=bufname;
5 |( b; i- O% ?; t8 V        buf.capacity:=5000;
        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;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
5 O; n6 ?& }- v3 P: Wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
" V, |5 \$ T! Hnext;
end;
$ N  P4 Y! i- G. z8 t