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

zooey

is
) h8 P$ m5 s6 Y. J& o+ j        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
5 c* K) g7 F) N3 w) D' f( i    machinename,bufname:string;
    machine,buf:object;
+ P9 h( A1 ~9 r" D/ rdo
2 \: Z, E9 e3 v, S. L1 m9 u        current.eraselayer(1);
5 Q% q9 R/ k1 j- {4 K       
6 G* j) j% N' w4 q; B" O1 H        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
/ I, K$ U0 y" g+ k( f& B; e                inspect messagebox("设施数目不对！请核查...,",50,13)
: b$ v. }* b$ @& X& H* b! G                when 16 then
                        print"yes";
4 x; g- l5 p* i3 j& X) p                when 32 then
                        print"no";
$ B7 \* k2 q% q6 D) N: Z8 R: W% E, D                else
                        print"cancel";
7 |3 U9 g* Y" @                end;
* ^1 M3 G' k: G4 ~+ J  s+ Q                eventcontroller.stop;
        end;
  K- N2 G  F5 I9 a       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
2 d& j9 |* P* r$ E; Q2 Q* j4 Y! Q        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
5 j; \- G( ~' h        end;
  p0 D7 f5 S2 L' T# y5 u        bufname:=sprint("BF",i);
        if existsobject(bufname) then
( x/ r4 J& E0 a: f' f- t' }                buf:=str_to_obj(bufname);
! P" f& Z- g# b  y. q, j. s                buf.deleteobject;
: i1 G7 R' ]7 @5 z$ s0 w4 }3 d, h        end;
3 }- S  Y# c: N! @        next;
5 P' X& C1 _1 m( N4 o1 X       
        dx:=0;
2 N9 Z- d/ m/ N4 B6 ^  b: C0 L* k        dy:=0;
        for i:=1 to number_of_machine loop
; Y% k9 i2 D/ `  p: X                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, n+ N- }3 m8 F- P" K                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
* i  f% V4 J* S, F9 `" V& f/ P5 S                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. l/ [% H7 K' u                        and activityspace[1,rows]<(1.05*y_max) then
" v$ ^9 h9 u5 M' ]! `  V* ?                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
1 ^' d1 r$ E& {( W8 x  ]                        activityspace[2,rows]:=activityspace[1,rows];
( r. f6 n% G) s; w" |$ V) B                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
7 g5 n- [6 A8 b. J6 S* j8 P                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
5 J. {- a+ q6 J& x7 Q" k3 Y                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 y8 A6 F3 T  R. R8 Q; Y                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
6 c3 M: Q( }  I+ t) h+ H( L! }                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
! V. S$ }8 x+ G: X, a/ i                /*if mark=true then
' |! w6 \0 T$ l  R+ ]                ct:=activityspace[2,rows];
3 W  ]( S) D+ J' v                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
7 F2 C4 Q$ v4 b* Z1 D        next;
        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);
4 f2 T1 L$ o& Y. x" M$ F        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);
( {7 h$ V9 {  f) R, B       
        rows:=0;
, r0 ^5 ^9 T* Q" k) M' i        lines:=0;
: i  G& W0 A) Z# P- ^% h, i        for i:=1 to number_of_machine loop
$ c# p& t0 W- a( i. `# ~9 @                for j:=1 to number_of_machine loop
. _) F5 u5 m2 x* Y4 }                        if j=i then
  c( Z" k8 C1 W, V+ N2 y. v$ H+ a                                d_from_to_chart[j,i]:=0;
! o5 c* P" i% |                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
9 j; _! I- ]/ u" h1 ]9 v                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
5 Z% n; h$ ~- E, e% F* D0 a                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
- U6 [) ~+ k0 y+ k2 v                next;
        next;
8 Y+ r7 |0 W" y* Y5 Q' q: B       
        lines:=0;
        partstable.delete;
/ a5 }& I, @' ^( o9 ~       
) W! k, \+ D' |1 P9 {  r  e8 m        for i:=1 to number_of_machine loop
8 G6 y* q$ \: N8 s                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
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  h9 @; g. z6 |  G* v                        partstable[2,lines]:=w_from_to_chart[j,rows];
. J- v. ^/ {, C- [                        partstable[3,lines]:=sprint("parts");
# L+ `- g$ C% _6 ^2 H" a                        partstable[5,lines]:=rows;
" Y7 o. L9 S$ V% d6 b                        partstable[6,lines]:=j;
: O7 @1 R& v3 r+ S6 n                end;
" z- ~! ?; ~6 b        next;
        machinename:=sprint("M",rows);
  d& Z/ u0 m# _7 e& x; i        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;
$ ^2 Z+ ~5 E! x$ n        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
9 W1 T$ P8 j/ D" e/ j" S# }        bufname:=sprint("BF",rows);
        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;
1 Z) X- H, C2 l. @! r$ m        buf.capacity:=5000;
0 [7 p* B+ x* l! [        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
) Y8 S, r- c8 w0 N% F/ N7 g* A       
0 q. ~6 B9 n- S8 Q& P) m        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
; ?  A# m, K8 ]8 a/ xdy:=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);
, Y/ R" L# `* \; ^1 {% u* \* B1 Y/ inext;
' @1 R4 E+ f6 f$ |+ n) O9 Fend;
' O" ]) Q. w9 ?9 _6 b