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

zooey

is
) R& f9 \( i4 j8 [1 r7 K( ^        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
' `$ H/ B9 ^4 o- G! }do
* @' g" U# G3 S) }        current.eraselayer(1);
* V# n7 M: Y( ~+ x  I# N       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) x  ^) n0 a9 _# ]2 }0 l                inspect messagebox("设施数目不对！请核查...,",50,13)
+ Q2 R2 {, P- Z% M                when 16 then
# B! K! D& A" V& D5 J                        print"yes";
7 I3 s. j8 x- N& ]                when 32 then
- z5 p* S- d  f/ G# n                        print"no";
; d2 L  C) l1 d8 e6 U! I- S                else
                        print"cancel";
                end;
, o# ]' ]' V$ U3 |                eventcontroller.stop;
        end;
8 ]2 H7 T( s8 p. }       
3 k& r5 u7 X, Y$ @. u% v$ x6 H- J9 I        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
- O6 N# O  N# N/ S" j( f8 `                machine:=str_to_obj(machinename);
                machine.deleteobject;
* Q$ A) n( B* h$ p) K% f        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
2 ]; f( B0 Z3 G3 W        next;
) `, `: u+ s* c# y7 ?       
; v  d$ V! I3 ?        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. e  B: n: C% q* [( n; N$ j                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
: y' F0 p5 v4 p- {; c9 Z                then
: W' M* |4 ^& c                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
* q1 ~! }* B9 F/ u% ]/ s+ T, D8 c                        and activityspace[1,rows]<(1.05*y_max) then
( B5 ?9 @4 K4 T8 C* K! F/ n  W                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
* }1 ~( b" ]( r: ]. ^  }                        activityspace[2,rows]:=activityspace[1,rows];
" e2 R. L3 C4 t& ^6 o0 L1 P; V8 z                        activityspace[1,rows]:=ct;
                        mark:=true;
( N% @4 `& ]: j5 n                        else*/
4 Q0 N2 @4 n5 o( b1 s- ?9 V) |                        y_max:=y_max+dy;
$ s# O( Y! Q6 V0 Q5 T                        dx:=0;
5 J* f4 ]' v" i- e$ J8 ~( {                dy:=0;
                        --end;
; T8 ?9 b! f4 I* N! A8 N                end;
0 f: R( ?, m) u1 `                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 M2 Z( A  s- c0 p5 _" p* o' A6 s/ g                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
; y6 b% f4 d* a            if activityspace[2,rows]>dy then
; _  Y% K/ o( |( [; U0 j                        dy:=activityspace[2,rows];
                end;
0 h2 _+ H: i1 c( o" \: f1 q                dx:=dx+activityspace[1,rows];
$ m9 ]. I+ h9 n* ]4 v7 d$ D& T                /*if mark=true then
3 Y' x7 g" @+ O0 r5 w5 M* W                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
$ c' C  B! F" \/ z                        activityspace[1,rows]:=ct;
                        end;*/
" }% A$ v" L6 V) p: p/ h        next;
8 E. V! t. b  A# R        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);
0 \# C9 @' t& R$ p1 t        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);
       
! A8 M$ E& E' ^7 f+ F        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        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];
                                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);
) O( [1 b& Z# ~- Z                        end;
                next;
" ?+ k1 C& }+ ~% d/ ?1 W6 m        next;
7 f8 `4 x* b7 a# C       
! ?! s- A; v2 N2 F: O* G& t        lines:=0;
5 I- `. M, k) Z7 y- V( R- I        partstable.delete;
) ^. |( b" A) S5 {- S" `3 P( H       
8 ?; A" B% I# `        for i:=1 to number_of_machine loop
3 ]/ \) w0 M# b) ?: O2 [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
4 F, k. e$ `4 P7 U  @8 m                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
. {' c$ S: T7 q' M; l( V                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
7 @3 O+ _5 d0 s, A3 e                        partstable[5,lines]:=rows;
8 m& ?9 {4 P: E                        partstable[6,lines]:=j;
( L- v# z3 `7 j3 a% V5 L5 y                end;
+ f* x# Q+ @/ n1 \) r& F0 F2 Y- V        next;
* ~, J7 ~# v0 |9 R+ p        machinename:=sprint("M",rows);
3 N9 W* o: i+ w* E4 v  F        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]);
, V) C; F! L# |  N( K* J        machine.name:=machinename;标识符未知
* e7 U7 ^6 S% n+ K, d0 k" L        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
7 G& n2 K( e9 M9 ~        machine.exitctrl:=ref(leave);
% W; q7 |" X4 O, w2 k7 t% _9 a       
& O, v3 ]% Z" b+ V6 \        bufname:=sprint("BF",rows);
1 ^. |/ N, g* s5 p0 ]! z7 Q        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]);
) f$ F: }0 W6 I! G8 l" W! g        buf.name:=bufname;
        buf.capacity:=5000;
6 }9 m) f5 J! `& Z+ N& n        buf.proctime:=0;
) ?+ C  Q3 [1 e6 Y8 M/ G        .materialflow.connector.connect(buf,machine);
; x& R; `8 A( }' Z- V. }' d       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 W3 p8 @7 d7 b8 r7 Ady:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
+ {( R  a, f/ Bcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;