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

zooey

is
8 |+ d! H: b- u7 n% P( h" _        mark:boolean;
7 X( E( b% c& z        dx,dy,ct:real;
    i,j,rows,lines:integer;
4 Z  k1 O8 [' o. Q    machinename,bufname:string;
. I6 W* E4 R0 G/ Z5 n4 x. L9 ^6 P    machine,buf:object;
. F% P) s; c- }3 R4 Wdo
        current.eraselayer(1);
       
1 m, Q" B+ b+ k# w* ^        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
2 x" D8 v, B5 M& V) d" {" {) F9 P                inspect messagebox("设施数目不对！请核查...,",50,13)
, `- ]! }; P6 C* A, @                when 16 then
. u- A' p* l3 n2 w, M, v                        print"yes";
                when 32 then
" _" ?0 ]7 Q7 X# R* ]                        print"no";
                else
                        print"cancel";
2 V5 B) ~! e  A9 ^- z/ ?; d' n                end;
                eventcontroller.stop;
        end;
       
+ G. ]( A% Q' i; w+ ~; q) Y& u& `2 V        for i:=1 to number_of_machine loop
6 @' [7 ^  g+ o' s        machinename:=sprint("M",i);
" i" G7 L. i/ q8 L- O4 F, t* T        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
' P! Y, w+ _! ^5 I                machine.deleteobject;
& _6 p6 R+ l3 k, V        end;
8 Q" \, D6 ?! T6 W* R! o        bufname:=sprint("BF",i);
5 O) h" ?: _' r+ A3 Z        if existsobject(bufname) then
7 M6 g2 g: I3 E3 l! z, E                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
# T& X( n! v5 q$ L  h        next;
       
        dx:=0;
- g2 u* W9 O0 y4 }: V' X* @: d# X        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" d( e9 b( @' \# f% c' \3 |* |                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
* W' }, i5 R$ B  I+ o& m2 L                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
, e, [; S) q5 B* S0 _  U2 S& \0 l                        and activityspace[1,rows]<(1.05*y_max) then
# b( b7 u6 a1 r                        print activityspace[1,rows],",",activityspace[2,rows];
# z0 [; H7 U, P' O4 T                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 M3 z; M8 Q  e$ C! s2 V0 P$ s% O                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
7 p% ~: v" \' y9 d; V8 r% c                        dx:=0;
; t( u2 g0 l5 `% T5 M                dy:=0;
1 d( H% V8 o: _; M9 m8 T! X! [* ^& I                        --end;
/ L+ n  o, F& M2 H& V                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. Z# ]+ e* N( V" V; [                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
- P+ A0 N( l1 x1 w8 \1 }            if activityspace[2,rows]>dy then
3 d$ P; X7 d$ Y# ?, t                        dy:=activityspace[2,rows];
                end;
) [" L! ~' o" B- k+ S  b6 [: V                dx:=dx+activityspace[1,rows];
) G& D* S2 q# e4 S. ^% X9 z                /*if mark=true then
                ct:=activityspace[2,rows];
1 r0 U" W6 l; M+ |1 m% i5 }! r4 U9 _1 d                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 h8 O8 [% q$ z8 h/ r$ E1 s                        end;*/
7 @$ W. U/ _0 }7 Z        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);
) d. D/ \! G, L3 S  q% [1 f; b        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);
* q+ s/ l& g# q       
2 J. X% ~1 o; s4 F9 ~( D        rows:=0;
, j, s$ e2 Z) |2 S9 J        lines:=0;
$ T6 o. W# }" @4 l        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
1 z/ L' @1 b5 X2 B  E3 t' o5 \2 A                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
) @8 D" u, g4 K                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
3 f9 i; T) l9 z. |0 q/ K( U                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
* y+ i; F, J! ?# K                next;
        next;
       
  F! e1 p0 i7 |% h        lines:=0;
# V6 n& q7 K( u        partstable.delete;
6 s( [3 J) o" u, p# z: U; ~       
        for i:=1 to number_of_machine loop
; V) T$ }3 _# s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 Y- d. B+ U( U5 g# T# ~" D7 `+ N+ o                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
+ u4 w7 B+ J" y2 v                        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");
9 R2 N1 G4 U! p9 M) {5 K) \                        partstable[5,lines]:=rows;
; ~% j0 _0 Q  M2 q4 r. u8 s                        partstable[6,lines]:=j;
% B) N( g( I. N/ I6 d                end;
        next;
& l# @3 r1 W/ }$ u2 v/ |& }1 V6 W9 }        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]);
8 M( g% O- U# u* v        machine.name:=machinename;标识符未知
6 L( [, _! r9 f, ~* N; H5 }# [8 T' f        machine.proctime:=5;
9 M5 l5 v* r6 a7 X+ Y        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
& d+ ]2 c" `" V2 b$ e3 ?' D; i        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;
7 V0 T3 g; m1 ^. }0 r5 N        buf.proctime:=0;
( h$ A/ j. k1 N# e; W! \  `3 W3 t/ X6 @! g        .materialflow.connector.connect(buf,machine);
: z9 X  Q9 Z0 u, _% n0 ^$ H       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. z; p# H! W+ I( 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);
next;
end;