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

zooey

is
        mark:boolean;
/ {3 Q0 n* H% _3 I( |  E3 A3 p        dx,dy,ct:real;
& L, Y: ?! E) D1 u    i,j,rows,lines:integer;
! o  P7 k6 }" ^6 f( s) I) y    machinename,bufname:string;
    machine,buf:object;
# z+ v0 y+ Y, e9 c: Udo
        current.eraselayer(1);
$ X  `* {+ q0 a) w& E; J       
( C7 c* n1 l( Q6 Q# k        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
* m( I9 Y2 D! V* y                        print"yes";
, a' Q+ f3 S. ~/ s8 T. B+ U7 j                when 32 then
' D4 J8 b& V% f                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
6 I* @( N8 n' t  c2 z: m        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
  v3 K2 |4 Y+ `1 ]4 \        if existsobject(machinename) then
5 O5 R( u) E6 Q" U$ _: _% X, F                machine:=str_to_obj(machinename);
                machine.deleteobject;
$ ?" @0 a& q( a% |5 f        end;
        bufname:=sprint("BF",i);
) A/ |. i7 ~5 d        if existsobject(bufname) then
' J3 t/ ]* o( t$ i/ N- K5 [                buf:=str_to_obj(bufname);
' a  `$ p" [8 U$ H+ q/ p7 h# a                buf.deleteobject;
        end;
3 S( b  \) a. H1 z6 Z        next;
! L" T/ P8 Z3 G+ R$ z  L- ^- m. P4 E% j/ j       
1 P$ T6 j' f) L5 [$ ]2 L/ @6 A! u        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
- N- B  |5 e7 _- ~$ ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ l" o9 Q$ ?3 g9 z                --mark:=false;
% `. k2 N8 ^+ Q5 I! q6 d5 Q0 w                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
; W% j1 j5 S/ @) r0 c( T2 B/ B  K                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 `5 ?% M$ W8 Q$ q7 s                        activityspace[1,rows]:=ct;
' w+ U& b1 b' ?' s& l                        mark:=true;
1 ]. x5 e9 h4 K2 s                        else*/
                        y_max:=y_max+dy;
4 V+ a6 E# T& N4 S: s4 B* m                        dx:=0;
; M* t* j1 E" l* _/ q0 w                dy:=0;
                        --end;
( W6 ]* D8 ^; j6 ^7 U                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* W8 Y' F4 L' X' {$ ]; X                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
- @7 n/ q1 k- V; Y. f5 B            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
5 S; _9 W( _* x$ D0 b; u                dx:=dx+activityspace[1,rows];
, D7 |/ \6 h( W0 y                /*if mark=true then
: @$ F1 D5 H2 V9 G0 L% I                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
4 Y* ]0 f: Z8 I$ H6 F* P$ Q0 c7 X6 j                        end;*/
1 u# _2 G1 G: ?8 q& \        next;
        y_max:=y_max+dy;
# `+ M; s2 r1 h8 l        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);
       
+ E1 C1 V' w' ~2 l% }; {        rows:=0;
/ X( s/ X/ G! ~' j3 F; B. P        lines:=0;
+ M$ w  V' J7 S2 N8 t6 o& o; z        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
5 ~+ p* `7 ]: d3 ]) a; I% t2 E                        if j=i then
8 \) ?8 \1 E& v6 x) V! }: I  N                                d_from_to_chart[j,i]:=0;
, I6 D; A% r! x3 {' B                        else
) Z0 v# y( ~1 G8 L0 {                                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];
- n- e6 U6 e& e% `/ ^5 B/ U                                d_from_to_chart[j,i]:=abs(dx-dy);
) d+ q& s1 |# u" H1 F1 R( i                        end;
                next;
        next;
       
8 {+ E" d) Z& S* V0 V  _2 ^        lines:=0;
* J! K8 ?/ O( Z& c5 h        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- b& ]8 L% [( \' d  F( M+ W: |+ E                machinesequence[2,i]:=rows;
8 g9 k* X$ f6 S; n2 A: W3 w# L                for j:=1 to number_of_machine loop
8 e( F6 C/ v$ ~( }" p4 h+ b( R                        if w_from_to_chart[j,rows]>0 then
5 R2 M7 c: S* R  a& b# I                        lines:=lines+1;
7 C6 x! K" R9 t' {# u8 g- \7 J9 `                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
3 }) A6 ~; }. t3 V+ R7 `                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
" ~2 F6 S2 Z& v1 D/ H6 J8 v                        partstable[6,lines]:=j;
) b2 ~! D6 l; M  m. ?$ d4 Z$ m                end;
        next;
& }; E" N+ k$ [2 @9 Y        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;标识符未知
        machine.proctime:=5;
6 W9 h3 t, x2 @6 u        machine.label:=activityspace[0,rows];
' g* t0 n8 v. ]& K" @% B7 Q9 o        machine.exitctrl:=ref(leave);
       
4 ~- [! a! a$ `4 y        bufname:=sprint("BF",rows);
# a. u, Z: O  ?        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]);
4 H5 F/ u% S5 H/ F* e        buf.name:=bufname;
4 b; W( {! p! K% }( f' ?        buf.capacity:=5000;
        buf.proctime:=0;
6 z3 Z1 r( @; ~$ X1 h4 `& C        .materialflow.connector.connect(buf,machine);
       
        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;
+ v3 ^. l" _: w/ D: W& @current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
6 N9 N) P( C$ k2 Z2 g9 x