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

zooey

is
; G' [7 A8 N; Z1 l- T* O        mark:boolean;
        dx,dy,ct:real;
- p$ n) N9 N6 B; `- w0 d    i,j,rows,lines:integer;
    machinename,bufname:string;
8 M4 l& |/ T  m' ]    machine,buf:object;
* Y0 r. ?* p) g1 I, b) Jdo
        current.eraselayer(1);
' i; d2 p7 S8 o: |( ~  E. v# S% F( p       
# R8 X. h$ |: b0 a' B4 b7 y9 Y        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
0 b0 a4 A2 k( G/ x/ h                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
# G) M: A* J; n6 ^; t' C' m                else
4 l0 q1 J. [' T8 ?  X                        print"cancel";
! r1 E* ^7 Q( Q& K% G( h. I- s( J                end;
; I7 a! q2 u" X) H' j! W                eventcontroller.stop;
        end;
& s/ A, Z) k! y5 j       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
/ [! B0 B  c7 {5 s  Q) R        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
" z  ?6 a, `5 D1 A1 g        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
! v' E+ }, j5 x1 I& p6 ^8 p2 O                buf:=str_to_obj(bufname);
                buf.deleteobject;
1 A' i; z& |) I9 e/ v- S( Z        end;
        next;
. e% u5 Q. b. a! s5 v       
' i/ q3 q. Q7 v  w        dx:=0;
( ~3 F! j# w" S  a5 a  l6 }) u% q5 {        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% U) s, E) u! g                --mark:=false;
! X' o0 o2 a7 v$ R) z' ~; l& O/ y                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
+ W8 V$ f* f; |# T. {0 e                        print activityspace[1,rows],",",activityspace[2,rows];
- N- e2 J% t# D- N$ ?1 \3 V, u                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! K8 u! z3 Y& w. p- w                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
$ |' L, C3 Z1 O$ J  l; D                dy:=0;
. g/ s9 C4 J9 y( |- O: N* i/ g                        --end;
                end;
3 E# b4 i3 G$ W7 Y. W+ }$ F                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 h  X3 o' G/ B6 e/ ~0 P                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
6 }$ V* c( ~- }3 S0 w) c. f! x; S                        dy:=activityspace[2,rows];
- \& |4 a! L3 D6 b* a( ^                end;
                dx:=dx+activityspace[1,rows];
; S% m  I4 Y, e5 Y( A. i, R% ?                /*if mark=true then
2 `0 g8 K& ~% O, r- K                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
* g" ?) f2 P2 |+ o( Z. W2 B                        activityspace[1,rows]:=ct;
                        end;*/
% W! r* z1 s* o0 A        next;
5 F# x$ S( N6 J- N! g  M) [( G& X        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);
       
        rows:=0;
        lines:=0;
; T# x! A; v$ P2 @" n( V        for i:=1 to number_of_machine loop
; e1 b* g8 E$ E7 H6 B8 w  V& ~( z                for j:=1 to number_of_machine loop
                        if j=i then
/ ]; `$ a9 G: B                                d_from_to_chart[j,i]:=0;
                        else
2 r2 B6 Q- n: w* W: r2 C, H                                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);
                        end;
                next;
$ c. O% \6 R( V, S$ f5 V8 }$ s        next;
       
2 W& U$ ^9 M' k+ ^+ m        lines:=0;
        partstable.delete;
4 J# D) E" b& O" l4 _' J       
2 F7 X- y* I5 N; y5 ]2 h        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* G; l8 q% W2 [: ?, `+ O                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
) _, X, u2 [, F: E% Z- @! C                        if w_from_to_chart[j,rows]>0 then
2 G) b7 c; J) {- Z8 O! c                        lines:=lines+1;
4 [- V% \' D* {1 Y3 ?                        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;
                        partstable[6,lines]:=j;
9 |  ~' _8 H6 m( ]                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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
# r5 s: J3 _1 I& G# P( m' s        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;
        buf.capacity:=5000;
8 t2 N: m8 H' h1 z        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 B0 {6 ^  K9 t% _2 D! }dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
4 J8 A- O; G9 Tcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
0 ]5 V2 N/ j; }next;
end;
4 Z$ V( Q* o* H9 R' k3 \3 }