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

zooey

is
2 X1 a. V5 g' M6 q% p        mark:boolean;
4 t& b8 q: X# a" f/ ^        dx,dy,ct:real;
9 J& ^5 T, n4 [5 V8 @& H    i,j,rows,lines:integer;
    machinename,bufname:string;
5 k- m, y$ ~0 S! r$ E7 u    machine,buf:object;
/ Y: L1 ^/ I, \# F6 P7 K. }! f  `do
        current.eraselayer(1);
       
0 J2 C6 T+ g0 }        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
3 }; e1 k- E! o' R                        print"no";
4 E) x% [- t6 r, {, ~: D5 |3 o% P$ k2 n                else
# R" T, }, \6 S0 m7 h! F3 V                        print"cancel";
                end;
                eventcontroller.stop;
$ @; m. U5 \+ X9 T; C        end;
; C4 T. z2 N( \; ?$ V( l* x       
        for i:=1 to number_of_machine loop
, s* p) r. n2 O% Y" f, T        machinename:=sprint("M",i);
0 ~2 I3 |2 C# W, d% M! s8 ]8 C% o$ |        if existsobject(machinename) then
! ~3 \+ j+ s+ b+ h9 a                machine:=str_to_obj(machinename);
0 h5 @5 {  E* N4 m9 K                machine.deleteobject;
3 ?" D7 a/ @& e& d. E% ^        end;
' {! E  I+ L# U. a4 i* [, B9 i        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
. L8 @/ N" x+ V; n) N' K) P  Z  r! ?5 c                buf.deleteobject;
5 N" o- H0 b7 R3 I  I; y        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 w2 X: F9 T) ]. m) k                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
7 U* _5 q+ n" K5 a9 k: I( D0 N                        /*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];
; l( c- J& ]* |5 V  V' @6 f                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
" d/ t6 `' ]9 b  X2 Y% F6 F! O9 A                        y_max:=y_max+dy;
8 S2 ~' R! C0 r0 Z                        dx:=0;
                dy:=0;
0 a* {2 K/ j0 k+ q' h, {                        --end;
% T  C+ N' R5 M                end;
& h4 {( ?! v7 D8 K9 C                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ `6 u% d, [) @0 U1 }9 L& v7 }                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];
, E: q* v9 W  |$ P0 [9 f                end;
. c8 [* I& A$ A                dx:=dx+activityspace[1,rows];
                /*if mark=true then
5 c! P* j2 Y( a. y) p% M                ct:=activityspace[2,rows];
/ p! y7 Q( H- X/ s( G                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        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);
        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);
/ M, k% O9 `. X7 @       
, e2 e+ e; w# I6 i+ J$ ?- H; v/ [        rows:=0;
8 v0 h6 m& ?9 p% l+ j        lines:=0;
) l3 \" p2 Q9 }! Y2 J+ ^        for i:=1 to number_of_machine loop
! W' p7 w4 w& O3 W                for j:=1 to number_of_machine loop
                        if j=i then
: W" Z+ _2 i7 h" [6 l5 n                                d_from_to_chart[j,i]:=0;
                        else
  ^+ R& h! O$ T. m                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
' S# h8 c3 r; j! R. `+ k% w) }                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
( d9 Y+ O( A' {) E/ Y. t: t                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
! @! j2 S5 m, s  t, ~        next;
       
        lines:=0;
        partstable.delete;
# u  o- c) K5 I/ O3 ^8 U" Y) j2 |       
4 |5 a2 e8 m2 p: N; Z0 P+ _        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
9 s( E; A; W, J  H. ?1 V  c                for j:=1 to number_of_machine loop
  b! L" R$ z+ f, X                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
4 h& i3 ~6 h* x- K8 p                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ [# T! ]1 O' X) D' Q8 H                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 J1 J' A, V9 R3 q! Z0 z                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
# E$ w, ~* `0 H& ]- o7 d( t9 X/ e3 P                        partstable[6,lines]:=j;
' f6 ~9 b3 S2 M! Z                end;
; \) n/ N; a2 ^1 Q% N# r        next;
5 |6 ]& Q; N( R: B, {% B: Y        machinename:=sprint("M",rows);
5 R5 |. h: [7 w$ P, b! e5 _# d        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]);
* H& Y6 ^4 J5 F3 G2 C  p        machine.name:=machinename;标识符未知
3 }5 L1 q; y8 `$ s* N        machine.proctime:=5;
: U! _4 s$ Q1 p: m1 }        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
- L  f( ?9 m. X! f       
        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;
7 z9 x7 T+ n; g( `  N0 p        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
# r5 L5 a2 w" ]! a        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ ], }. D+ g* ]. X9 Gdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
) [! B- D  S3 @7 N0 }! icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;