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

zooey

is
* `, v7 Z3 N) I: u2 C6 i' W        mark:boolean;
        dx,dy,ct:real;
1 x6 L, r& P: O+ j* H    i,j,rows,lines:integer;
    machinename,bufname:string;
) P% k/ ^: B0 X* t    machine,buf:object;
7 e2 E/ X  n: r' ]+ v+ Y4 Gdo
        current.eraselayer(1);
, O2 J, J8 M- _: X       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* J1 {* d) N+ O& R                inspect messagebox("设施数目不对！请核查...,",50,13)
* Q2 D+ Y) ~) o3 U4 u" g                when 16 then
                        print"yes";
* ^8 x6 M$ t/ p                when 32 then
) t3 U+ {5 G, ~. g' `, T/ q                        print"no";
+ b) z4 e% }( i- \9 F3 |                else
                        print"cancel";
) V& _( C1 k& E                end;
' m, Q3 w6 e, H2 ^9 p; T9 l                eventcontroller.stop;
# a5 x2 l' e1 m" h) F( R( Q5 o$ w, n        end;
  Z1 Z1 B6 |1 a* \0 y1 d9 c       
7 s. d& T5 B, T" S. d# o        for i:=1 to number_of_machine loop
$ a4 m1 Q# ?+ d+ N/ v, I        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
" C3 k# R4 g7 d( `$ V1 P4 L" S        bufname:=sprint("BF",i);
        if existsobject(bufname) then
0 U+ y% J% K: r9 x9 ]                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
4 F# C2 a+ n8 L; T4 [0 g5 B        next;
' C6 \$ ^! I  r" T9 c$ [- d       
        dx:=0;
" ?3 y$ m  I: ^1 W% Y5 ?2 D, _        dy:=0;
        for i:=1 to number_of_machine loop
( ]4 _3 [5 x4 r0 B9 G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
; w" v5 S' y0 }                then
- C9 c% k/ H  ]7 l                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
( J0 v- [& `7 A! v                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
6 ^/ X5 v0 Z) T/ t, A                        activityspace[2,rows]:=activityspace[1,rows];
6 n2 ]5 \7 \' ^% t" [                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
% h! M2 g, q7 G9 j' O" D$ B                        y_max:=y_max+dy;
$ ?% ~* e' F- R: t                        dx:=0;
                dy:=0;
4 [% \0 |# p, o+ z$ l2 \, C                        --end;
                end;
1 r2 E1 a. [( y( i& v                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
  k5 o7 ?' r2 V/ S' @4 n                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];
6 w( I3 c8 C" S                end;
( B8 F) w: B7 s5 @) P" x  S                dx:=dx+activityspace[1,rows];
                /*if mark=true then
/ F7 ~, ^) u' b. t& }" Z, E  x' a                ct:=activityspace[2,rows];
8 O& A" d: ^) A                        activityspace[2,rows]:=activityspace[1,rows];
: S& L% X  R7 t+ j$ i: w                        activityspace[1,rows]:=ct;
4 E+ [' R1 R: f                        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);
       
        rows:=0;
; s$ m2 J: h4 F0 M- a        lines:=0;
5 l- j3 C% E8 m0 \/ c2 d! Q        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];
# I7 c2 {: a" d" {1 {; b                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
" T' i$ _) N' [. ~                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
        lines:=0;
5 f% l/ D" d# B! E/ V        partstable.delete;
& p0 }" Q. R' f' q0 E2 Z$ e( a6 ?       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 C9 f$ K; i2 ?! e& u                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
6 h" h- `9 k% w/ ]* m                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
, T& ~! z' X8 c  I! L                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 L9 [% O0 ]% ~$ P                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
- ^& t0 q3 g! H( b                        partstable[5,lines]:=rows;
4 p% z3 K7 [, O8 S8 ]                        partstable[6,lines]:=j;
                end;
1 L8 `6 R, f% L# z        next;
) V  T- \8 @5 ]' S! h5 L        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]);
        machine.name:=machinename;标识符未知
9 G/ \* f! m1 B7 q5 _1 A/ \        machine.proctime:=5;
1 p, q4 w% \+ j  P6 _, b        machine.label:=activityspace[0,rows];
  t& V( [$ n6 T+ g. ?: m& \        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
: @. h2 E5 z- t- e        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 r: U3 b$ ~* Y        buf.name:=bufname;
  u7 X4 `# }: N4 B4 F% n5 L( ^        buf.capacity:=5000;
        buf.proctime:=0;
7 c0 J5 }' H$ O7 w4 M        .materialflow.connector.connect(buf,machine);
9 `' _; m- T6 E0 J# Y       
+ O/ t$ p! h+ M: z" Q( ?8 Y: n        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 e# m/ z. @6 P; O; A+ ndy:=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;
3 h" ~3 W  j/ w9 h8 R: cend;
8 \: X) O; ~( Z$ l