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

zooey

is
1 S2 Z8 c% J$ N6 ]! F        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
  L. E1 ~, W/ T; }3 r7 |' K    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
! x3 r6 I' M" x3 w! W       
        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";
8 U& Q% E& p! Z! @' u4 U0 J                else
                        print"cancel";
                end;
  h5 N, O/ k1 m& O/ S9 E4 B                eventcontroller.stop;
0 @, V$ K, M. n6 x; p/ Q) @        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
0 N& L6 \! }6 }+ Q" u. R        end;
6 Q) Z/ L  h4 e3 _        bufname:=sprint("BF",i);
6 {( X! H' l" k        if existsobject(bufname) then
+ f4 V( ~+ y3 k" D  u( r  ]8 ^% x: ?                buf:=str_to_obj(bufname);
; c" e4 B& w6 [, \( t" [8 @) w+ S                buf.deleteobject;
        end;
        next;
  Y  J# U* {, n  g0 l! G( ^9 S+ b       
2 Q: e* {: u5 C( G" ^- h9 q. D        dx:=0;
( `, K8 v& x0 f- A        dy:=0;
6 y0 p4 E0 n0 I5 u8 P- R% r        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 I7 }3 }7 p/ V& M. D. D) ^( D  h                then
- q& G! ]; D5 G+ t) Y/ y. h2 l6 d                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
) ]7 i) T. ]/ ^                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
* g3 \( }% h% e  I5 H4 q* p                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
& K! e9 l7 R& [0 L1 ~                        --end;
                end;
/ e% O$ M  S2 j2 e- v6 y$ l0 U' x                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" G8 K1 P7 ^0 ?4 u2 ]& w* x                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
: B2 i! P4 G& w) m& g! O: ~0 r            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
. @" P9 X  P% q) @& `                end;
                dx:=dx+activityspace[1,rows];
: ]/ P) i9 g4 s                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
5 _5 R, z# W. |, K                        end;*/
* n* `; ~! k& ]/ l# D& ?        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);
+ {8 u; d# K9 D6 {4 Y       
8 [! Q2 d. p* B( X        rows:=0;
        lines:=0;
+ c% B, c4 }+ X9 ?( B  ], Z+ _$ Y        for i:=1 to number_of_machine loop
9 m: r  t& G1 R1 g' R  Y& P                for j:=1 to number_of_machine loop
+ p" u$ n- R* i                        if j=i then
                                d_from_to_chart[j,i]:=0;
/ F- R& O7 D) S! V# }6 {) e                        else
* v& b0 R& v/ \. r8 S                                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);
7 |/ p9 Z* s3 x8 W                        end;
                next;
        next;
       
0 I' B/ V2 v& N0 c0 _        lines:=0;
        partstable.delete;
       
/ o0 [* E5 D& Y8 _7 S        for i:=1 to number_of_machine loop
0 X0 j  X# s" `                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
( }$ j. h/ [0 U2 e% x% ~                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
4 J. {6 r6 I/ [2 O2 r                        partstable[6,lines]:=j;
2 \* {, s/ P- @, v* x, p! q                end;
+ f7 u& I# s6 T7 \        next;
5 y; |% _( t9 w* N9 t8 A0 T1 a: S' N        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;标识符未知
. m9 Y0 ~6 S' H; z; \7 U0 U        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
5 S$ b' L" [- V% j" A: H       
        bufname:=sprint("BF",rows);
        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;
9 d' R+ E4 b8 v+ s8 H/ [( [, O        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
, z/ D  Y& B: b8 c: ?3 d7 Q6 F       
2 K' a% l  [: n* G2 T  e7 [        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);
0 t( ]! ?+ f) m# o& ^* k- m3 {next;
end;