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

zooey

is
        mark:boolean;
! @. P" H+ ]; m/ }' n5 T: T0 l        dx,dy,ct:real;
, C) o3 P: _$ A, q/ {    i,j,rows,lines:integer;
+ L( W( v1 i7 C6 O/ B& j0 W    machinename,bufname:string;
" P  \# O7 e8 N6 v$ l) N    machine,buf:object;
do
        current.eraselayer(1);
       
- c. I9 p. n2 O' C        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";
                when 32 then
                        print"no";
5 A+ n& t# O! v( f- O                else
3 h. F" ]; B+ J& t0 V, ~3 X                        print"cancel";
! \6 o& q7 e. N9 o9 s                end;
                eventcontroller.stop;
$ S8 q- k$ g6 v  T        end;
       
- W: @' w6 i) a1 |# b9 [        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
8 ]5 Y( y5 D# W        if existsobject(bufname) then
5 {$ H! t1 D7 ?2 d                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
: x' N4 i3 |* N' c+ |' _        dx:=0;
' ^' y- S# J7 `5 @3 Y: w        dy:=0;
& Y7 p8 t, t* Q/ n# }        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 g+ M5 P/ t  x                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
1 M% v, T" w4 @; A5 n! N                then
0 L2 Y7 h7 e  `                        /*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];
: h" G* M, ?9 ]5 [% s' h5 y                        ct:=activityspace[2,rows];
  p8 z9 [! f; B/ M3 x5 M" G5 N; a  T                        activityspace[2,rows]:=activityspace[1,rows];
! I0 k" x! h7 j. T                        activityspace[1,rows]:=ct;
% `/ {% z) O" f; s9 v                        mark:=true;
% p1 f6 w9 b- \                        else*/
& e4 `* b% Q+ O                        y_max:=y_max+dy;
% _; x, v, |+ [' A                        dx:=0;
1 [  e" W7 c9 A) Z  B$ {( K                dy:=0;
                        --end;
4 N3 W3 M6 P3 `/ E; L                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
; M. S5 F. _4 _3 L                        activityspace[1,rows]:=ct;
                        end;*/
$ ~1 F& \( M9 d/ X4 d: c2 x8 X        next;
        y_max:=y_max+dy;
( t0 K3 Y( V& g0 ?! F6 b9 {/ d4 c) R        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);
/ i. Z$ R3 z' ~- D5 m( ]5 ?       
        rows:=0;
        lines:=0;
9 T+ J! r" |  \+ C. F        for i:=1 to number_of_machine loop
) ]2 E) G6 i4 c                for j:=1 to number_of_machine loop
                        if j=i then
) ^3 d/ x0 T& [( J9 C8 w                                d_from_to_chart[j,i]:=0;
                        else
6 I* P+ ]8 w% Z! H  c                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
8 \! y. [5 F8 P0 t+ x+ C! x' Z# Y                                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;
; Z+ Q( g% W$ `                next;
$ s$ |9 S& D/ D7 S! ^7 K        next;
' `& v* a& _6 A- |       
7 ^' s- Y* }0 G        lines:=0;
  S3 w& t) M- e        partstable.delete;
7 A( S0 U7 I+ ]: ~8 l       
' V/ j5 z4 T0 t. X* I7 `2 Q        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
                        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");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
! ]4 q* X4 I* D/ Z; S        next;
4 N+ u/ l/ z5 i3 b9 N1 i        machinename:=sprint("M",rows);
+ c6 S# u) }& K6 j& _# W# u        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;标识符未知
' h5 c6 O; E5 {4 q! r1 t* o* c        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
. M" A$ ^" ]! k       
) F  d1 U, i/ z. q, Q- G9 k/ A        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;
. J& a6 p" f2 s        .materialflow.connector.connect(buf,machine);
. @6 Q; e" o% w5 s/ M       
+ @# s) b" V! @+ Q+ ?1 |. u        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;
6 C$ a  ]6 k8 }current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
; [. j! U$ ^& Y( }7 Xnext;
end;