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

zooey

is
$ ^) ]- w, V7 L. r+ M( a! h7 g        mark:boolean;
) ^+ l* ]) F+ @3 B        dx,dy,ct:real;
    i,j,rows,lines:integer;
; s( z1 S. f) p6 o: y    machinename,bufname:string;
    machine,buf:object;
do
7 ^3 E% x' E* ?! k; t7 w' n        current.eraselayer(1);
; e: s5 d6 ~8 `9 }! I- \       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) K. d) [# n2 g" D" _                inspect messagebox("设施数目不对！请核查...,",50,13)
3 d* b6 K# _& n: e# C8 ]                when 16 then
                        print"yes";
1 `; i! S6 p% [                when 32 then
                        print"no";
+ e( {$ p0 r, Y% [; W                else
* R& B! B& N8 Q                        print"cancel";
                end;
/ `6 U% C/ c- q, ]* M' N                eventcontroller.stop;
        end;
( c4 S5 M; Y! u       
; z+ C% W* J2 T: {( d- D, [3 k        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
. z1 m, l$ T3 \  ~+ g7 {2 l" u                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
; w* O) m4 j5 s6 I! Y% ]) h        if existsobject(bufname) then
$ R' Y7 I9 F: f8 \$ n6 |- V1 X                buf:=str_to_obj(bufname);
2 C+ [8 \8 V6 U$ a& k( a! g                buf.deleteobject;
( R; @1 u' g& q' W# _4 A        end;
        next;
       
        dx:=0;
        dy:=0;
8 y+ w  g$ b# S) Y$ v  O0 Z2 w        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ h, B( X9 K2 S! f% P6 x                --mark:=false;
6 E7 J" ^2 g3 S1 b. U                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: K$ O/ \1 G) m6 x; [3 [                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
; h9 j8 h9 @$ P7 X                        ct:=activityspace[2,rows];
8 }$ E+ J4 n, Z                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
# m2 K% h9 e2 t) C. Q+ j& N                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
7 J# s& U( N- L2 X( i                        --end;
  Z0 M2 S( x* f( o7 z                end;
                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;
) m4 I' v/ V( l+ H2 W% t2 m            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
" d) U5 P! V1 F; U5 v, H# H                /*if mark=true then
6 |2 Q7 J0 K$ k& o: [; X2 a  `8 g                ct:=activityspace[2,rows];
% L" F' ]# {$ B: j: Y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
# H$ r( o: ~; c8 `: E, s        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);
! [7 E& \* X# Z4 G+ ^; }        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);
. i- y, b5 O% L       
0 J* Y8 {1 l* e& B        rows:=0;
% S; c* U7 U) b+ O, V' ]% j$ s        lines:=0;
. X9 Q0 T& ?9 B9 E* A        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
- j( @& A( v7 n3 g/ p& ?/ ~5 E                                d_from_to_chart[j,i]:=0;
                        else
5 n# d8 s6 K5 r; ?  ?, ~                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
7 y  s' f8 ]. s                        end;
/ r3 i; \! `3 w; q                next;
        next;
0 w% h" {3 H) ^8 G7 `0 K$ r7 I4 s       
        lines:=0;
) Y; U( V4 q- l; U7 m* S  F% ?8 k. D        partstable.delete;
1 F  |5 T$ Q$ l& _       
        for i:=1 to number_of_machine loop
                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
( {9 n7 S# ]6 u' l2 B( u2 P3 |                        lines:=lines+1;
8 O5 L/ f% ~$ c                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
3 a3 ?0 I) W( @4 ^3 H& n( z                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
, p' _/ o% X- d* E( f* P                        partstable[6,lines]:=j;
8 m3 O! A( A& W+ M6 a                end;
9 \! }8 I+ ?$ l* z6 N        next;
        machinename:=sprint("M",rows);
# F( s1 A6 ^( H5 O* k4 C        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;标识符未知
        machine.proctime:=5;
5 ~" W' O6 R. F: ^3 g        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
0 z1 u% g- x6 h0 E& ^       
        bufname:=sprint("BF",rows);
8 z  X1 D5 t# Z* F  ]# q9 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]);
        buf.name:=bufname;
: k( G! y- H2 t, A2 @        buf.capacity:=5000;
        buf.proctime:=0;
0 @3 d2 `5 d0 e! d) @( R7 [        .materialflow.connector.connect(buf,machine);
       
' v3 b8 Z5 b' U2 c% \) I4 H        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ y- C) I; q' O1 L5 x2 Q0 a7 f+ hdy:=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);
next;
, J4 g+ F! K' o  Z8 k$ I+ L) Mend;