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

zooey

is
) M5 `1 d7 H' F# a0 A! H        mark:boolean;
        dx,dy,ct:real;
/ i* b0 c4 P- a6 p5 _    i,j,rows,lines:integer;
    machinename,bufname:string;
5 Q# E, f8 H, X' Y3 A# h# u  G( Q- [    machine,buf:object;
do
        current.eraselayer(1);
/ U: i3 d& ?/ y* k" ?/ o# N/ w7 f       
: g' t5 u$ _" M& V1 L' y7 b        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; p7 e5 p% I- I' H7 p- u5 `% f                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
: P0 h" C, i2 ^6 [; |' I0 t3 o                when 32 then
" ]! W6 `: F! @$ ~* k0 P, ]! s                        print"no";
                else
                        print"cancel";
                end;
3 z  |8 n& `* u( R9 o9 @) t                eventcontroller.stop;
        end;
! ?! |+ \* @, u9 c" b       
+ b6 q/ _% l- o# _! n        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
9 b7 z* T) T/ g" W, d% d* R: ?7 d0 s        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
, {9 t" B4 Z! H$ u2 t0 |) }                buf:=str_to_obj(bufname);
1 X; m1 Q: ]: l$ \                buf.deleteobject;
        end;
        next;
. [. V" f0 b" s4 _       
6 X) C4 [$ O4 ^& X' }        dx:=0;
# M6 z  R6 J+ |+ Z; l7 E        dy:=0;
: c8 U6 y1 c* o- [6 Y( \5 C        for i:=1 to number_of_machine loop
! b( {+ a) D. O: T1 g- F9 X3 z2 ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 k% `6 C2 P, Q6 G0 d$ A* g                --mark:=false;
* X) B& v8 ]% J( `% f! x                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& A! G3 |( p- |& A5 S                then
9 ]. I0 ]8 M+ l( v3 B                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
* h. M4 x8 W! k, l. L! I9 r                        and activityspace[1,rows]<(1.05*y_max) then
" ?2 X) J9 f4 ]! x4 ]                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
- Y- l; u. \# w5 z; A; ]+ \                        activityspace[2,rows]:=activityspace[1,rows];
) m; i' {- f" G! `                        activityspace[1,rows]:=ct;
3 _6 M2 [8 O. H  L; d" ?+ t                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
1 _- F( n9 q; F! |1 k* s                        dx:=0;
                dy:=0;
( v* p" M* C8 a0 b& u( L                        --end;
                end;
* K8 C3 c( O4 ^  t8 a                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;
            if activityspace[2,rows]>dy then
+ q; p6 g& M; n6 A, L' d' V- G                        dy:=activityspace[2,rows];
. R+ i6 Y% F* l" Z2 o$ O! i                end;
                dx:=dx+activityspace[1,rows];
  C$ Z( o0 V: o: y5 \2 `# C                /*if mark=true then
& a6 R& }5 {" a2 Y                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
7 k" Z* W: M# u& z, u- S        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);
6 R; c7 J) E7 Y4 P, H  R        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);
       
( v8 n' s" I! w( ~( J; u        rows:=0;
        lines:=0;
* Q" n" P; T5 d  h        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
. A0 R/ c+ y' Z9 K, r                        if j=i then
: c" }  p7 s: C/ w$ o                                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];
0 G' a& {: k7 }, |/ p                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
$ E2 O5 f$ T% y+ e5 O5 |' X* k                                d_from_to_chart[j,i]:=abs(dx-dy);
+ b/ Y5 G4 X) }6 v. y/ Y                        end;
                next;
$ Q1 c* X* k0 n6 s: |) Y        next;
       
7 _2 o: V5 H  G- T" R4 C* l; |        lines:=0;
        partstable.delete;
) \- K" B) |) ]6 x       
        for i:=1 to number_of_machine loop
* E' h- q( ?4 w* r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ D" w0 k1 r2 w2 _# W, x" K, D& h                machinesequence[2,i]:=rows;
9 ]: l+ C) W  q/ i- j8 ^1 s                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
$ x" e1 Y0 d( K- T; S$ N4 c                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 W3 Y  Z0 V/ h: n1 c* [# N( y                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 j; L: F, R1 l. k+ t' `( o/ e( G                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
# F0 J' ~4 L; v1 K# p7 g                        partstable[6,lines]:=j;
: b' h" [4 l* [7 l/ [/ v" |                end;
0 Z7 E+ y3 b2 H2 i) C        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]);
5 H& S9 o8 C% E- M6 L& v) ?# g2 ^        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
8 j1 w/ y6 E2 }9 `, f" T        machine.exitctrl:=ref(leave);
6 x+ C) f& y8 A; ?! m0 O3 s- s, l; B       
        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]);
# g0 ?2 a$ ^- N9 Z+ L        buf.name:=bufname;
        buf.capacity:=5000;
. T$ T! {. q0 `* B% j  u% a        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;
# ~; M5 q. D/ k! u' scurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
" r; ?: c& R0 @# C) Hnext;
end;