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

zooey

is
7 J% C6 B  h0 }4 J* {- L        mark:boolean;
  x# O9 h3 T8 I" ~$ @* k, g/ R        dx,dy,ct:real;
4 P5 F! x0 O" b: q0 y    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
) ^% R2 j4 p- J% j# @do
) `# x  G- E8 s5 J        current.eraselayer(1);
       
! J/ w1 Y$ V) u1 }- L% s        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
, z5 j1 m  ?! d/ F* K; F                inspect messagebox("设施数目不对！请核查...,",50,13)
$ J2 x% @, L5 w3 u: ^' y                when 16 then
2 a) }& z* G' V: y' U- ]6 s/ Q' Y                        print"yes";
                when 32 then
                        print"no";
                else
4 O7 O5 T* g9 S4 ]                        print"cancel";
                end;
! U2 B3 Q0 M% A4 K& J                eventcontroller.stop;
: N, }$ U& T+ [, ^  ]" i2 Q" |' D        end;
( `6 t! Y) a. n# H/ N0 ~: @1 q0 a       
9 y8 b( x9 a' ?2 y, t        for i:=1 to number_of_machine loop
: |8 H4 i4 \  u6 b8 f        machinename:=sprint("M",i);
        if existsobject(machinename) then
- q' i0 k, Z( V4 e                machine:=str_to_obj(machinename);
) G: T2 @: q) V                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
" f' ^( S7 a2 W+ ^8 W. ~        next;
) g( w4 S& Q, b" k3 k* k; C       
0 V( @0 u; P. q. m7 H* }: r        dx:=0;
' y$ k& A- f4 s        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
  C) W; L* [' ]3 U- _2 l1 [                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 {* O/ B! _4 s  o- _  b' X                then
/ J, U) ], F: e9 T# d! G; Z2 t                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ Z% O7 I& Y! [  O9 g                        and activityspace[1,rows]<(1.05*y_max) then
& f/ y# x( S3 k* ?0 X4 b                        print activityspace[1,rows],",",activityspace[2,rows];
. J, e+ f4 q) B$ X/ v7 l$ |* H" P                        ct:=activityspace[2,rows];
+ s6 ]2 j% P/ L8 X( i. q' h5 ^+ X                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
! ^; x  G7 j$ ~                        mark:=true;
: V& n* u3 s+ F* }) P1 r+ \( p4 L                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
7 [% u# x$ ]) B6 S                        --end;
2 |8 X6 _# G" W+ Q1 K                end;
                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
3 E- [' H; J2 n3 ]) E8 \                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 |4 }( q9 ^* q" D  O2 d                        activityspace[1,rows]:=ct;
  i: l! y. H, b) j) |  n$ n. B                        end;*/
        next;
1 _. @* q6 }; T+ e        y_max:=y_max+dy;
" k) K  `- V- N0 y0 }        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);
4 K+ o3 s& ^: k6 H! k       
        rows:=0;
        lines:=0;
0 X% Y* @2 F) M" k" c        for i:=1 to number_of_machine loop
/ V6 s$ c) }! x& q( ^3 `$ W                for j:=1 to number_of_machine loop
                        if j=i then
% e* M6 E5 X' Z% e! H1 b- ~                                d_from_to_chart[j,i]:=0;
' Q) \" }" ]! p/ |  y6 q- {5 R7 j                        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];
& z0 _* |# Y& S) g. n" S- d( @                                d_from_to_chart[j,i]:=abs(dx-dy);
' I. c% W+ H5 @5 \. q* c8 I                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
/ y  H6 A" V* g3 d3 L5 R       
        for i:=1 to number_of_machine loop
8 q. G& m: G6 w5 [$ G$ A2 \3 b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
( }6 ~6 ]  B) D* K                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
+ y. k2 \) b& h- f" u, {+ ~                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 u$ d* m+ v$ Q                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 a* y4 v4 j' P                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
  x1 b9 O1 D6 X7 D: Y9 }        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]);
& ^8 a# h3 N; i1 X+ A" ^        machine.name:=machinename;标识符未知
        machine.proctime:=5;
3 H3 [# _$ X- ^        machine.label:=activityspace[0,rows];
% D2 `: ?: k- x  `        machine.exitctrl:=ref(leave);
! c2 U  @& U* b6 w+ L) I       
6 i# v& O' }) u) c2 Y        bufname:=sprint("BF",rows);
$ i( |: L/ ^2 l! i6 z! J& z        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;
        buf.proctime:=0;
# m' y* K$ F" `2 _9 C        .materialflow.connector.connect(buf,machine);
' P: q& v3 J3 Q% m       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 ^5 n+ C) h4 W0 Sdy:=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;
% L" d  B6 z$ y( K: {, x3 x/ L. E3 G  kend;