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

zooey

is
4 n" v3 G3 L9 R6 N! \( `        mark:boolean;
        dx,dy,ct:real;
. ?" O' u3 K! p    i,j,rows,lines:integer;
9 D% `0 l3 t' w2 u: p7 Z. S; ~    machinename,bufname:string;
    machine,buf:object;
0 O, o+ r( r( J9 odo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
- r6 f* R4 z; t+ M                        print"cancel";
                end;
                eventcontroller.stop;
        end;
, S7 T: A/ H% i8 {$ q* [       
1 F4 }# Q% e$ G( u/ `2 V        for i:=1 to number_of_machine loop
/ b2 |  j, F4 M- x! n( B& _; [2 Y        machinename:=sprint("M",i);
7 M: j$ t6 K, P/ N        if existsobject(machinename) then
, w6 C5 r$ s  _) d/ p+ \                machine:=str_to_obj(machinename);
2 l* m4 w% B4 a+ {9 \                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
4 j( y! a7 ~" I) t% s        if existsobject(bufname) then
% ^6 J) A' p! f( d/ {8 f                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
; W3 x# H" @! J3 Q$ c        next;
       
9 Z, T2 G4 B' k  [        dx:=0;
        dy:=0;
4 ]6 |& e/ |1 M% _$ l* A2 X& ^        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, ~4 `1 `& d0 r; p4 Y                --mark:=false;
9 a  u  s! U% H( s4 M& m+ v                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
; |3 l& h# Y& x, }+ A" N3 K                then
6 k- u. u) l1 }, h                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 Z, n  y: D5 V# \) a+ n                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
9 r& A  f" F& b( {& K% N- X                        ct:=activityspace[2,rows];
4 W9 s  U2 X; R0 O* f                        activityspace[2,rows]:=activityspace[1,rows];
& T! U- p& g# ^$ ~3 e                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
/ q. h/ {* @2 x8 Z6 F                        y_max:=y_max+dy;
  w' t) g7 t2 m1 B! B                        dx:=0;
8 G# o! N" E. O$ z9 f6 s                dy:=0;
                        --end;
                end;
0 x3 Z# x5 O  R( n% l* C                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. Q# n6 R0 p+ b# I, W# s- X2 Q                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
) i' F% H) _. C; W            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
& P) w5 R1 n; ^/ L                end;
3 w5 ^) J- P! x# A# _                dx:=dx+activityspace[1,rows];
                /*if mark=true then
6 k( s+ n& M+ `8 F5 T& d3 P                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
2 m& N# f0 g) Y  v        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);
! c! e" T* z. D$ F- y        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);
% s' g2 l6 X. d) i; U, `' N# m       
1 m5 `: e0 l/ Q: l6 R* l        rows:=0;
7 s: R9 i) C, E0 r        lines:=0;
% s: H% i! R2 A- K& m% k4 C6 U        for i:=1 to number_of_machine loop
0 f) D! G9 `9 Q( P  m  ?# o                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];
  X! [; c9 @8 x# R- G4 s5 V- r                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
1 h- O& p; ?0 L  E$ Z        next;
  u2 i  t" _& Q$ \$ s  P7 [, }       
3 L0 p- y0 n: d1 s9 M        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
& f9 U3 M* v2 `% M# }% I8 J- M                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
9 w2 K9 `# y6 F                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- r  K+ M* C/ s' M1 U% ~6 k                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
% m. P, Q9 W$ W* W( e3 r                end;
        next;
* [( I9 N+ r% p0 ~- q        machinename:=sprint("M",rows);
9 q2 \' R7 j8 m1 J4 u9 f: ]; O5 N% y        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;标识符未知
$ t1 I! }' k2 j% E1 y& W' {; f5 e        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
! W4 W" W9 V4 [, \( Q        machine.exitctrl:=ref(leave);
       
' z  R' _, t8 h5 C+ b, z) @        bufname:=sprint("BF",rows);
/ K: }0 t! I+ ]0 k: z' d; Y0 ?        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;
; t$ @8 O$ z1 v- b( p        buf.capacity:=5000;
        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;
2 n7 }; s# O! |7 tdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
2 \1 H  ~6 i- O! X+ dcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
1 ^7 o9 I6 e2 f