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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
6 ~; C% a1 x+ Y/ t/ T! P    machinename,bufname:string;
6 F+ T# @) ]8 _) B- J0 @2 i    machine,buf:object;
do
% s+ k6 S; B3 B0 t        current.eraselayer(1);
, Q1 ?2 P3 B/ z3 Q' L' y) F       
7 r/ d$ \0 s& w; A  ~2 v5 U        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
; q. T- Q( \/ ?% e- K* d/ ~                when 32 then
                        print"no";
9 Q5 x: N3 i8 s2 r" C) G                else
                        print"cancel";
/ b1 R5 d- d7 w6 N                end;
8 z& x: r* U* t( A0 ]8 x( J' L/ K9 _2 u; }                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
2 s' T/ r# I# x+ T: h# b        machinename:=sprint("M",i);
, O: D3 v; {7 W        if existsobject(machinename) then
6 C( [+ b* W+ W( w8 {                machine:=str_to_obj(machinename);
6 J4 J2 E# ?8 N: ^                machine.deleteobject;
        end;
2 s! l% G% A, R; C4 }2 p        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
4 i* D$ G1 q& o7 F# e5 a, j        end;
) u8 m- F) |% h: x8 \4 `7 @/ _        next;
5 L3 m- v7 L8 J" h       
. |9 y( P0 D% X" d' A9 Z/ J0 u! ~        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
0 n% L+ c/ S* n; D, s$ T                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. \8 J' @: h" M/ m% t8 F: Q                then
' ]. j% K; _7 x                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) [9 s. @, e! j0 r# V8 z: s                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
6 z) g( [4 H  J/ Z+ n                        ct:=activityspace[2,rows];
& ?' v$ S% m7 k                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
1 n, k5 G5 f4 a9 @                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
) w* s' a) [7 B                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
+ s2 O; l3 e$ H5 E/ V5 M% [0 R            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
8 D/ o" r' U9 u' s& d: c" h- w                dx:=dx+activityspace[1,rows];
9 ]6 i; h# B9 g% @4 F- D- ]( j                /*if mark=true then
$ D/ p  z8 a+ W5 Q9 Y  r- _                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
1 }# U( E& H* ?7 s        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);
* ~4 b6 F6 b" V0 D8 D1 ~        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% X" u6 O6 e: o       
8 }+ p1 `5 q. w0 d        rows:=0;
        lines:=0;
        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
7 f+ `8 y- O; u% d( f' J                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: |* T( Q: w# y5 a; y* Z0 l                                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;
  }* H2 L- c* ]8 H                next;
" \+ w- v/ N" L. E- h$ k        next;
* ~5 E1 @; D1 |, T& l3 j       
        lines:=0;
        partstable.delete;
       
        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
$ y7 u! A( v4 `7 ]                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
! @3 w2 h6 F  n3 g! k9 z% ~  Z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 T) l) S4 q3 L3 M                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 E) x8 r9 Z, I) F/ |                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
1 C& `- w% _+ K. b9 w6 i6 M% [- ~                        partstable[6,lines]:=j;
                end;
        next;
/ C8 Q5 U! }* Q7 N+ i" g1 y3 N9 G  m2 |$ k        machinename:=sprint("M",rows);
# |" ~1 k! O2 U3 b, |: A/ n. L        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]);
6 ~7 o" m* |% k        machine.name:=machinename;标识符未知
# I; _7 x+ n3 f& X* t; k8 O) V% u% v* |        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
# f3 }  a" T$ I% j1 y        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;
        buf.capacity:=5000;
! x# D, A# Q4 L        buf.proctime:=0;
+ w8 L9 T5 Q& D+ A) K. l6 A        .materialflow.connector.connect(buf,machine);
* p# \0 Z4 T6 H* ]  h1 c       
        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;
5 a  k5 t& K8 H/ M7 r$ R- ^