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

zooey

is
6 E  }+ j8 K" |( X' \9 h" j        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
; |* N/ U# P6 U% ~8 fdo
# e7 r- j6 _' c2 I7 a( o3 Z2 c7 x& f        current.eraselayer(1);
" G" G6 ~" D& ~6 ]3 @, v5 h% h       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
! ?6 ~3 q5 n- b7 A) \                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
3 M2 [% n9 o2 B8 w4 `                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
% ]0 K# M0 N- t$ D) p        machinename:=sprint("M",i);
        if existsobject(machinename) then
: a* r. }" v( }( l8 H7 ?  z                machine:=str_to_obj(machinename);
# E' K4 G, z5 A                machine.deleteobject;
3 J) Y6 u9 F; m4 \' b4 W  i# _        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
+ z( M" v+ H2 |                buf:=str_to_obj(bufname);
, T( [7 `& @! U3 i" @                buf.deleteobject;
        end;
        next;
       
: z4 E' j' B0 t; o& N        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ m$ R/ t. q8 k- T# g. @                --mark:=false;
3 s) M5 B3 K. f/ N0 ?                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
9 }) E. f% y' f# p. F+ G! D" d* F                then
) m2 Y* h  c. @/ M                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) y( b: ^: V& b% [9 v* `                        and activityspace[1,rows]<(1.05*y_max) then
/ p0 Q5 }0 C8 g* e7 ]( Y! d2 r; o                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
- ~2 J% d1 q0 |+ O" j: Y8 m* m                        else*/
3 _7 o: r) m. X1 y                        y_max:=y_max+dy;
3 O' T4 e7 L& p: O/ S                        dx:=0;
                dy:=0;
; Q) T' u2 b; g' m: \- p                        --end;
                end;
                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;
6 e/ |9 s: [& Q# B8 e, @. O, s4 x            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
4 e4 T% i; q9 J8 d                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
1 L& F0 B8 R; p8 u                ct:=activityspace[2,rows];
: h! j3 s# I+ [7 x1 v                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 D) e8 ]) }/ y3 C9 X& x                        end;*/
& G9 x' c2 j, W& h  S* ?& z        next;
3 V  D( i' C0 a0 a" D# |        y_max:=y_max+dy;
$ K( [* x" ?$ {# B: a: k- y  H+ `        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);
; K; @( B2 M& 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);
       
. X* a% @- g2 r7 Y1 P! `" l  N        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
; |0 C& |3 \6 Q; X& q& u                        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];
; ?3 F6 ]/ e% y3 ]  O2 E$ y                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
+ T$ K: q4 e3 @                                d_from_to_chart[j,i]:=abs(dx-dy);
2 J5 }$ C/ r( t8 Z$ J: \1 k: T8 F                        end;
                next;
  a, M0 D# W* g8 S        next;
4 I  r0 p/ c2 z' r9 n+ M. {% X       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% ^4 q0 k( L; O                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
8 X* c- e! Q4 g# z/ a                        lines:=lines+1;
$ m0 X6 M5 L3 x* V9 j  T                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# [. \9 @7 T/ A9 W                        partstable[2,lines]:=w_from_to_chart[j,rows];
. s: V/ ^3 {9 V" A" }                        partstable[3,lines]:=sprint("parts");
! h& E0 A0 T9 h2 P2 J9 ]                        partstable[5,lines]:=rows;
" u% e, N' U6 d, M' L- E% G' N6 Z                        partstable[6,lines]:=j;
                end;
        next;
9 k- c7 \8 K6 m$ V- @6 K. I5 F        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 O; V* l' F, H        machine.name:=machinename;标识符未知
: H- t. R- f. {) r8 a/ J        machine.proctime:=5;
  X6 X4 X* `1 e# S! }, z' Z        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
' W# G1 U$ S$ J; r, `        bufname:=sprint("BF",rows);
/ {8 i+ F4 [4 E2 `4 }$ ]. K: r3 y        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]);
9 J5 ~  ?& |1 F; A        buf.name:=bufname;
' ^8 v7 i. C' I* i+ l% d8 b. `        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
2 e: A1 U- b7 b6 M* s+ W        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
- \2 f0 A, t1 k+ B0 V# jnext;
: U' u1 B2 t$ W% L" u9 Tend;