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

zooey

is
8 G! \8 i$ n/ B4 [  Q        mark:boolean;
0 I" @5 j, [  x4 }' e        dx,dy,ct:real;
    i,j,rows,lines:integer;
8 F5 i! p2 v0 X    machinename,bufname:string;
4 c  W2 s* p2 U% V    machine,buf:object;
4 Y+ T: F6 Q7 e  E- ldo
  e! |5 R. r1 ], d# d        current.eraselayer(1);
       
9 U5 S- R$ ~- _4 ~! m) h        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
9 a( i; Q( |+ |9 C) G8 a' g                when 16 then
                        print"yes";
2 p' Q! L. q: L# u% C                when 32 then
                        print"no";
+ H6 D3 j* K# w# S+ s  V                else
                        print"cancel";
                end;
                eventcontroller.stop;
9 D2 A( q+ h- G$ T" Z' R        end;
       
        for i:=1 to number_of_machine loop
- p, n5 Q: E6 b2 @        machinename:=sprint("M",i);
  Y: t$ `; s9 y; W4 D3 K        if existsobject(machinename) then
# C- R6 e/ s0 C4 @, S. z/ v                machine:=str_to_obj(machinename);
8 _% `% E  F1 ~$ K! o                machine.deleteobject;
1 O, R) c: P4 T' f/ m        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
4 Q# }7 R# h; X  Z) T, Q- H* l                buf:=str_to_obj(bufname);
4 i7 [- J5 \/ {' n                buf.deleteobject;
        end;
        next;
       
0 e# g: w0 g0 {        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
) b. D5 \0 [. h0 d3 k7 s- `, v7 W                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
) g- N* N2 c# P0 [, Z2 Y7 F6 O" b                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
! Z* o0 F: ^4 P+ J0 J                        print activityspace[1,rows],",",activityspace[2,rows];
2 A0 _& g+ U: G7 W  P7 ~                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" D4 s' ]& L0 U; r! Z                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
, F  E. N3 U; V$ S                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
0 q8 R. z  e1 o                        --end;
8 \: M! t4 g, R6 n2 d+ s! J# S                end;
+ |: c" G' g4 p: \4 Z; `                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: ?) g6 u4 l8 i) R3 m( c                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
- h" k4 x, f5 y0 q3 T                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
2 T: @: `( F* k                /*if mark=true then
                ct:=activityspace[2,rows];
) @0 s6 }/ D2 ^8 n% d- a. k+ Q3 M                        activityspace[2,rows]:=activityspace[1,rows];
5 [, h# q9 t9 E# M                        activityspace[1,rows]:=ct;
$ G# V* ~. h# z                        end;*/
        next;
  K% c) r2 C" J) {* d        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);
+ e& m) {' H* x' m       
        rows:=0;
  E6 \0 O, }& i        lines:=0;
* ^; n' d- }1 [& L/ ~2 ~: g        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
. r2 {+ t# Y' Q  p* ?/ r                        if j=i then
                                d_from_to_chart[j,i]:=0;
: H+ `3 X( R7 v. G) l# ^- B                        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];
# R" ?) T6 j2 X) u2 W& w2 r                                d_from_to_chart[j,i]:=abs(dx-dy);
' N9 J) f% Y7 C& \: J2 {                        end;
                next;
6 l* {" `  E# I  [7 e        next;
& w8 U) X( S; _) y1 ?* k       
. j) W8 [% r- B  @8 |8 T        lines:=0;
! ^8 Q0 q- f1 H/ G# ~        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ y* @) W9 \; r                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
+ h% f' A1 z' O$ `' y- s- l                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
5 _) r; E0 f& B" w" K+ A                        partstable[6,lines]:=j;
                end;
0 w4 _# h3 K$ {3 X7 |5 v        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]);
. j" `  c. F. r0 l        machine.name:=machinename;标识符未知
* Q' P( ^1 u) ~9 }0 e        machine.proctime:=5;
' V3 u! V4 ~% @+ E/ a        machine.label:=activityspace[0,rows];
# z# u1 N0 z1 Y# {. Q( M7 B: u        machine.exitctrl:=ref(leave);
       
+ r, o3 e6 V& d4 K" T        bufname:=sprint("BF",rows);
! a3 A+ }/ Q0 D$ _! b6 L        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;
4 R+ {3 X9 S, e3 U  D3 k        buf.capacity:=5000;
        buf.proctime:=0;
& r4 m6 T2 j# H& m' c. o# l- H3 o6 Q5 U        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, A: X7 ~9 m' ^" G0 Wdy:=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);
4 Z1 a) p2 C3 n7 r) rnext;
4 Y$ D# V" L! S% I" x+ W+ j: Oend;
6 y+ U7 N# |( l( _9 T" U