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

zooey

is
0 m+ H3 e( M; D. g/ r- L        mark:boolean;
! E5 j9 D1 g$ Y* m/ `        dx,dy,ct:real;
( D8 L) z  f( h2 ~% d/ m4 Q' y    i,j,rows,lines:integer;
9 ~5 [2 c( i4 \# }) _, v5 M    machinename,bufname:string;
+ x- x6 j* X( S  {! Q3 k    machine,buf:object;
do
9 o* ]# c+ y- t! L. y# w* T        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  [6 [. t5 G. r- Y                inspect messagebox("设施数目不对！请核查...,",50,13)
: e3 p1 D) x; _+ B4 i                when 16 then
! k1 ?! }6 c- Z& C% m! v6 \                        print"yes";
                when 32 then
                        print"no";
( j' ]1 U( U. R8 s$ e                else
, k4 R9 U3 a$ |3 a) t5 }$ D                        print"cancel";
' k& G0 ?) \7 Q* [                end;
8 b8 Y% t( v9 Y/ z" }                eventcontroller.stop;
) M4 B7 N2 u. ~- P  `        end;
3 D' g( V+ m( ~/ v# w4 A$ q7 M       
        for i:=1 to number_of_machine loop
; C$ A# l# n: I" }& A( Z: x        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
  A( T- q5 _; M4 i! }        end;
        bufname:=sprint("BF",i);
, u, R  q/ w. H- I' e) `        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
5 a2 ^7 u, X6 n5 _5 Y3 I$ X        end;
- Z' @. _8 v) @' J, p        next;
6 M/ g% g9 i4 P! a; x, S       
        dx:=0;
- y7 K" |4 V, w  L$ @        dy:=0;
2 {7 x$ H  s$ r        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% k1 y5 N: T! w* q: P                --mark:=false;
6 |. J; y6 r) p- y6 k/ l                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, ?/ T9 G3 a8 m/ \7 R                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
# k  V# t: }8 [/ n4 v                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
1 o9 I- J3 {* i% M                        activityspace[2,rows]:=activityspace[1,rows];
& F- t" j) e) K( `0 t% D                        activityspace[1,rows]:=ct;
, E& b6 _9 |$ u- P6 Z2 i                        mark:=true;
7 u. P% }7 H' `2 t                        else*/
" g. K6 m; R2 m1 b! W; O                        y_max:=y_max+dy;
                        dx:=0;
7 R$ a3 }$ c, p/ N( i2 e3 c" `                dy:=0;
                        --end;
1 S3 ?5 s0 q* l9 A: a, C4 k                end;
% u! d. q% t, t, }                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;
4 n" d) Q  ?: B2 p- Y) _                dx:=dx+activityspace[1,rows];
                /*if mark=true then
* V5 v' h* R5 a+ s                ct:=activityspace[2,rows];
2 ?! H6 Z- y6 j* l/ R+ h                        activityspace[2,rows]:=activityspace[1,rows];
2 g8 r& @5 a% \, l) m: q                        activityspace[1,rows]:=ct;
                        end;*/
. F! T' E. O3 V3 r        next;
7 }( e! }. o- A4 r, o* U$ A, _        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);
% Y; q! `+ e) p6 ]2 @4 g+ J3 }, f       
( G) b6 A2 r) f  f- P4 V6 b        rows:=0;
        lines:=0;
% B* ]( h& V2 L) t. o! T; C& b* I        for i:=1 to number_of_machine loop
# Z3 T7 V0 D) j  _/ V, V# u1 d                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
' m5 V/ [  z% a- u                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
/ O4 d0 K7 i6 J! V  {* x* j                                d_from_to_chart[j,i]:=abs(dx-dy);
) V0 f$ R$ _$ D, N" c                        end;
                next;
  E1 q1 a- d5 a; L3 q" \# {        next;
- R  K+ x0 L3 f# Q6 c* }       
        lines:=0;
( {$ i8 Y3 a) b7 h        partstable.delete;
       
" H8 _( O  j0 K: B7 L2 k+ P        for i:=1 to number_of_machine loop
0 k; _$ d& a" d9 ]  q/ e4 i, X                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
/ }# O4 V' m2 v4 G+ V                for j:=1 to number_of_machine loop
1 U- e- K5 k. T( N  Y- P# y                        if w_from_to_chart[j,rows]>0 then
- q- n5 o: V1 \) |; ?6 ~- M, h                        lines:=lines+1;
+ ^* l& o& e1 {/ v: N; L& Z; g                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: s: ]1 w% y1 b) O. M3 Q                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
9 n/ C) r/ g7 c1 H2 u+ O                        partstable[5,lines]:=rows;
$ A' d0 M. M4 {: z5 p# u1 ^                        partstable[6,lines]:=j;
                end;
8 Y1 O6 R( \! F9 W+ U# t: o        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]);
        machine.name:=machinename;标识符未知
9 b  o/ F- g6 U) ^  c        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
( ~' v+ n7 j( E+ i        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]);
  i" u8 n2 p8 K        buf.name:=bufname;
2 `- y: M# E( T: h9 H, U) \        buf.capacity:=5000;
. N6 h( x: }* r" p        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
  |  j' i6 w* D0 G. J       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, h0 M% U( ]* Vdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
- c$ M0 I7 L# O, S8 t. z6 _current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
. v- g% W; Y& M+ f* E7 K0 oend;
2 |  B8 W4 d# ?1 m& ^9 {. f