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

zooey

is
0 g* G2 s) X+ K( Z3 O) N  ]9 \        mark:boolean;
$ U/ P, v2 s# Q( I        dx,dy,ct:real;
    i,j,rows,lines:integer;
$ A1 V2 |: R% G: o# w! p) H4 X    machinename,bufname:string;
5 N% @: M- o: j- C/ W0 P  H0 f8 m$ z    machine,buf:object;
- @$ D: b( Q9 T4 G& ydo
1 P5 Z7 H) V9 ^7 H, h( H- n, _        current.eraselayer(1);
) U; f: H, m9 z' d" p* h       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
  J  n5 o4 G$ |4 _6 v( X; R1 x                when 16 then
" H! p. p9 \- L5 }% n                        print"yes";
0 ]1 j0 v4 I5 O                when 32 then
                        print"no";
6 I0 B/ J+ l" ]/ @) l* q                else
                        print"cancel";
                end;
/ f' t3 e+ z: {, z                eventcontroller.stop;
4 R/ q. E* N/ x2 W2 L        end;
& v% h7 Y$ `' B       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
. A9 H- _( r% Y; `, ]( C        if existsobject(machinename) then
% x  q7 d  z8 H2 S                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
1 z( }4 s9 c5 f8 w# k0 |                buf.deleteobject;
  _2 [( X  L" _  e7 M        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 T4 |1 ]! ~( I- [: q7 F                --mark:=false;
1 e8 x; }' D$ f7 t% g* t6 A                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*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];
( W0 W4 G* I- t( e* N9 G6 S                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 }/ @7 e1 M5 m7 R                        mark:=true;
( }7 \8 k" S% V7 {3 g0 V" T0 ^$ F                        else*/
. B) G  V' P: q/ D                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
+ `( ~2 z  x. d+ j6 Z* L                        --end;
                end;
& ^( p2 N( t( w* v% \+ j- U/ Z                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! y% S$ k  k0 D                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
& Y6 }5 @' n  F& @- n, ]- ?                        dy:=activityspace[2,rows];
9 v0 j% @# @% L4 X1 _                end;
                dx:=dx+activityspace[1,rows];
% T- ?# L1 X) F( R                /*if mark=true then
                ct:=activityspace[2,rows];
9 ]* ~8 S6 G3 W8 Y: @! W                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
; q2 C+ x0 ]0 {$ ]2 p; A' }                        end;*/
        next;
        y_max:=y_max+dy;
% W1 Y  d+ z% z4 o9 b. }9 C        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);
1 A1 r& f7 z, }& E       
3 k4 t; K& l- _        rows:=0;
        lines:=0;
% n  q7 _& v. Q8 H8 Y2 ]        for i:=1 to number_of_machine loop
1 ~5 A. M6 q' K6 r/ r# x                for j:=1 to number_of_machine loop
7 z6 u) t& C) X( a3 b# t1 c                        if j=i then
+ l; `* N( y8 {                                d_from_to_chart[j,i]:=0;
% v$ K7 ~3 i1 `+ s' U                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* a' d7 w# @' x& D0 {* q                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
7 N( D: X$ r8 b% L4 A! J                                d_from_to_chart[j,i]:=abs(dx-dy);
/ y- O! E" B! R/ t& y9 C4 V                        end;
  p. E/ Z& |5 Q0 p                next;
        next;
# ]& F" K& Y) C/ o% S+ s" c5 H       
6 o" ]' D% k3 _. v1 I3 r$ s/ V6 ^        lines:=0;
! p) z( t4 F# C+ o) C8 P' a        partstable.delete;
       
+ d% A7 A1 L, a7 c7 j! C1 o( q        for i:=1 to number_of_machine loop
" b; b" o1 t% e2 k' x                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
6 F4 m. E/ n6 d! t1 u7 K3 \                for j:=1 to number_of_machine loop
0 ?$ A& T+ U# m% w. s: L' d                        if w_from_to_chart[j,rows]>0 then
5 V% o6 i/ X, N                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 w+ I" b: \2 Z' M" Q% t9 n                        partstable[3,lines]:=sprint("parts");
9 N: t- ~9 c$ ^% H, T. E                        partstable[5,lines]:=rows;
5 O2 d4 S9 T! X3 M' W                        partstable[6,lines]:=j;
0 Y2 b$ P$ ?* \' C) f, R5 G- R                end;
: d, @5 G) G$ S# n        next;
        machinename:=sprint("M",rows);
! _3 u/ d7 \5 z3 i* m        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]);
( D. |4 X) g/ b4 C3 g9 w; p$ Y& C" R8 @        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
& i2 |: Q  q7 S/ i2 @        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
( W+ @$ |. {) t2 G        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]);
) G2 |* l/ u# F: V( @& C; a        buf.name:=bufname;
3 k/ N- y4 w0 W3 I9 k7 B! ~        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
; ?' e4 _. a; m% Q; l! d       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. ]* h9 f6 E# U+ D3 Ndy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
* t: O2 l! b4 N! q4 O3 v6 Jcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
% f6 v, Z% V  g+ gnext;
end;