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

zooey

is
+ t  y3 ?2 D/ @7 [4 W        mark:boolean;
" D* A' k) i3 O1 j        dx,dy,ct:real;
# |9 c# H6 c' C7 j  [3 Z% X    i,j,rows,lines:integer;
2 _' P$ j3 i3 D- v- P. j    machinename,bufname:string;
    machine,buf:object;
$ ^' m; T1 B9 {- G  I0 t4 mdo
5 w) j6 u( c7 u' F  w# z( r9 {        current.eraselayer(1);
% F) O/ k  R6 K. @6 ~       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
2 J; ^' M$ o+ I; |6 c                inspect messagebox("设施数目不对！请核查...,",50,13)
' q8 H+ n, r& U# I# b                when 16 then
                        print"yes";
) C' K! Q0 y* r/ D! q4 _4 N  o                when 32 then
$ N) P# N7 u8 y6 I                        print"no";
                else
& K3 m, H$ q, S5 G+ @# U2 p                        print"cancel";
" t& X) s' E% q                end;
                eventcontroller.stop;
* t* w) J6 C) h* w; o! [- m        end;
       
        for i:=1 to number_of_machine loop
" o1 O% R2 G/ ~* i. l        machinename:=sprint("M",i);
4 l( t' z  ~% `/ B" p* V& S        if existsobject(machinename) then
1 M6 H$ o6 Z( v: F, N                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
: ^6 R  i7 m, _7 _6 B        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
7 @7 `8 e/ G( K6 M1 K                buf.deleteobject;
        end;
        next;
       
$ s5 X; ~3 p& T& S5 ?! K        dx:=0;
2 I  H6 F, P1 S8 E" ~( Y2 Z. M        dy:=0;
2 j4 M3 V1 I: X# ?# _6 e7 t6 U        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
6 k( F! U5 z7 x- r                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 I& Q( l  ~- Y4 }5 j                then
) X7 g  x9 K% |* J                        /*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];
* g% d( N% t( {0 D# ^" t, {                        ct:=activityspace[2,rows];
$ v! [2 E5 J; d* Q1 B1 Z, j- e  a                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 h& _) b2 H) p* p                        mark:=true;
) p, M3 w; }  `3 p. u                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
9 \( N7 D0 T* T  q                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' z' E. a. X; F/ q1 b/ M1 d                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];
( n! M- f/ R2 V                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  t9 H8 [8 ]5 l( P5 `% a                        activityspace[1,rows]:=ct;
+ W3 c% h% E! W; h, B, G                        end;*/
- F* i  r4 e" j; `! F        next;
        y_max:=y_max+dy;
6 m: T8 z+ [- K# P: _$ {" K: a3 _3 u        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);
( f7 {4 f. l: g! J       
        rows:=0;
6 C0 T9 d5 v) e2 D" B        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
7 F3 @" o: ~& @0 Z  r, }1 u                        if j=i then
, ?7 q$ Y  j* k2 ^$ X                                d_from_to_chart[j,i]:=0;
                        else
- p5 [+ Q+ I# [) `+ Q                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
0 v* i4 G9 R) C$ F) A        next;
3 l: ^3 H; [5 u7 f. s, Y       
        lines:=0;
8 C/ t' _8 O8 o        partstable.delete;
% h/ P+ e/ D1 Z0 W) A8 [       
        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
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
4 k! A+ O( K% t1 X; F6 d6 \, Y                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
2 m* M. ?) z6 j+ F                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 g8 P5 b' W4 t+ O+ y) B6 _                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
( H5 G7 [2 d( g( g                        partstable[6,lines]:=j;
                end;
0 T4 c9 y- k" X9 h        next;
        machinename:=sprint("M",rows);
' g$ x: c* q; R: ]- B! X, S$ a        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;标识符未知
1 G8 g6 r; ]/ A        machine.proctime:=5;
  [9 u9 c+ i. N6 ^6 O6 Y* [        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]);
4 E  `3 I8 H1 T! Y" c        buf.name:=bufname;
        buf.capacity:=5000;
7 x; Q$ e6 ?( _: T" F' p        buf.proctime:=0;
5 w$ z* v7 I1 M3 r9 ?        .materialflow.connector.connect(buf,machine);
' Y9 R) F# O6 P- l$ \3 T       
3 q4 U0 p2 }% n- y8 N9 T        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
# |$ Y: E, @3 e" _: y( D3 @2 Xdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
/ B3 J! U. ~  ~$ M5 Q8 Fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
' D* h+ a9 e% m4 S# z* h- C" ~4 v6 ]next;
end;