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

zooey

is
! R- j) `3 e: `1 G        mark:boolean;
: F% f. J6 ^  g9 |  @1 J( M4 x        dx,dy,ct:real;
+ U' m% o3 a' ?+ d    i,j,rows,lines:integer;
* n6 w+ s. Q+ R; @2 P    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
/ j8 J; [9 B, z% h1 |% f4 P       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 j9 ?9 T, e' M& U2 z0 T: h# A                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
/ y& n7 q$ ^: F8 a2 A0 E* `                        print"no";
0 f4 A! }) r% e/ g# x% \2 d                else
/ p. n: N$ e) `" P  d+ K                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
& a/ q$ c/ e5 q+ M# h: j* s        for i:=1 to number_of_machine loop
9 r* b7 m1 n# r+ ~/ f* J0 w* ]5 b        machinename:=sprint("M",i);
        if existsobject(machinename) then
9 M/ j- N0 A6 Z1 P1 G                machine:=str_to_obj(machinename);
% [6 R6 y3 G8 R/ H* O9 f                machine.deleteobject;
: R* ~# M' S; `        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
, n$ L8 p" w  p) [4 b( i. [0 [1 c; U2 S                buf:=str_to_obj(bufname);
, s% }& i; w/ k4 E/ q0 G; X                buf.deleteobject;
: ~# v* L2 f1 }- a        end;
        next;
- ^" Z" I4 P7 |# b" s6 V       
        dx:=0;
# Q! f. s2 l" A, T# v        dy:=0;
        for i:=1 to number_of_machine loop
/ z' y! H7 \, L, h                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: ~6 Z4 e7 u9 H' R( X0 m                --mark:=false;
" s! u7 G" E4 y6 W+ [                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
" o! Y; l. q3 O; y8 ~7 q                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
8 ?) H) V7 Z5 P+ W8 r4 o                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
, Q/ p! F, v1 \0 K* M- l/ B                        mark:=true;
                        else*/
! v! I3 X/ ]. ^1 M, ?2 q3 `                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
( R! f3 _, p6 i4 |                        --end;
                end;
1 \  {6 M9 i& j# I6 C' K/ F4 E0 w                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ ?7 D4 y) p/ j7 _  b" b                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
5 q4 Y9 X, }4 U/ T+ A- k( @                        dy:=activityspace[2,rows];
; d6 u5 J$ ?# {- T# A( u                end;
0 ]3 X8 }5 ~( F$ r$ Z- [" H% M- x                dx:=dx+activityspace[1,rows];
% X- C5 X- G4 o  b                /*if mark=true then
; Z" J' V( H6 v' t                ct:=activityspace[2,rows];
. Y  M/ E0 u; i8 v! l* V# j* z                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
+ l7 m7 \# w, e# ?6 w        next;
( J' n$ `1 z5 q* v        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);
        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);
; o  G% x. P; d6 V       
        rows:=0;
        lines:=0;
, e# G+ s6 B, f# E: s        for i:=1 to number_of_machine loop
9 V+ l( s. p+ f1 {1 \: w2 y7 `. j  ~                for j:=1 to number_of_machine loop
! d7 l' B1 v( D1 C/ f3 p3 ^                        if j=i then
                                d_from_to_chart[j,i]:=0;
/ o4 b0 y/ K3 C# h- E                        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];
) b6 m9 [! [( h4 n; ]                                d_from_to_chart[j,i]:=abs(dx-dy);
) r# c  @! @5 e/ z% f2 m                        end;
                next;
) w1 M/ }/ V( U' H1 J1 ?' U' T$ S        next;
       
5 B$ x* j# r0 u+ i        lines:=0;
        partstable.delete;
" m" I2 A2 M0 e& l* Q' B4 e. z! `       
6 h4 B9 f8 \: C( D3 J/ F& t        for i:=1 to number_of_machine loop
8 S9 ~7 [$ O3 f5 F                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
2 x- Y% K1 A+ _6 x3 Z0 i* I7 L                        lines:=lines+1;
) d) j/ A  I6 _; ]( ?7 w                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
+ w) K% S3 [4 {5 s                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
$ J* n' z; C$ M( ]- b/ ]' }0 R                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
) v; b1 V' A: B$ F        next;
  \* Q* g$ G' r5 [        machinename:=sprint("M",rows);
4 g  P* l5 B+ y! H! d3 n        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]);
2 _) U2 A, V3 e4 Y$ y        machine.name:=machinename;标识符未知
9 M: U: J& Z4 \2 N6 M3 c        machine.proctime:=5;
( h7 d- D% y9 g0 c; w        machine.label:=activityspace[0,rows];
- A9 u. |) q% k7 g- R9 E        machine.exitctrl:=ref(leave);
$ z( ^& a5 ~1 Z1 w% R       
        bufname:=sprint("BF",rows);
0 w! a  J/ I. \: y, k        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]);
3 m- p  q( k& G7 P( ~& w        buf.name:=bufname;
        buf.capacity:=5000;
$ @3 P# @4 ~( M7 H4 G1 I        buf.proctime:=0;
+ P& @& L9 Y2 G& t# U        .materialflow.connector.connect(buf,machine);
1 m' \' A9 V7 K  {4 M       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, L7 \1 b; x8 ]0 l6 @dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
; _; j5 i+ H7 z- a' }/ fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
$ e8 t, s( _; k$ s& znext;
end;