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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
6 Z- I+ h6 x+ y       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ ~$ L7 K) R; N; g9 X8 g                inspect messagebox("设施数目不对！请核查...,",50,13)
6 d* U( G) I' q8 K: Q                when 16 then
                        print"yes";
: i/ c3 D5 U% {$ f                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
( p. y" i8 R- e* p& t. Z$ @, j                eventcontroller.stop;
. a6 o! A% b0 R9 k. }        end;
1 r" g+ \9 l8 `% T3 ^       
( ?) _$ v- \% x5 u2 a& L        for i:=1 to number_of_machine loop
% ?0 c- z& L& a2 |5 v- {+ b# h        machinename:=sprint("M",i);
) [' C5 s# G6 g  l7 r        if existsobject(machinename) then
3 [9 w: D  [2 s# ?+ Z                machine:=str_to_obj(machinename);
                machine.deleteobject;
; `0 e( ~( c) K        end;
/ G% @$ M. y& {4 f4 c, m& T        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
% g, B- V9 n6 d        dx:=0;
" u! i, B* S- f" `        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! x3 {4 u9 W3 M$ n/ U, O                then
" h5 V1 G# P* P/ L  r; n$ y* R" y" ~                        /*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];
# j  |& }; n5 `5 m9 `  q                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ t7 M6 H1 C( T! {+ f/ \/ I                        activityspace[1,rows]:=ct;
                        mark:=true;
& O5 m0 T5 l& U9 J* n                        else*/
                        y_max:=y_max+dy;
5 C; I- c# A. J" a& S& M                        dx:=0;
' c% k0 ?6 h- B9 R; n                dy:=0;
                        --end;
8 T6 I$ o3 u3 N6 M" V: S& x                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. U! h  f! _3 `, Q% c+ O9 T" |                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
8 |; O7 E  X% K- x% w+ W4 J- m                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
% Z8 [$ x' `7 ]8 S4 n. x2 t8 G6 c" `& w                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
: w  Z/ M+ u2 i                        activityspace[1,rows]:=ct;
5 F9 A. y8 x' D4 K$ ~% L1 n! K                        end;*/
8 R, d0 y, W; }        next;
        y_max:=y_max+dy;
) m0 k7 `/ `0 c1 |  S/ o  d* ^        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);
1 V8 N6 |5 d3 C1 t" H& S2 B2 }$ V       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
3 U  z8 q  @! D0 C3 \. w8 s                        if j=i then
& F5 S" b; U- I* h                                d_from_to_chart[j,i]:=0;
                        else
+ C( {; }4 E  e% Q) ?. V                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
' H: f# X; Z! B' u' s                                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;
        next;
% U9 w1 x1 Q/ g7 E' F2 @       
        lines:=0;
) O0 C: ]- K$ J        partstable.delete;
       
' U6 l! [9 ^$ M2 |        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 W  y$ {0 w3 x/ U! ~                machinesequence[2,i]:=rows;
- A) ^; t" O/ ^$ x8 i6 C                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"));
' _7 i: W4 L9 V                        partstable[2,lines]:=w_from_to_chart[j,rows];
6 k2 y2 o: ^5 \) S; \, v9 X                        partstable[3,lines]:=sprint("parts");
/ Q/ }3 {; p, y1 q0 a2 _4 Q0 f                        partstable[5,lines]:=rows;
& |- L/ @9 o! o8 N/ _                        partstable[6,lines]:=j;
                end;
- ^- i8 |8 X4 J/ X        next;
        machinename:=sprint("M",rows);
" i, [9 W& ]; N- h* U8 E        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]);
/ f( E  n' s$ n        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
8 L3 W. T) y2 ]       
        bufname:=sprint("BF",rows);
/ [4 Y, j/ W. y1 k& g, V- O  w        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;
9 `: }; R' f" ~8 ?/ e        buf.capacity:=5000;
, e% b" C  G* M) y4 J2 |  ~        buf.proctime:=0;
5 A( B1 n' E9 A6 ~        .materialflow.connector.connect(buf,machine);
       
2 D  s5 A9 D" @6 j, I        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);
- B# C$ L0 o6 V; G% anext;
end;
: k  g2 g7 w  W+ c0 E4 V- h- t* W& n