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

zooey

is
        mark:boolean;
" Z, L! ^0 x* ^; j8 v        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
6 E, w, [, B6 j' G7 ~        current.eraselayer(1);
       
9 b3 s6 D; n9 W  c        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";
1 o5 ]6 X* n( x" C8 m, w0 f                else
                        print"cancel";
                end;
+ V  g. G% E* x- `8 h                eventcontroller.stop;
        end;
7 X- _. ]  `. w( Z/ m1 Q+ S       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
5 A7 h/ ]3 X( k) K* o                machine.deleteobject;
        end;
7 _4 {) r4 d4 G        bufname:=sprint("BF",i);
  J% C0 R' `' l+ S        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
+ K9 b" O* [% F9 T2 q1 c       
3 ~$ W0 z' \- q+ a8 |) J1 S        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
) l; f5 ^7 c& t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ i/ ~( [5 J- J  z4 K- s+ `+ u4 n$ Y                --mark:=false;
- i1 o# t. p/ P2 u( d. R% _" d4 {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 S+ L0 R. x: W1 ~" c5 u                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
$ k" E4 d/ ?: Z# ~% B                        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];
) Y6 i& f5 e" D2 Y8 _% A& f9 E                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
  S) Q) S- ]5 @5 t                dy:=0;
                        --end;
$ y5 `  z8 c0 l+ `3 Y                end;
) x4 `2 a. ~5 }- j, o+ H! s0 e                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
+ O3 m+ N4 H3 ?( }                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 c4 ]3 Y# W+ \  L2 b& T                        activityspace[1,rows]:=ct;
( {* [6 B0 \  E9 @) \                        end;*/
        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);
        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);
       
. s; Q9 |% n; y. K  E        rows:=0;
" U) T: o: h9 X$ B% c6 K        lines:=0;
2 Z5 [5 C: i  N& \9 x+ Z8 t        for i:=1 to number_of_machine loop
6 E6 P. P( v; B* i                for j:=1 to number_of_machine loop
  j. I  \% F  T# Z, s% c& e7 e                        if j=i then
                                d_from_to_chart[j,i]:=0;
) x" F, v7 P4 Y7 X' }                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
) ~/ y7 h; c7 ]" U                                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);
# ?$ a1 b0 ?2 Q7 B# _                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
9 R, k" ~; D, g, l& c       
' t" \+ O9 z  \- J6 Q( T" }1 J        for i:=1 to number_of_machine loop
/ Q' P* b( s# g4 ~# K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
, w' W& |7 f) t9 {2 u8 J                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
: M# X/ N; j: O6 a9 e                        lines:=lines+1;
/ m: u* r  ]  D8 C- _! l                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: X! N, A$ N  o, B) D                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
5 w/ E+ z8 o/ r9 Q; D3 x' f0 E5 _" y        next;
7 R- k0 H0 i! N" M# y/ X1 N        machinename:=sprint("M",rows);
7 P: p, B. `. f9 |# `# b) O# D        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]);
2 z7 T$ e2 V; S1 N4 y        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
- z7 ?) Y) N3 H) j7 l: o       
, S! a! V/ H% j) y        bufname:=sprint("BF",rows);
: }( J' n0 F; S9 {1 }        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]);
1 J6 _9 ~* u; r* q6 _7 D3 X        buf.name:=bufname;
6 q& h5 R! j. v& v3 a0 P7 s; Z        buf.capacity:=5000;
% K" i7 X2 |/ t- F1 U* [        buf.proctime:=0;
5 _# A6 m/ c7 y3 }7 l        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ z4 e" e) }' i& f9 L! Y' ~) Zdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
) b( L! s7 H! _& Z$ r: e( ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
+ c" U! t4 ]( E  E" ?end;