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

zooey

is
0 v$ Q& h2 I4 a: C1 j! i        mark:boolean;
7 t" `, X" \3 N) r: P- O        dx,dy,ct:real;
0 c- U0 ?3 H+ v! C$ f1 Y    i,j,rows,lines:integer;
7 A2 s4 Z7 W+ M- Q% p. J" q6 t    machinename,bufname:string;
: h" O5 n. Q2 C7 J7 A  t    machine,buf:object;
do
        current.eraselayer(1);
) e$ u. O& d$ x! w8 m8 t       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
! F, y3 S5 h/ B& ~# l                inspect messagebox("设施数目不对！请核查...,",50,13)
2 @$ G* c- V; x5 \7 |                when 16 then
: q4 D' m( w2 s5 q4 B6 G9 o9 G                        print"yes";
9 u$ A: ]( U( |% i8 Y6 ~7 b/ u                when 32 then
; M& j7 k# F$ ^, O                        print"no";
                else
                        print"cancel";
) D8 D: h& |4 w; V- I                end;
                eventcontroller.stop;
        end;
7 Q& `" _/ v  {# s/ ?       
; c1 p. @8 k$ V# W6 b8 {        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
, ^3 r6 N$ y" [( y: S9 \( j        end;
        bufname:=sprint("BF",i);
" l* l9 H2 f, z, N        if existsobject(bufname) then
5 y% G5 A" A7 y3 k. ]$ ~                buf:=str_to_obj(bufname);
8 s% Y7 K! C) P: `- @0 p                buf.deleteobject;
- r( ]( k- t6 n! ~        end;
; g% W2 t# N- R& j# @        next;
       
) a& k# \% O4 p: |% i0 `        dx:=0;
' e) n2 o( m  L; K( N        dy:=0;
        for i:=1 to number_of_machine loop
' G4 r- u7 ^) W- b; ~9 t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
& }- W2 [* H3 ]. ]+ F# K5 N                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 z' o; W! z) {# S0 p- F  m7 I                        and activityspace[1,rows]<(1.05*y_max) then
; A/ \+ v1 @' a+ s* p* U                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ m/ \% ?* d5 g4 S0 _5 _9 C                        activityspace[1,rows]:=ct;
& q) m8 @$ r. M+ I& k                        mark:=true;
$ K# q6 I& o, X+ u+ J/ s+ f7 L                        else*/
' _8 ?' o: p* }; u# z% i                        y_max:=y_max+dy;
, `0 ?3 K1 r: o" D                        dx:=0;
/ u! E7 ^0 g! f/ }' x                dy:=0;
                        --end;
  ^2 S/ z; ~. V2 Q8 f; y                end;
$ k6 {# ?4 T, F9 _  e                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 q  N2 }: r% Z& ]* \                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
$ n% G0 [- ]3 m9 U) y  H4 ]                        dy:=activityspace[2,rows];
                end;
0 ~% N9 T/ @, S9 e. ?+ A) H                dx:=dx+activityspace[1,rows];
                /*if mark=true then
0 S) S! R: y$ P! ^# W/ R                ct:=activityspace[2,rows];
$ r; I. w4 b: t) `% [: D                        activityspace[2,rows]:=activityspace[1,rows];
  V! b/ C* @( a: I                        activityspace[1,rows]:=ct;
6 t" v7 n1 \$ v( ^                        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);
3 p# V  D6 w+ G/ i        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);
1 {9 b% D, F; b6 X3 e$ K; O       
  h5 W2 Z' m9 p3 m+ d% z: i        rows:=0;
        lines:=0;
- ^& T" [7 \- M& N! }        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
/ I- P5 P2 r1 r  N1 M* T                                d_from_to_chart[j,i]:=0;
                        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];
) }) c/ R  s/ f& ^" N7 ^                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
9 M& y4 x7 t6 ~! j                next;
        next;
       
  W1 ?4 Z) a7 I8 \0 s        lines:=0;
        partstable.delete;
       
+ R( _9 P) p  _$ y2 p6 v        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( {3 S. f; {. D' X                machinesequence[2,i]:=rows;
4 y2 _2 Z5 \# S- n8 d( R                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
# v! }' m* t. h% F9 t& k                        lines:=lines+1;
4 ~( |- o# U% Y2 A8 F5 U4 O6 H9 L! B                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
+ V6 G1 T2 C4 M( ^+ a1 Y                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
; [8 k; I; ^# T2 M9 X) A                        partstable[5,lines]:=rows;
6 T6 J6 J; P: T2 x                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
        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;标识符未知
* J+ L. u9 R. N4 T        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
& p8 x$ |+ m2 z# Y        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
. a: T" O1 M' q" U; F4 o- V2 F, f& 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]);
+ F' ~0 y2 a) G( O        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
( v, ?  m5 O  J% ]8 T8 r        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;
9 v1 `0 p" \1 M0 x$ F+ f( H7 ccurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
& ^# c" A" a* m- @1 snext;
end;