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

zooey

is
9 P1 p. G& X  L6 S! J$ q        mark:boolean;
- l6 Q' i5 W' j% w" y3 ~" V        dx,dy,ct:real;
/ m# ]0 t: ?6 D' D    i,j,rows,lines:integer;
; c, D2 V9 [. U4 ?/ @$ o    machinename,bufname:string;
3 X' ]1 X  ?+ k+ N0 f# K) X    machine,buf:object;
do
        current.eraselayer(1);
       
5 _8 t+ D( m  G& f, y/ j8 A  Q. ?        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ c) x; i* D$ R. k* F  w                inspect messagebox("设施数目不对！请核查...,",50,13)
6 P' [+ R9 |& a! o# v$ v& x                when 16 then
                        print"yes";
                when 32 then
                        print"no";
/ y  B5 F  D8 s) X: c                else
) {* m, z( b; i! [                        print"cancel";
, z0 z' ?' {3 k7 ]9 O6 B                end;
                eventcontroller.stop;
        end;
8 x. J- S$ c* p- N       
        for i:=1 to number_of_machine loop
( z" \. [& t, [% b1 L% j        machinename:=sprint("M",i);
1 t  G, [0 Y, M5 P+ l$ G        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
, E0 X: {& O! R$ _                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
* }% v( n& ]* c+ }3 J                buf:=str_to_obj(bufname);
                buf.deleteobject;
% o# I+ _: x5 `  f+ f) X        end;
' w& K8 d# k3 C5 A$ Q/ i: {        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
. I. W/ O, d9 v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --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]
  c* T$ ]5 e' E- A) k' {                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
* D8 H! L, L8 Q& c7 ]# P                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
( W4 R! _) Z  V                        mark:=true;
                        else*/
! O- j( d7 d6 h8 m) D: C, ]                        y_max:=y_max+dy;
' H! C# @& R! p& n4 E8 m                        dx:=0;
$ O  b3 ]3 b! r) ~, v3 G9 p! L                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: M3 |. p" p# K3 ^( {# X$ c                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
; A8 `/ {3 w( G2 j) h                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
% z+ f& o& ?' r8 Y  b* l  Q& w                        end;*/
% G8 T- N( k* L5 k& c        next;
        y_max:=y_max+dy;
# @' e$ k, A% ]: a+ d        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);
' f* e/ c4 u+ C        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);
" P- Z9 Y8 _% l       
3 d3 X  U9 @. h, G9 \+ U" U2 c" o& ^/ J        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
) |6 K& h  f$ @9 ^                for j:=1 to number_of_machine loop
                        if j=i then
2 B, N4 x8 c& J, z5 P5 i  k4 [3 f# A                                d_from_to_chart[j,i]:=0;
) X9 |' C# N$ n: @# z. C, w8 s) O( ]                        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];
& J) [, V# Y8 ~- u% |                                d_from_to_chart[j,i]:=abs(dx-dy);
1 J7 B. P! L1 v% R& `; n                        end;
                next;
- \. V. e! I  u* R1 a7 Q' @0 ]! f4 R& q        next;
) j% |, {6 X. L* j- B9 Q       
& I5 }) W# L0 |9 h0 n  P# f& X        lines:=0;
3 V; Z) w9 q- p  Z# Y2 ?+ B) ^) b4 }: T        partstable.delete;
- h% l6 F6 Z/ }       
        for i:=1 to number_of_machine loop
# O% q9 d1 I+ g9 w2 x: s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* K& o8 L/ W  K6 A: d! k' Y) w% W. _                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
8 X  t* P1 n' Z, o5 h                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
& S# b4 Z9 H7 G/ c. N& m7 @: h                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
3 V- E* Q+ E+ U# P" ^- ~) G5 U        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]);
) a, c+ _3 j$ Q  \! t        machine.name:=machinename;标识符未知
2 l% {( y! z5 Y        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
2 j  {7 ^8 F  Y$ C, F; O1 c( Z4 b& I        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
4 u9 X; Z; I4 b& h* Q, W; n* S        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]);
$ t8 V0 N" {  E4 o$ M        buf.name:=bufname;
& _' h+ Q: A5 z- v( D$ X) `$ C        buf.capacity:=5000;
5 ?! A% h$ B' q! p* z        buf.proctime:=0;
& Q, w* l1 X: k" [1 h5 m        .materialflow.connector.connect(buf,machine);
       
- t" ?' d" C6 H( t: Z, g        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);
) w9 {  }+ U8 K( y4 }next;
end;