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

zooey

is
# a1 z: u1 A/ N' v: D' g$ o        mark:boolean;
        dx,dy,ct:real;
7 h2 Y) d7 L4 _; L* c- M4 c7 e9 B    i,j,rows,lines:integer;
/ D4 A) p! V8 q- W2 j$ h* q/ D; L& V    machinename,bufname:string;
    machine,buf:object;
* [) S; N6 i( y" odo
& X2 I; G# j  z( t1 h2 a2 x        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)
. h+ p  Q- E  F9 Q/ T7 i                when 16 then
                        print"yes";
                when 32 then
  \7 n1 K. F1 o, q$ `                        print"no";
6 ~' j+ o: }& _! \& v1 e9 L                else
                        print"cancel";
- Z7 R, V  w- \0 Y$ N7 A) d5 e                end;
# J4 r& v8 B$ ]  I                eventcontroller.stop;
% r! @/ o! U. s/ {4 `- n" t        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
& C* m0 {- O, F+ l5 e                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
& x7 _! l* O0 n* u        if existsobject(bufname) then
' S0 _0 C$ }  X: C5 l                buf:=str_to_obj(bufname);
3 z5 v3 `: ]: P* M1 l- d1 l# E- A- ~' Y                buf.deleteobject;
        end;
: V- x9 V7 g/ U" f2 z' @        next;
3 W0 ?) Q+ H4 K5 [. e) y, k  @9 y       
        dx:=0;
        dy:=0;
$ l- ?) @* ^, k! m% R1 I        for i:=1 to number_of_machine loop
2 h6 K, k: n$ t2 n; m% G$ P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; N) r. X) e; W4 u) Y% F                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 H  A+ ?, K2 e" a& G- j                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
: [9 o) P; Z+ I' @4 g, I8 h                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
& J6 G9 ^3 I% ]* \9 ]                        activityspace[1,rows]:=ct;
                        mark:=true;
: m( K6 e2 m. ?4 N; X, X4 Q                        else*/
                        y_max:=y_max+dy;
0 w. F" ]: S+ u/ P2 J                        dx:=0;
                dy:=0;
                        --end;
1 v; X7 v3 g4 L8 X( x/ D" Z                end;
* X! h; X2 M0 `0 X2 m" I4 l5 l: b                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;
* \( u1 ^) O0 ~7 |            if activityspace[2,rows]>dy then
- w; Y0 |5 @$ u                        dy:=activityspace[2,rows];
                end;
9 {, B$ z. K5 c! j                dx:=dx+activityspace[1,rows];
& X" G% [$ ?  E: e+ x/ f! G                /*if mark=true then
: \* C" o* \6 R7 g                ct:=activityspace[2,rows];
  N& M8 e$ g& \                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
' D4 v% R+ ^2 [. E        next;
( L8 d# P, q! R1 A( 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);
        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);
       
5 l. v' }8 H1 o- R5 q, a        rows:=0;
3 g2 a) X( {" @$ p2 O" m5 C+ e        lines:=0;
. C/ a5 l0 \: E  m( \' m2 i        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
  v0 Y) z2 S, f7 `" K, P                        if j=i then
- m( Y) a/ P$ Q3 e- v0 G8 y3 t  @                                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];
* Z/ o+ N6 }- i                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
+ t, a* t3 S( L& S: N        next;
       
        lines:=0;
        partstable.delete;
  N$ V  w7 z1 S& a4 l       
        for i:=1 to number_of_machine loop
: D& X. f8 V3 \5 |                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
' x. b3 M8 H- ~; T, Y9 D                for j:=1 to number_of_machine loop
' U! n& b( Z# }  O; j0 M" D                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
! f3 r" A5 W# k                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; V  d7 D5 B) |8 n+ p* p/ H                        partstable[2,lines]:=w_from_to_chart[j,rows];
, b3 F* b8 ]+ Z                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
; v2 ?% A: f1 L  T, c+ w$ o                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
* m" @+ k; X8 |, ?        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 @- u4 k% \; o9 m        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
0 s2 p" F. i' x- k# H' S        machine.exitctrl:=ref(leave);
       
7 }' d0 U; P6 h" c: q" O6 z, U        bufname:=sprint("BF",rows);
5 ?: u2 A1 O& Z+ y" W) M        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;
        buf.capacity:=5000;
, e4 @* _, X- L/ U7 Y- P        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
5 H; {7 p1 D+ ?5 t: M        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;
! P- ]0 H' ^) y) pcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
& B- y7 |) v9 K7 Y% A/ r! C5 p3 Q