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

zooey

is
' Z: i$ M* `8 v, d        mark:boolean;
3 T" ~8 _9 P# B$ u( @7 t( N0 Y# s2 u        dx,dy,ct:real;
    i,j,rows,lines:integer;
2 z* c) u7 l* ?$ b1 t) ^  M+ D    machinename,bufname:string;
& m1 ]# Q! L- @    machine,buf:object;
do
        current.eraselayer(1);
       
' T, ]+ q0 d8 I        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' b6 _' u5 I$ z9 z7 t# |% L                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
# L. M' u2 ~% A) ]                when 32 then
/ V! K# s$ F! B, @                        print"no";
. I6 C/ i2 x; K8 |                else
' N. y( [1 G2 @. t2 U  c! f9 x                        print"cancel";
                end;
                eventcontroller.stop;
1 t) z0 s6 a7 C4 O+ E  x- e        end;
       
        for i:=1 to number_of_machine loop
+ o$ r$ q: P" e& g2 W        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
. B( T- A) p+ K0 J                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
8 H/ ~. y9 `4 L+ E        if existsobject(bufname) then
. N0 _! P3 m7 h" o% G+ f                buf:=str_to_obj(bufname);
& G7 _1 h1 @2 M- q3 z( n                buf.deleteobject;
0 G5 c+ |3 O' P# }        end;
        next;
       
        dx:=0;
        dy:=0;
        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]类型不匹配
/ h& M4 @+ b( U7 P- w                then
0 z) R0 ?6 h- t3 h. \2 R- E                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
% B, P/ v" y3 ~1 x* J+ C                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 c/ _1 i% l8 ~" C                        activityspace[1,rows]:=ct;
                        mark:=true;
0 j9 @% W: w2 g  \( p/ K                        else*/
                        y_max:=y_max+dy;
% z8 J; H, P# V# @# j) {; X4 \                        dx:=0;
                dy:=0;
2 U9 V$ V  b; l' Z                        --end;
5 E0 W2 k, N, E4 X2 v" O3 h; ?& i                end;
7 t- z' I) V: Y5 Y: 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;
            if activityspace[2,rows]>dy then
  ?( [5 y9 }$ n( a# h                        dy:=activityspace[2,rows];
                end;
* T; ~6 S2 K( ?                dx:=dx+activityspace[1,rows];
4 T) Z5 R, g& y. M* ~                /*if mark=true then
; }: S$ E- Z; y0 d4 W                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
3 J3 t1 P7 s7 }1 [                        activityspace[1,rows]:=ct;
                        end;*/
        next;
' \' a+ R) j1 X, K% h- p        y_max:=y_max+dy;
) i9 C+ V/ ]# c6 T9 E, u9 j/ u        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);
; m7 M' T8 Z% w1 w; ~        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);
! a, Z5 v5 ]! Z$ S4 h+ U       
4 |4 `/ e9 V# s9 U* r2 x        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
) _' G. z+ U* N0 A: u                                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];
8 o6 y) G) G8 S                                d_from_to_chart[j,i]:=abs(dx-dy);
% U) {, W* g* B+ o6 i+ U( e                        end;
                next;
2 @" d5 i5 R3 k        next;
       
        lines:=0;
        partstable.delete;
0 t- h5 B( \- k       
        for i:=1 to number_of_machine loop
% O' e. Y( x4 z$ R7 _% P% F& F( [                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
1 Q1 t2 I3 U! z# j# S                        lines:=lines+1;
: L1 v" L$ U4 E/ p                        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;
0 M& F/ d- @2 L                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
4 M* q% F+ [" L7 s- L/ a! G        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 }: d/ `  \( J. B4 T. O2 W        machine.name:=machinename;标识符未知
        machine.proctime:=5;
, ^# }3 a0 R! R; E, G* D        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
- G0 [/ ?8 ]5 t% w       
  @! q' \, i. m5 b        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;
. z' x& K4 I$ ^        buf.capacity:=5000;
        buf.proctime:=0;
8 x8 R0 p- I2 T1 W3 j; {' Z) B        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
1 i8 q& _+ S% O% v- Cdy:=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);
+ I- c1 O8 `3 n8 H& onext;
end;