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

zooey

is
4 p# V6 k/ E& ?' c, V2 _        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
$ |+ W: i! H  h& s- i; ?2 X" C    machinename,bufname:string;
/ _! C- `8 r& t! m1 M    machine,buf:object;
- u7 E# I# S# T$ Qdo
2 g4 Z" d4 V! W; {4 O        current.eraselayer(1);
       
- N' @1 b. i. H1 o- j        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
  v3 C) N" X; g) x                when 16 then
/ m: O7 n4 }% A8 ]* m4 d9 L                        print"yes";
                when 32 then
                        print"no";
. ]8 M5 ^8 t6 w3 p+ x                else
6 ?2 X8 {; @; G4 U- X; h1 s                        print"cancel";
" J' \5 S4 t5 x1 \/ R                end;
5 t6 ^2 k% K4 U! Q' U                eventcontroller.stop;
        end;
, t3 j7 k4 ~" Z5 W" Q       
        for i:=1 to number_of_machine loop
1 Z; L' ?! L; k& y' C! f- z( i        machinename:=sprint("M",i);
1 \1 N0 z3 Y$ ?& T3 n        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
( C: K2 D7 }2 Q* t+ _7 d                machine.deleteobject;
5 ?# u# e# \# h1 F* _7 m        end;
& h5 C1 i- d, x  d2 j. y; Q        bufname:=sprint("BF",i);
# x; }0 s" `' {9 D6 X        if existsobject(bufname) then
) u4 z0 m0 H7 B: y1 [                buf:=str_to_obj(bufname);
# ]* N5 i1 w' v8 v# [$ t                buf.deleteobject;
) P6 A" A" ~* i0 q  Q" B' G        end;
        next;
       
        dx:=0;
) q+ m6 k3 E6 \/ e        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
! Y2 a- J( r/ ]5 t1 Z                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
" h: @+ P/ ]( M. I, i6 b: L% q: ~                        print activityspace[1,rows],",",activityspace[2,rows];
4 c! H4 I  P4 t+ F                        ct:=activityspace[2,rows];
# @: l  E0 u/ ]! V2 q& d                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
8 Q7 J9 b+ h* `9 |" \7 {, }                        dx:=0;
% }4 ]1 h: b! _) F; \                dy:=0;
                        --end;
- n" }! D) q% |# v                end;
# D0 Z' g5 H+ a: R                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. V0 r/ y5 v4 A3 q. V3 d- ^  ]" q1 q                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
$ o) H& C( Y: d+ w% [            if activityspace[2,rows]>dy then
' u+ E9 p& n6 x/ d2 G6 X                        dy:=activityspace[2,rows];
" H2 {; `6 t1 w$ O                end;
2 m1 V, w: Y% o0 e% k                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
% }' }8 g2 ?. k' J                        end;*/
1 w$ b1 d6 [" f3 [6 K) F) j+ v        next;
- G9 O4 u" T, d- w        y_max:=y_max+dy;
0 q/ V6 S5 Y$ R2 I4 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);
1 \3 r2 A8 v) y6 d# h- [9 [- {+ `        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);
* k0 ^, y4 j% q( o) h* i       
( X9 }6 E  T: [" L# G. y/ u0 @" p        rows:=0;
        lines:=0;
8 }( w( U# h3 y' E" g9 o* z        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
  L5 |; S0 M7 ^; d# |' a0 w. ?3 o                                d_from_to_chart[j,i]:=0;
. Z5 V+ }9 ]" N4 l                        else
                                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];
) X* I9 H  [( a8 f  m3 @$ l                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
, c6 a5 v% w0 j6 H* r# {7 K        lines:=0;
        partstable.delete;
3 S2 G: A* e9 I) C2 M       
+ ]: Q3 o1 y: {# Z3 S        for i:=1 to number_of_machine loop
" J& E( F: u5 Z/ Y  @5 ^8 s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 H7 L2 K6 s/ ^. s5 K                machinesequence[2,i]:=rows;
9 a6 q1 x) H$ y1 x$ `                for j:=1 to number_of_machine loop
- y% T8 T! s; a2 q& }$ P                        if w_from_to_chart[j,rows]>0 then
4 L& H8 R$ n8 i  c- w* ^& T                        lines:=lines+1;
0 g2 j" n/ x1 q* V- H) N. [                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
7 p& d1 I, f+ d  `. ]                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ q3 y' V. V( ?- B8 t) K4 Z, F) I& \! F                        partstable[3,lines]:=sprint("parts");
! z; G$ p) M! D9 G) H                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
" p6 W8 o4 _# H7 ?  }$ [        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);
       
# R& b6 a( A/ X* t7 Q; W        bufname:=sprint("BF",rows);
5 i6 I7 a* n+ s! O, O0 Q        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;
% e1 F* V5 A2 U% l1 I8 h        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;
9 c) t, m4 e! h3 Xdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
% B! Z+ v; Y; E. fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
/ ?: o0 n( [1 Qnext;
! S% [1 ~1 u) P& r$ s, d" Tend;