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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
1 ~% [4 a) D7 u7 L' @; y. i    i,j,rows,lines:integer;
# D& t$ d, l" z8 W# f    machinename,bufname:string;
% r+ ?' C4 w+ l4 w0 D    machine,buf:object;
do
# [2 I) V3 x. @3 l$ Q' J        current.eraselayer(1);
% h0 E! L6 i, @% s5 _  G       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 [' O4 ^9 N6 X: z                inspect messagebox("设施数目不对！请核查...,",50,13)
" J9 a: S, h* c3 y* Q& h+ N                when 16 then
" H+ @* W4 Y3 A- _- n                        print"yes";
                when 32 then
; v' j5 B% q  ~; n$ _                        print"no";
" P& G$ f) X6 v; _                else
                        print"cancel";
- t- E5 e) k( X                end;
                eventcontroller.stop;
4 v/ ], H* V4 r8 ^/ ~        end;
       
  x/ X* R7 v- H6 Q! K        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
+ z$ Z$ M; H5 q* t( Z/ p  y        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
4 e* {* v4 ]% d+ h                machine.deleteobject;
( o+ g1 l9 K/ k& @, {, G* r        end;
; R; I& q1 |% n& X! M        bufname:=sprint("BF",i);
- F# _, c; y# q  r5 \/ h        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
! D  u7 W) P2 p                buf.deleteobject;
" `1 y  s( S5 Z4 }6 Y! Q        end;
        next;
0 V; l# a3 \, q6 I9 q6 x' L       
% n4 w. p: D# u5 e! O  O        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
! B" e4 o& B+ Y! }, O  ^& ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' o/ c/ Y0 f6 t. n                then
' _$ v" g4 S' h% h8 D/ c* h                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
& R2 r2 O0 D$ b: j                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 ?/ x; z8 z% U) p) Y) i( d                        mark:=true;
                        else*/
8 o2 p' g1 [9 [8 G( i% A                        y_max:=y_max+dy;
$ L. }( }. j" b9 [                        dx:=0;
7 T9 Y2 E/ X. V; p. J1 g                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
/ P* A% }3 X" @* x) h1 s( r% U                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];
( B7 R  c  |, e! \9 v) y( _! E                end;
1 ^: t! T9 X+ w2 a1 d" D& G                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
, B  q6 P$ b  t: v# ?                        activityspace[2,rows]:=activityspace[1,rows];
1 t8 r( H5 J" f  a. _                        activityspace[1,rows]:=ct;
2 [) j4 U9 D5 {* K                        end;*/
4 h8 l' ?6 i5 b8 a2 o        next;
; {" q+ ~. L5 R1 V# t        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;
        lines:=0;
7 X! F: }0 w4 Z        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
" g1 o7 C* U) G* z! ^" J& w                        if j=i then
9 V1 j. k8 M3 d0 x                                d_from_to_chart[j,i]:=0;
                        else
& S$ a: x6 b1 M; w                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
! _/ {' [% _; h( f! t        next;
       
/ ^' c$ E* C+ t* r- h9 b3 A) y        lines:=0;
+ Z8 {/ f" w5 g& N+ H0 L        partstable.delete;
       
        for i:=1 to number_of_machine loop
- M5 k9 b  S- }/ {                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ P9 k" T  r. o) K6 {% K                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
. Y0 X( c2 {3 |% H9 @0 R! m0 Q                        if w_from_to_chart[j,rows]>0 then
4 r; n" J. [# u9 i8 s' A                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  k1 D: r: q0 x& b1 p+ L1 g                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
, M2 M5 Y* ~+ Y6 i7 ~' w$ {! b                end;
; ^! v1 s3 j+ v        next;
        machinename:=sprint("M",rows);
% R! Q  @# e. \- E; s1 {2 a        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]);
, f- g$ |6 ^4 }+ l) P        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
% b( q! b7 U" b: ^       
        bufname:=sprint("BF",rows);
- ]5 T3 A0 [' x$ W' z        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]);
+ g4 d" @, V! n: i% T        buf.name:=bufname;
- w% l0 T" E, M' V( {8 I        buf.capacity:=5000;
$ V0 B- z2 P' X% |& J- O/ x        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;
! c. L" E& A" H6 x$ A) ndy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
% l2 }4 Q: ^* p+ K/ Wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;