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

zooey

is
: U8 w: ?# @! {, I        mark:boolean;
+ h# x% _' Y8 T8 e* v8 _' F( L        dx,dy,ct:real;
, g9 g! {3 F0 N7 c/ \0 `4 H' i# \! z    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
1 s) l* h5 ]& ?3 \        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)
! H; H6 k' N; O2 U. ~# W( w2 I9 @' K                when 16 then
                        print"yes";
# ~4 L$ w) Z; N$ i- g3 o* I                when 32 then
# i7 F0 K. R( U                        print"no";
& B1 \: W! l/ w! g) t  J$ V; {$ X8 q                else
                        print"cancel";
                end;
# c1 u8 H) X3 P                eventcontroller.stop;
        end;
# J. j" l  \0 K0 p8 b& V9 H       
" Z, k' a* Q/ m, s$ e% A        for i:=1 to number_of_machine loop
6 e5 V- a) }  S* L, W. r- @        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
/ K# K/ O4 K; ^; Z        bufname:=sprint("BF",i);
6 ^) n% ~! M! }* V% J1 L% n        if existsobject(bufname) then
0 p& M! N$ e( C7 K, P. _                buf:=str_to_obj(bufname);
                buf.deleteobject;
" z2 P) V- M( `        end;
, D1 R* k) L9 o7 q$ O" d        next;
       
4 R) _3 m6 p) K% Y        dx:=0;
/ U) f* L" k9 l/ j+ B4 z7 i. v* R        dy:=0;
8 Q( d6 l% `- q6 j" s, I/ O* B        for i:=1 to number_of_machine loop
. V: E+ ~5 o. B1 k; S                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
$ k, B6 K6 Y- _8 Z                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
9 p) C) `6 z+ q1 f1 T  \0 v6 Z                        print activityspace[1,rows],",",activityspace[2,rows];
% D$ a1 I, ]: Q                        ct:=activityspace[2,rows];
- |( C3 N+ c2 K& J/ a1 K) D9 W! y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
- j  _/ {/ {8 u; G+ P                dy:=0;
                        --end;
                end;
3 t3 c. d+ C& R* [                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 c2 q: W+ ?0 s) _  o/ [! _                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
0 m  m% g/ G7 S* o; k                        dy:=activityspace[2,rows];
                end;
, N6 g* Z' B* N                dx:=dx+activityspace[1,rows];
# i' j$ f& `* A  `) L& |                /*if mark=true then
                ct:=activityspace[2,rows];
" w3 P! T( t5 D3 a" e6 y5 T# j( L                        activityspace[2,rows]:=activityspace[1,rows];
3 c. r8 I! o% a                        activityspace[1,rows]:=ct;
                        end;*/
' W! I- M$ n3 r  ^6 ~" t+ v        next;
  U& i2 c  T( X, s1 L0 Q  i        y_max:=y_max+dy;
  e& D5 d( S& y  `2 ~( j, u6 c        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;
$ f/ o8 Z+ _. u+ D8 o1 g' B        lines:=0;
4 w; O! t3 J2 }        for i:=1 to number_of_machine loop
$ t% A. N  k% n- l# {                for j:=1 to number_of_machine loop
+ o2 @% }' ~% g7 f4 d  A7 w                        if j=i then
: v( y. h( T) A% d                                d_from_to_chart[j,i]:=0;
6 T* G; Y! c& x                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% I! v- x* j0 b  A& W                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
" e0 F8 @: d2 a: {3 J5 f7 N                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
6 m6 @# a% T& ~4 J                next;
$ N% G5 z8 [9 |        next;
       
" N$ R( Q  q4 |# g' s6 i        lines:=0;
. S5 B* |' L) J" h) W* {        partstable.delete;
       
        for i:=1 to number_of_machine loop
; ?6 Y  Y4 [- l  |' }: v7 R9 Z                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
& z) T; M/ @' ?7 \$ ?                        lines:=lines+1;
4 J  s" S& A+ T1 \3 ]6 Q; A                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) A0 \0 _9 a$ d/ R( |6 F) j8 ]4 }                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 O' u% X. f# g4 ^7 l- z/ W( C2 \                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
- M) g" Z2 G0 f) r; b; z2 h        machinename:=sprint("M",rows);
' J5 ~2 U6 v3 F9 D0 ~3 S        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;
& u2 X6 A& U; {2 N        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
) \. C+ V3 |/ O) m$ S* ~! n        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]);
' D6 ?8 O; M+ P  K0 ^6 z1 `        buf.name:=bufname;
( h8 D3 E2 w: f- `$ f        buf.capacity:=5000;
) H. w  T( y4 T  ], _        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;
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);
next;
2 B4 F9 r. T6 ~/ B* D/ Pend;