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

zooey

is
$ F/ h) F- H( m7 m        mark:boolean;
! }* e; v% l  f1 t# p! Y        dx,dy,ct:real;
    i,j,rows,lines:integer;
% h  z7 A. G$ h0 N; k9 F9 z  ?    machinename,bufname:string;
9 J/ C8 i& S/ g: S% `    machine,buf:object;
1 O4 M0 N  T3 }$ bdo
        current.eraselayer(1);
4 R2 N  f8 G) H( }0 O# C2 s0 X+ ]6 o       
5 O* n3 D; a. O# `9 I  K        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: o& o9 r7 @2 P2 X& T, a9 H                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
. ?2 Q' h6 U/ i0 C2 w% O7 e. e                when 32 then
: M. x* {7 R. _) x- A                        print"no";
                else
                        print"cancel";
                end;
8 Z; b$ z( Y: h8 q1 I                eventcontroller.stop;
: g7 y0 S0 r3 I9 H+ V        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
7 G' t* i, q5 y& E                machine:=str_to_obj(machinename);
                machine.deleteobject;
: W" [. Y/ E: w( v8 z        end;
        bufname:=sprint("BF",i);
2 S' R- N& B8 @! J4 U; J        if existsobject(bufname) then
+ {2 V# j  {. |- _: t+ V! x$ G                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
5 r/ x. r7 B) p5 }# e        next;
8 E; }3 ?) n: w' _: b0 N       
8 S4 C# z& I+ L% G" ~+ N: X        dx:=0;
        dy:=0;
7 ]$ b2 p' K% v        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]类型不匹配
2 B' {( I& l( k1 @: i! m! X                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
, s9 W; H# I& P/ s1 _4 b                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 d5 O2 u, F4 }. O( P" z                        mark:=true;
+ k4 R" g5 V! w$ c3 P                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
7 Q/ y3 K8 ]" \% S                dy:=0;
) l' b$ X# N9 c+ D3 ^+ z9 r                        --end;
                end;
- y+ A- J' @0 C* N1 \: k                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) Q9 _0 h- O. I6 p! Q; `# U                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
# |6 e; A) n* Q            if activityspace[2,rows]>dy then
" Z, y& }: m" f4 Y7 M" O- {7 d                        dy:=activityspace[2,rows];
  e4 H. n9 K$ O5 w+ |                end;
% ?) \4 j, J  v4 }                dx:=dx+activityspace[1,rows];
                /*if mark=true then
7 ~, L5 O. n2 {( i! t% Y                ct:=activityspace[2,rows];
" e. n9 H& q# h& a                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 N4 j% n1 b/ U  o$ ^" k                        end;*/
. @: [9 _4 E' o5 [7 N* M& Z        next;
        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);
       
- c/ r9 T" N0 t2 L0 F  p% e        rows:=0;
        lines:=0;
5 g; D! r' m% \        for i:=1 to number_of_machine loop
                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];
; u9 R. X# r9 m$ P8 F8 f                                d_from_to_chart[j,i]:=abs(dx-dy);
5 O4 m, `4 E8 I, `% W8 e7 l- z                        end;
                next;
        next;
       
' ^+ M8 C7 E: Z2 t9 t( c5 T  \  Z        lines:=0;
        partstable.delete;
: }; D! _3 ?6 i% i: a       
" o2 V/ ~5 K, L4 U/ b  _        for i:=1 to number_of_machine loop
: @2 h9 y" y" I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 X5 N: m& ^( _4 k; o                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"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
% g! F3 R7 U. J. A- J* p7 j                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
% \) ~* h$ p, d) |: G7 f                        partstable[6,lines]:=j;
                end;
  B6 y3 k1 H& R        next;
$ ?/ I* c* J3 z  P        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;标识符未知
" i, ?5 i3 O: Z6 a9 f) D        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
4 P8 x$ P% H, [       
        bufname:=sprint("BF",rows);
& s. R3 p: r0 C& y3 Q! D7 z6 [& L        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]);
0 c. s) M. O. q+ O        buf.name:=bufname;
        buf.capacity:=5000;
0 E* D8 p: E$ Y% _) Q2 S        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
2 I( u- q+ p* H) q( }0 V        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);
next;
end;