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

zooey

is
& Q& V* G0 W9 q! u# u% a3 C9 b        mark:boolean;
  h! X9 Q: b. @" W- E* K$ |( B        dx,dy,ct:real;
    i,j,rows,lines:integer;
2 p: r, s$ K# e/ v% h3 N( I3 _6 K- T    machinename,bufname:string;
    machine,buf:object;
( w- U' h  F0 O9 a0 ~. Jdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
; L9 N- s2 {6 ~& b  P                when 16 then
7 }# _4 r/ l2 D. K5 n, A8 k                        print"yes";
                when 32 then
8 o1 }$ o- e( ~( U* S" Y2 L# T                        print"no";
( [4 c8 K$ v# {. I) ]7 L% J  E                else
                        print"cancel";
. Y/ e  w  i- ?" a( b5 y                end;
                eventcontroller.stop;
: M* S  x( C" i! i        end;
       
        for i:=1 to number_of_machine loop
$ }6 T3 P- n7 X' q& m        machinename:=sprint("M",i);
+ q9 `. W* l9 S7 Z7 Y! h6 `6 u        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
$ K+ h2 p; E/ [$ |- I% e        bufname:=sprint("BF",i);
        if existsobject(bufname) then
0 z$ y: N$ q5 o& N+ Q7 ^2 E' E/ |                buf:=str_to_obj(bufname);
" z2 K$ J1 m# F, X                buf.deleteobject;
        end;
        next;
% [4 k, Y6 [5 |, F       
        dx:=0;
        dy:=0;
' T4 h' }( ~3 x4 B( [4 N; D        for i:=1 to number_of_machine loop
2 h. O7 _7 y7 c4 H0 m. g* [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
( p  ]! e3 m( x8 N" L9 o& o) U                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  R) Q5 U! N+ z& I# p4 |5 U                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
+ F3 [7 c7 g7 G' @& y* `7 c                        ct:=activityspace[2,rows];
5 V, m. f( ]. D7 e" x" E                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
& B' |) R8 C' a) \: k+ F6 L/ P                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
9 L& D7 f; K! S$ r  _! f* I                        dx:=0;
8 D& i' A) u7 m                dy:=0;
6 o! K+ n. e( s! a/ a                        --end;
                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
! @9 I0 K) t7 g                ct:=activityspace[2,rows];
3 C! c/ g/ u8 A" Y                        activityspace[2,rows]:=activityspace[1,rows];
: Z9 h( K; E6 j4 ?% v                        activityspace[1,rows]:=ct;
                        end;*/
' X- W: h. Z1 c. M1 i) M1 @        next;
        y_max:=y_max+dy;
# b% v3 x% }; e4 i1 R8 S3 M        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);
8 M, S6 w' E1 ^: ?3 D5 V5 E$ Z        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);
       
        rows:=0;
        lines:=0;
$ X' D- c: s; Y9 W. U, m        for i:=1 to number_of_machine loop
. t# Y: ^* J; M; x                for j:=1 to number_of_machine loop
4 N/ d3 [1 `2 i1 K- j                        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];
# g+ h# n/ }& J$ m* _' }+ \8 Y& E2 j                                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);
2 q5 {. Q+ j; y8 p+ U                        end;
/ `# Y& u3 {0 c3 R- {$ w                next;
. ?8 o) g; Y+ V8 Q0 V5 J        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
9 X$ r* c7 c8 {; o! P/ `                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
4 C  ]) ?, P3 l' y: V( D, V                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
# ?( X% q2 z/ c# q% w7 x+ s                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
( }3 W8 i" J& m7 h                        partstable[6,lines]:=j;
& p6 Q# l' r0 N2 R. ^                end;
        next;
; U. Y. S0 w/ X& k2 r" d; r- N$ E        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]);
9 T" r4 ~8 z* Q; C        machine.name:=machinename;标识符未知
8 m: z3 a+ j; y3 @3 z        machine.proctime:=5;
) P" s+ e0 t- ]; Q4 W- L; g        machine.label:=activityspace[0,rows];
6 i4 l! P% \* J* S# g8 `        machine.exitctrl:=ref(leave);
- x$ o5 S" O: R( S       
        bufname:=sprint("BF",rows);
- S$ X6 H4 D9 |        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]);
; ~3 a/ ]+ @6 L        buf.name:=bufname;
' {2 U8 W# w: S) t0 W$ J        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
: Q( _. Z# P0 [- o: N! f, b       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ Q, L5 s2 D" K- c" ?dy:=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);
& k2 S, F$ K4 a% Q6 Inext;
end;