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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
% K$ S" J8 X7 T/ ]; y" c2 i    i,j,rows,lines:integer;
! V3 t( F5 Q# O    machinename,bufname:string;
    machine,buf:object;
do
$ r7 A! N2 S6 l" Q+ \5 A        current.eraselayer(1);
8 Y% H0 I3 U* I$ f6 s# j       
  e- X+ r7 \8 o) x9 @. l5 `. D/ O        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
7 P! e2 ?+ K7 \  Q' f                when 16 then
                        print"yes";
7 p; m! @* L/ B                when 32 then
6 f2 G- f$ I  O7 b+ z( R# j+ V9 v                        print"no";
4 O, m: N* ~) x  B6 b7 n                else
1 d" _; [! z# |% t                        print"cancel";
                end;
                eventcontroller.stop;
' k% w( }8 ^3 U, x        end;
       
        for i:=1 to number_of_machine loop
8 x- }- t. C, i* U" R/ b, [        machinename:=sprint("M",i);
; ?$ h8 o# b9 d0 Q: x        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
% |. }$ c) V9 Y6 l9 A/ j; s        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
* ~8 x' c! P7 s8 J6 n# F1 j- G       
        dx:=0;
, Y* T& B+ a8 W+ |" H  f        dy:=0;
2 S  E4 g- p: |: c8 P: Z- |  }& F        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 G* F4 l" S+ S: l9 t                --mark:=false;
! r3 R3 {% S- H/ s, g% I% z1 O                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
" E/ i. W! K6 Y" u  J                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
2 F% R8 `$ b$ Y* R$ `8 l9 y9 D                        print activityspace[1,rows],",",activityspace[2,rows];
% Z* E- u3 n7 V4 }5 {                        ct:=activityspace[2,rows];
" o1 B) V1 ]) q# ]                        activityspace[2,rows]:=activityspace[1,rows];
" a* u% x- M+ k                        activityspace[1,rows]:=ct;
2 M- S: b( z0 k0 C                        mark:=true;
3 E1 v- m1 I) G) v+ q) {                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
. ^3 y; T) @8 U- _+ r                dy:=0;
3 G6 |; E" P% m' G, D                        --end;
                end;
( K+ H5 ], I  O% k6 j; X                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 h+ Q0 ]- x5 `, f9 A! F) N+ ]; }                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];
% @9 T, |, u' a7 N: g) W8 t                end;
                dx:=dx+activityspace[1,rows];
5 s2 j" ?! Z$ _& G3 w& K: H1 i' L                /*if mark=true then
                ct:=activityspace[2,rows];
% {3 j' F: D0 ]5 N0 W& Z                        activityspace[2,rows]:=activityspace[1,rows];
# n( A# ?3 W- a- z- ]                        activityspace[1,rows]:=ct;
9 G8 J/ c  \7 }% M& e                        end;*/
        next;
        y_max:=y_max+dy;
4 j+ L2 t( l2 V) M        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);
9 F7 [, b9 o" T2 |- J        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);
       
5 n5 P5 M7 y3 A- M7 L        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
  G" G; u" h% B! H  k" t7 w" E5 L7 f$ X                                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];
& [  P  \& |5 M( ?( o1 }0 D* ~                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
, q( g' p& Q7 a        next;
       
        lines:=0;
2 t% M  u, ~! l  I, G        partstable.delete;
5 l' m( s% k' y& c) ^+ u+ D3 y       
        for i:=1 to number_of_machine loop
, C# t& @2 V; w4 v8 j4 H- p                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;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
' P' C5 G) a! v% W                        partstable[5,lines]:=rows;
# M3 p& W- M% |8 _! ~                        partstable[6,lines]:=j;
2 H6 \. e/ N& ~2 Z& U                end;
        next;
        machinename:=sprint("M",rows);
$ N2 F4 v% }8 _$ ~, P' S        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]);
# d5 u3 y( e6 Z; c* ^( k        machine.name:=machinename;标识符未知
% q4 M& V% y* n        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
6 V2 h  U& @4 s, F0 o0 P5 c( Q        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;
) v; J; z8 s5 _& t. H6 H# e2 ^        buf.capacity:=5000;
0 Z. s6 _. D% z2 d' D% h        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
! w3 m# [1 E9 J9 k       
8 u- h. w5 D9 y, ~3 E6 c1 b        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);
3 [6 u. t# F8 e% Y' a, anext;
# B/ W! }7 Y$ x( B% u" n8 jend;