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

zooey

is
5 q! z7 Y, W% ^. `* M        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
* i- m8 M7 Y  `2 ^    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
! S5 k- E9 H/ f$ C# E: Z       
3 V- Z2 }2 c% B6 S- t8 H7 W/ q& @        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
/ R2 y% {, K: k. H                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
4 I% q8 n6 A! ~' b  T* y                        print"cancel";
! g* Q; g' y5 W0 G1 g0 _8 w$ [# s8 N                end;
5 ]) i6 \- p1 \/ a5 \" ^' F- ^. R( n                eventcontroller.stop;
        end;
       
% j4 H/ Z: N3 Q% z& k) G% P% Y  f        for i:=1 to number_of_machine loop
5 q0 s2 X, \: m: U3 J; j+ e: A        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
# u9 y4 I) W+ e( @2 D" b  K5 J1 g        end;
        bufname:=sprint("BF",i);
8 a% J# Z$ Q6 X/ a        if existsobject(bufname) then
5 I9 b4 _( Z  ?2 }7 v                buf:=str_to_obj(bufname);
                buf.deleteobject;
  K4 H+ ^" p  X0 N        end;
        next;
0 p- `& Z4 ^3 ]) F6 |! h       
        dx:=0;
- h! s" h$ r) x( S8 _2 w' 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]类型不匹配
8 z  `6 I4 z2 Q: }  Z                then
: _# J7 W) b8 v$ e                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 r- D8 n9 t* }) d- F                        and activityspace[1,rows]<(1.05*y_max) then
0 R" Z) w; L5 l& P9 v8 p                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 O( _4 T% P8 {                        activityspace[1,rows]:=ct;
+ i$ D5 \8 A, R7 o# m1 ~! _                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
0 l# ]0 x( F$ F4 X1 A5 ]7 }5 _                        --end;
6 l8 i& T0 A6 l6 U& |                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; J7 o4 }0 K. k" P' v! s                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
  E. x8 `, i+ ^" e6 H                        dy:=activityspace[2,rows];
                end;
! E% @6 M5 P7 `; q$ P                dx:=dx+activityspace[1,rows];
                /*if mark=true then
, z* e4 @6 [! M2 |) b                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
; v* i8 Z0 y) h# h3 `                        end;*/
) n: v& _/ e6 j) Y+ X7 y        next;
& W0 A, E9 V% C8 y' |        y_max:=y_max+dy;
" e% p7 L' u' W" E6 G        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);
       
        rows:=0;
2 t0 w3 S/ O" `$ ^! Y+ o. r6 w, c4 K6 a# T        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
( Q& j  u# T( G$ i                        if j=i then
0 e# K9 d9 O  P; |                                d_from_to_chart[j,i]:=0;
6 |0 T3 |4 E- M5 f                        else
# y+ r' A6 @' j$ T+ A4 f% U                                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];
4 W& W6 T1 a  _5 J' ^* {3 y) ]                                d_from_to_chart[j,i]:=abs(dx-dy);
) L  }& Z1 X* e                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
0 [9 E" ~6 B$ N       
/ V/ t; [- T4 C& F        for i:=1 to number_of_machine loop
% r; M1 e- s! D( v1 a4 c& {) v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' G" j# G6 h) B( P0 F+ G                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
4 _. x( X0 k+ t% Q( T  x                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
# v5 H$ L4 y& L: h% i# I2 M                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
: @0 a1 a0 L; i- S; H                        partstable[3,lines]:=sprint("parts");
  @, c, S) R' C                        partstable[5,lines]:=rows;
$ o- l1 j  e7 U1 Q  q. }                        partstable[6,lines]:=j;
/ ?& c7 V  N( e+ Z! \4 l) {7 c6 Q                end;
! D$ I9 b) O9 K; R7 F        next;
        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]);
& }; [9 E8 w' g4 A0 j        machine.name:=machinename;标识符未知
% ^- W; w/ x! E6 O        machine.proctime:=5;
! E7 ]% z5 L* T( d& N! f( b        machine.label:=activityspace[0,rows];
# n  `( v3 e( r/ {# n        machine.exitctrl:=ref(leave);
; h5 q( ]5 A; {3 P' Z0 `  C       
        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;