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

zooey

is
, e- S& o3 x& A% d6 E, b5 C, q7 [' r        mark:boolean;
6 n3 O7 {9 `, Z% S* J        dx,dy,ct:real;
    i,j,rows,lines:integer;
4 B; T( j" p+ ^    machinename,bufname:string;
( n1 g+ ~' @1 ?. ]8 ]. ^    machine,buf:object;
! ^! `. z  N: y4 ndo
        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)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
- l6 Z+ F' T  j                end;
  ^9 p0 v2 i9 J7 e* c0 s2 e                eventcontroller.stop;
3 v  E6 |1 d2 g1 ~4 ?        end;
       
0 W/ s' s' R) l8 [! B' ]9 X        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
' \( {" o6 ]; X! ~6 b! `  w# c9 {                machine:=str_to_obj(machinename);
1 l9 `! j/ D6 k9 Y% S+ E5 v  p                machine.deleteobject;
' S, M* }2 V! H: P2 W        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
" A' _' M% F- ~. ~7 ~$ Z       
4 B9 Z0 H/ ]8 O% h        dx:=0;
        dy:=0;
3 s. A9 n$ v% G+ s9 b# k0 m! o        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) N' E+ p& Y& {8 d                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
$ i( l7 W/ f" B! `1 _" h                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" H& C; e; G+ B* n                        activityspace[1,rows]:=ct;
  F2 K/ M- }+ L" T( m; u                        mark:=true;
                        else*/
" H; `3 s7 C+ U4 r# x: b6 P                        y_max:=y_max+dy;
                        dx:=0;
) `! e  h/ ]" a. ?& C                dy:=0;
                        --end;
9 ~; r6 Q: M; A/ [* X  \) F                end;
3 e* B6 E$ ?  x" ~6 S                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;
4 E, V7 \# E  a* T' T! ^            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
6 r3 W3 C: H, {& j                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 W9 ^1 s" v, \                        activityspace[1,rows]:=ct;
                        end;*/
0 P) g0 J3 N4 r( ?, l; T        next;
/ T) }+ ^, d) C8 H. A6 M        y_max:=y_max+dy;
  [" r$ m5 R+ e: }        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);
6 f# p$ |( c$ H        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;
        for i:=1 to number_of_machine loop
' I8 ~- p: T8 h/ s& ?9 z- r                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
7 M9 z+ K8 Y' {- U, F7 Q                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
; L& z, X* s  u) B- a+ k7 R                                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);
1 ~+ j. L& x1 c, S) _, m- O                        end;
                next;
        next;
       
        lines:=0;
' X2 `) M2 ^) l" H1 q        partstable.delete;
       
        for i:=1 to number_of_machine loop
2 x, Q6 t' i0 d* p7 S  M+ N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
& Y, L4 V* Y% e( o' p% a0 R                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
5 s- T  y9 b3 D+ ~( T5 v2 J                        lines:=lines+1;
) q* j3 R2 l; N* n                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 w+ P: E$ X9 z- r+ j) V9 N                        partstable[2,lines]:=w_from_to_chart[j,rows];
" L, R2 G, Z6 y6 `  Y7 B                        partstable[3,lines]:=sprint("parts");
3 H& t  e% v/ L# \                        partstable[5,lines]:=rows;
  @2 ]6 d( s  L& ^8 }* e/ e                        partstable[6,lines]:=j;
! T) M/ p/ I# x$ v                end;
) [- I0 v9 F; V7 W; S6 r# [- m        next;
        machinename:=sprint("M",rows);
+ m) ]: }! L& }- e        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);
3 Q8 S4 r2 |6 @7 s" h2 n4 J8 r       
        bufname:=sprint("BF",rows);
+ i! G) \3 S2 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;
) ]( j9 i& E. }4 h0 h$ @        buf.proctime:=0;
* J+ m- q* ~8 n/ X0 n  s( {1 `        .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;
5 F; W/ C6 c6 p/ X. W" k+ o( Ecurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
- L% s: y: ~0 B5 O, s. L% ^next;
; {  s9 D) j/ @. d* `9 |$ a6 \end;
* P, ~3 ~" x! @) Q% h, n7 _