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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
; V2 i3 g3 B) r4 k% B/ C+ i    i,j,rows,lines:integer;
- d- B" ?9 I" a$ K: R& K    machinename,bufname:string;
: D( [- K9 g; H3 v    machine,buf:object;
do
. j5 c* x( m0 M. E$ I* ]+ k8 P* U        current.eraselayer(1);
1 {/ A4 M$ s  {& u4 V4 [       
* C) C5 K6 I& H( y- R! g        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ d- C9 O$ E) Z, b5 T4 t! A                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
$ o6 K( q5 B3 J$ P( L4 ?                        print"yes";
; E* g4 V  R+ l  G* ?3 L; Z                when 32 then
, z% U5 K' m( n/ [! [, w                        print"no";
3 ~2 ?7 c. l" c                else
                        print"cancel";
$ w1 A5 f) C; T# u                end;
                eventcontroller.stop;
        end;
       
( o; h+ T2 m* T) O) _, d3 K        for i:=1 to number_of_machine loop
% \+ J7 ~0 h6 O7 z1 V+ d* m        machinename:=sprint("M",i);
9 k4 a; O& c# d, u7 q) J" J        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
" `- N: }( E5 Q! C& `        end;
9 t9 L$ o, o; x. b        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
7 a2 U5 [0 V0 v- G       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
& c0 L4 S1 m* O; {$ P* q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) F  f9 N& d! G3 G) u                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
$ W1 ~& o/ |% |) M% O                        print activityspace[1,rows],",",activityspace[2,rows];
- G) t2 @1 P& A+ T* s' ]                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
* ]8 `* T, R2 j                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
; c9 @' U  ?+ D( W- E) ~                        dx:=0;
- c1 z9 o( R' i4 `                dy:=0;
                        --end;
                end;
6 m4 p$ w% I8 H9 e# g/ C6 r" Z. M4 h                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;
8 M) w$ |1 W) w/ K7 R            if activityspace[2,rows]>dy then
, L6 r+ \* U2 N  q5 v- j; t                        dy:=activityspace[2,rows];
( i* r, [- y( ^) M2 A4 \                end;
8 D# q5 g: F3 K. g0 ~                dx:=dx+activityspace[1,rows];
* t# _% G1 t7 _/ w                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. C- K- d! l1 E3 m! X  X/ h0 H. c; w                        activityspace[1,rows]:=ct;
4 o) |0 |& ~! Q! g" F  o                        end;*/
/ s& I: }( t7 t0 s7 ]        next;
6 s9 s5 N* E$ ^" R, P( ~* u( I( Z. c        y_max:=y_max+dy;
  l+ }* @, x5 H+ h. W  @6 f. p8 O" W        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);
0 r3 S6 W5 V* T) T/ f" v7 }) o        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);
7 {! \0 X9 n3 Z8 Z, k       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
8 x% C9 u7 M- k. u0 U5 b# r2 X                                d_from_to_chart[j,i]:=0;
                        else
5 ?8 {( w# ]2 W$ g. L# l                                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];
7 _5 A1 x" N9 I9 F5 x5 s' ~                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
, S3 B  j$ I; Q6 w8 p+ U- O6 o* Q; y                next;
9 w% F$ E8 D  M7 f& _$ o0 |        next;
& C/ k4 K: Z& J. u, @( V  _       
7 [2 _% M% _  _. y0 a9 f8 Y* d% ~        lines:=0;
; c9 n9 x) c. a7 l: M        partstable.delete;
2 c5 D, L. L' m# @$ Z( S       
' D0 V0 n( S7 y. E/ Y( P. u        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
; G' A  L9 d! j+ |( B* U1 y2 }                        if w_from_to_chart[j,rows]>0 then
  G! O3 o5 k9 z/ i' g; V                        lines:=lines+1;
5 q* s4 I7 @7 x1 N! k                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
& z. Z- F: |1 I# H                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
- \- {7 ]7 x7 }! H" `  V1 a4 x- ^0 X                        partstable[6,lines]:=j;
: @" N0 [* W  {% g  Y                end;
+ z7 L# b" K2 K) j( k        next;
$ m, ~: h: }& o" \- I, V" F        machinename:=sprint("M",rows);
' c8 N5 O4 u+ X# t/ M  r        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;标识符未知
2 e6 N4 c4 b  Y% }        machine.proctime:=5;
" T4 u+ X. M/ W. e        machine.label:=activityspace[0,rows];
* N: A. Q) {" B* I) H        machine.exitctrl:=ref(leave);
       
; Y3 U/ T. n- R+ f" A* v( G        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;
& e$ i( h+ J1 A8 Q4 ^4 _        buf.proctime:=0;
2 _& C: O5 Y0 {8 n" B- K& T- K        .materialflow.connector.connect(buf,machine);
2 S9 A" K1 I/ v& g3 Z' [" j       
        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;
; M8 l3 h* G0 J' T