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

zooey

is
: L6 o) b1 f* h        mark:boolean;
        dx,dy,ct:real;
1 T6 d# `4 g/ o9 z6 n; B4 w2 f    i,j,rows,lines:integer;
5 S) I, w2 x0 r( ^# \0 K" U    machinename,bufname:string;
7 Y5 G( d$ h" p2 O0 \! `8 ^) p7 D; S    machine,buf:object;
2 v+ X9 o* `% M) T4 a( i! Hdo
% o/ V. T4 a- |) _6 E        current.eraselayer(1);
       
        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
' J5 o  Y4 g! C/ m( T                        print"yes";
" H! v$ M; M' u9 y, g                when 32 then
                        print"no";
, o1 [6 c0 u" E$ [& k$ X' c+ `( i                else
                        print"cancel";
                end;
; E/ A% G% n, t  l; \4 ~6 g+ ?  B8 t                eventcontroller.stop;
0 r3 C' k& P( n- }# c3 u        end;
       
        for i:=1 to number_of_machine loop
$ Q: b, E: J( L8 ^' N+ i        machinename:=sprint("M",i);
/ q& x% W# o1 s1 k" B9 y        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
( G4 a. r( k6 e- e7 l+ {. G/ }                machine.deleteobject;
1 R& S6 @! D! M" y$ ?        end;
7 g3 A; h- M1 b4 b0 ]        bufname:=sprint("BF",i);
1 E5 ]! V* w. _; _! h% s        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
( H; Z% L9 h" T) ?9 M2 O                buf.deleteobject;
        end;
$ o1 m" a2 X; R" j5 u: m! a        next;
5 n+ e0 K1 q( h9 }" |$ U6 c       
        dx:=0;
% F! v' w% E' ~: b2 ]        dy:=0;
; ]* Y/ h. y6 q; k4 q- f, z7 E6 G        for i:=1 to number_of_machine loop
! D- u0 P+ o; U, b/ J                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: Q% w5 S5 c) e! m2 ]                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
3 u* ~* @+ _# z6 @                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
( D. f0 t: x2 v5 ?0 I- U                        print activityspace[1,rows],",",activityspace[2,rows];
9 a) ]; A& T5 ?" M  t; y                        ct:=activityspace[2,rows];
: Q; b8 X/ m- H/ Q" C6 ?                        activityspace[2,rows]:=activityspace[1,rows];
6 R/ x& \: b- E+ y/ W) Y, n                        activityspace[1,rows]:=ct;
                        mark:=true;
- K6 @0 H3 ^4 T                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
' K9 R, I; Y) ^* ]$ S+ r# B                dy:=0;
                        --end;
                end;
' o$ u+ N/ f8 I6 B: ?# j                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 \6 o9 w0 Q$ @8 J* M  ~                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];
) N6 P* a2 X# ~7 v* C% D" g                end;
                dx:=dx+activityspace[1,rows];
5 ]; Q/ m$ O5 {; N) A5 A                /*if mark=true then
; v4 X3 g- k6 h7 |8 `                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
$ B( p) w7 u3 {3 R3 Q                        activityspace[1,rows]:=ct;
                        end;*/
        next;
) `4 J* u% c8 Y' r' b% o$ u) f9 w7 I. ^        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);
4 X& D; z$ P1 u* H        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;
. ^5 t9 |3 r" d" e- J        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
# Z2 V7 j- T+ {6 i6 m/ t                        if j=i then
                                d_from_to_chart[j,i]:=0;
7 E  w+ M3 J" X: B                        else
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
% [6 L! u$ p* n4 D5 {1 t6 d                        end;
2 V! y/ N4 p4 [0 ?                next;
1 @9 C; F4 X4 H3 S' Z        next;
       
4 ~4 {5 L$ i* D7 v! M        lines:=0;
# S) S( R# \: i; ~( c4 Y        partstable.delete;
7 `$ F2 e5 c. l+ C; T  S       
        for i:=1 to number_of_machine loop
& M( N5 M9 J7 c8 I: @* Q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! N( N, \% m, z; e                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
; s* d" K! ^, M  N; t: d                        lines:=lines+1;
, w+ }, F9 F1 ^4 T                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 _& [" \3 _( Z4 [( r! y9 ~                        partstable[3,lines]:=sprint("parts");
8 B) s! c' f& |& W2 n                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
2 Q! w" C. n8 K7 M& ]                end;
        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]);
: o. Q7 X/ ]% ?4 x6 S% j        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
/ _" m1 L7 w: W1 h) S3 v+ _' |# O; r        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
' h1 [: H' a2 F. T" H  }        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]);
+ ]: a: l( U4 t* s6 I3 G  `# F# |# H        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
1 A+ H/ P) }, R& U8 d% m3 h        .materialflow.connector.connect(buf,machine);
9 H0 n/ I5 `. b/ n/ J) m       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 q* m5 H% [2 e1 L% J4 V6 j6 K! fdy:=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);
3 T9 v1 q; |3 Nnext;
+ A& O# M0 l! D6 ^( L' hend;