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

zooey

is
9 q7 M& a' e. y- z5 H4 c( y, c        mark:boolean;
) E6 f8 \: W5 K( z        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
! K/ y* Y, J; H3 w: W6 r( l# jdo
" n3 N. a- [1 V8 Z0 m6 Y        current.eraselayer(1);
       
2 |# W8 a2 i. r. Q  q  ^6 V        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 M# @1 V# v/ q1 S3 q                inspect messagebox("设施数目不对！请核查...,",50,13)
- M# p, `9 F# j8 i# v! u                when 16 then
. G$ A4 s0 u; A0 H                        print"yes";
                when 32 then
% T' B- t$ D1 s* d% x; x: p/ P                        print"no";
# e0 T4 S6 m# I! P9 u0 G                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
5 c3 `4 `$ K. n2 N& s       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
& Y9 T$ T6 ~3 r+ `! y% U1 S  L                machine:=str_to_obj(machinename);
+ X0 W* t, s5 [& m/ `3 ?$ _! N                machine.deleteobject;
; c4 K. Q- E8 k! `3 e9 R. X        end;
- `; Y4 C  v3 s8 f( B: x9 ?7 f        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
3 _+ t; N6 h* J# P  @0 k$ s( Q                buf.deleteobject;
        end;
        next;
       
! V8 n" D0 _. _5 O0 }        dx:=0;
        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]类型不匹配
! W* w8 [0 D( W$ \3 t' b1 f                then
% ]5 y8 z+ P  z. `+ e/ K# E4 I+ S6 ?                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
" z' @+ ~+ E0 B" L. e1 x; I9 {                        and activityspace[1,rows]<(1.05*y_max) then
( G0 S& w" b- d# P! ~( t/ O& J                        print activityspace[1,rows],",",activityspace[2,rows];
: k8 B* f" a( Y' V) Y# Y/ {8 Q                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! d' g: d* d& k. r( K                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
7 U) x8 H! @9 W. D- ]8 s) }& S1 q: V                        dx:=0;
- q6 i: F8 L( r/ e* [                dy:=0;
                        --end;
                end;
: i, F7 v5 I" j  k8 R8 J                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
3 d0 S3 u# B. F8 B! p( r" K" S2 h+ M                        dy:=activityspace[2,rows];
9 m, T; ?8 ]3 P                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
2 j* ~  f5 g  C; \                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
& g! a5 d& b3 R6 i. M* z3 x6 {5 V        next;
0 @5 |3 X( {, _8 j; e        y_max:=y_max+dy;
5 H9 f* T' c* ^" |1 U* ]6 s. z        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);
! b+ K1 n7 T1 L9 G8 t. p( B       
/ F2 I* `5 `$ ?, J  \        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
' p3 ^' ]7 {8 O7 r: f! M* q: f1 m                        if j=i then
                                d_from_to_chart[j,i]:=0;
; I# S; y- K( ^) |+ q0 _$ j                        else
( ?7 G- m7 x, N1 K; M$ u                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ t6 j9 X7 M* y* T                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
6 g) C" O& |4 b! g/ T                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
6 j5 J% i) `! T                next;
        next;
       
6 A6 t6 s6 C& k4 r% h7 t        lines:=0;
( C1 f0 V% k$ {6 n4 k' E( \" d  {        partstable.delete;
% R- A' R1 ^2 w, q: ~       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
3 M0 X; K( i$ m! k7 L                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
' v  d7 n7 h4 `1 S0 M                        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;
" Q. `' q& A- L- u$ e$ j8 q                end;
        next;
2 ?: E) e" z* A; @4 P- r) S/ [  p& K4 [        machinename:=sprint("M",rows);
& F% V8 }( u9 P' |; G        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
- o8 T& g* Y  J6 h8 }' K3 q9 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;
) \5 o9 M  b! O. J: d3 ~0 f0 d; R        .materialflow.connector.connect(buf,machine);
       
& r9 K3 T. {& v0 j6 L. g        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
! K% r$ T( D( t3 B" e$ Idy:=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);
* s- S. ~, P) |* H, F$ dnext;
end;