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

zooey

is
" Z( m6 u; J# Q        mark:boolean;
3 E6 e* d4 L# C6 O, \7 Y        dx,dy,ct:real;
    i,j,rows,lines:integer;
$ [" v  i8 [  J& J& y; P1 X    machinename,bufname:string;
5 p4 T  p5 t6 g( @    machine,buf:object;
$ W8 N- l7 Y" i! N% B8 O8 Xdo
1 K" I1 ^% B' ]* ~4 V        current.eraselayer(1);
       
" G9 v! H5 A# S7 t, z8 P        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) h  M; X: @3 V7 ^! w/ ~                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
% a5 f' _0 ~" z                end;
6 n: e  L1 T; s7 L6 T' A                eventcontroller.stop;
" e, `" F" b; g, x        end;
       
8 V- h7 j( v$ g1 b& n        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 Y, h7 s4 E) p        if existsobject(machinename) then
$ L( a8 j  l3 r' r1 A8 j+ S8 l                machine:=str_to_obj(machinename);
% t/ T4 ~: V+ k) S& N; d; {$ W                machine.deleteobject;
/ y" z% C& {! H4 S2 r        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
& l9 K; t1 ]. N" g0 M                buf.deleteobject;
, f: S3 E- q" {) ~* x        end;
& f$ U2 u* x. A1 M. O2 u2 ]        next;
       
6 P9 |5 N! X6 n2 i        dx:=0;
" `# e6 g4 ^& h        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 M8 n% |! }' k                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
; {9 I; A; Q, a# c) \: q$ [                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ s! J  u. L+ E, V  X                        and activityspace[1,rows]<(1.05*y_max) then
0 j7 ^) m' k' T$ z  @                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  n0 V) c* W: E6 I                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
8 a) |( P( f& q0 w                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
$ m$ n/ K9 y8 F, c. p7 s$ t+ Z                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
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
+ Z) L0 E9 `/ e                /*if mark=true then
0 {# o" G* }9 K1 ?3 I& m& r" i                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. n+ S/ p0 q* q' ?                        activityspace[1,rows]:=ct;
                        end;*/
5 }7 u$ O* z6 c) t7 u        next;
: A  g" [9 `% W1 D& y        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);
       
( }! s$ E7 l1 s4 e4 i1 I        rows:=0;
8 h' {/ B0 @) m: _% V0 k        lines:=0;
* y* Y/ {  q9 C2 e# _. P) R$ N6 r        for i:=1 to number_of_machine loop
+ k- v9 H% q5 N% B; G' J7 o. Y                for j:=1 to number_of_machine loop
3 G- ]$ X2 Z2 j9 o; V5 K! u2 k                        if j=i then
* B- s0 i5 l/ F, h0 W                                d_from_to_chart[j,i]:=0;
( F' a9 p+ T5 u! {8 y( j! g9 D0 L9 w- v                        else
+ i0 ]$ L/ G" k7 Y; n! I                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
; _- ]) T) h1 G* K3 p& q" O) g                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
6 _) ~; W) Y; F& t4 y$ P/ t$ c                                d_from_to_chart[j,i]:=abs(dx-dy);
. f! Z9 b4 P: e7 B                        end;
5 |& y, I7 F  N8 \: c                next;
        next;
6 }0 h- D9 }( d* g, T3 A) b       
7 |% W1 e: U+ P  b' t: B        lines:=0;
, }0 G# W$ a/ C; S3 x        partstable.delete;
0 G0 [' O6 m( {- f* r0 d% x       
3 w& r% w! w- r0 b, k9 A        for i:=1 to number_of_machine loop
. d9 Z6 u: q, E  B# Q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' \1 G5 d: M1 X                machinesequence[2,i]:=rows;
$ \* S$ f# r% r                for j:=1 to number_of_machine loop
% [4 Q- {7 d2 W/ n+ T, f' d                        if w_from_to_chart[j,rows]>0 then
! [) s' d7 n8 X0 M) s                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
$ {6 F' {; v/ P( |                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 A+ P- f/ I) }$ ?6 c' |0 c                        partstable[3,lines]:=sprint("parts");
3 r4 Z, a+ c" r) b: Q' E5 j. D                        partstable[5,lines]:=rows;
: A, n% n# Y2 r# c: h  Y                        partstable[6,lines]:=j;
% G0 Q/ d( b1 g9 n: Z% J                end;
        next;
        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]);
; V) O* L9 E! N! o0 i6 m$ p        machine.name:=machinename;标识符未知
4 g& Q; f/ a4 m+ \        machine.proctime:=5;
4 F3 x5 U8 T6 Z. Z$ o4 E" ^9 I        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
8 c' K1 o6 n4 f3 I1 z        bufname:=sprint("BF",rows);
6 L3 J" f2 d8 S) W8 t9 f  }        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;
0 L" P. T+ R1 G: C( x7 }( O        buf.capacity:=5000;
        buf.proctime:=0;
2 C/ l% H! e( l' d- p        .materialflow.connector.connect(buf,machine);
4 W2 M* K  ]8 r/ \, {! i       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
5 }# o! U5 A5 u/ _& q3 L" zdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
' \! x; t( I8 Xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
5 F, r9 \% o: _9 g# t# y; b8 Onext;
end;