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

zooey

is
/ q& J  N0 p4 p( [( J' S9 Z        mark:boolean;
$ u+ x; j2 H& A- \# T) g' w        dx,dy,ct:real;
  K9 M" p7 v# l: F1 m    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
' }+ `# ]8 A1 v+ M. Ydo
        current.eraselayer(1);
' [9 e9 Y! v$ I# t( X# z       
0 k$ e' b" S8 X" l" i: I& k! w& V        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 Z% H; P% U) h* [" ~5 k0 Y! \                inspect messagebox("设施数目不对！请核查...,",50,13)
% ~+ C/ S, `5 d, P, V                when 16 then
( ?" I6 o& W+ Q. b  B; y/ g! Q                        print"yes";
                when 32 then
                        print"no";
                else
* X2 J, H& j1 F) G% M4 B. U                        print"cancel";
2 a; [5 K: X, g' Y# j                end;
7 u. G/ u5 s9 D' k7 ^                eventcontroller.stop;
2 Q) `0 ^) _1 e; e6 x        end;
3 ?) @! `& X; J+ u: t" H8 B       
7 v) c3 B% O: r, q        for i:=1 to number_of_machine loop
, J' n: ?& u5 l        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
$ a( Q4 b, Q$ B5 g. J# H( q                machine.deleteobject;
+ q+ w- }' J9 A& s6 _. {        end;
$ T! E6 K3 v7 E5 Z5 F        bufname:=sprint("BF",i);
9 U# h0 y1 c6 ]- J8 G        if existsobject(bufname) then
( E+ t) a/ }) k0 h0 H6 q4 I! [                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
  p0 U% {. V( u- g  x8 g       
- b' S. \1 o( s! X8 X8 K        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 ]5 @; i2 k, d+ H1 u3 B* n7 L                        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];
                        activityspace[1,rows]:=ct;
# C* h7 G! g8 j# n                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
% G* v7 a( t" {                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];
                end;
) x; N% @, [( j: F& t3 y% I. ^+ |) f                dx:=dx+activityspace[1,rows];
. X" @) g6 K9 J8 y. |5 I! H                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
' |1 F! r9 Z2 Y! N                        end;*/
        next;
" x2 m7 U0 K, \0 k7 |        y_max:=y_max+dy;
- \' F: ]' b& R7 z4 p# T% r. e        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);
! b& D1 u# Q0 c       
" J3 J* [, z2 `9 F2 H) U  G        rows:=0;
        lines:=0;
. ?: f7 u# P! g        for i:=1 to number_of_machine loop
# R7 j- }5 }  x3 S! J                for j:=1 to number_of_machine loop
; c5 O7 q0 |) P$ q# r                        if j=i then
5 O$ T) H1 _: T+ A" t                                d_from_to_chart[j,i]:=0;
) _( o  v6 l( h* j, S                        else
$ B* K2 b/ `, P                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: o: v7 _. I) k: q                                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);
                        end;
; j6 k' E* f7 S- w6 O( S% G                next;
& I# R/ Y, V! e; h% D        next;
       
8 V& A+ \, Y* g8 v# }        lines:=0;
! k! }  o* d! H; {7 O3 n" D        partstable.delete;
+ u# h6 q$ O" A, m, z2 c       
        for i:=1 to number_of_machine loop
                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
4 v0 L! d4 ~6 i# P: d9 K9 K                        lines:=lines+1;
3 l, V! @. y& l                        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;
/ ~; O6 z$ I1 ?1 W7 U& k1 ^: X                        partstable[6,lines]:=j;
                end;
        next;
" ~. |1 Q+ i8 _* A1 l        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]);
+ S8 I* ^, {3 o8 H/ y( p        machine.name:=machinename;标识符未知
. r- m# ~- j) w  }        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
0 b6 w* u' s3 U5 t) o- x; F        machine.exitctrl:=ref(leave);
$ ^) A+ R. t1 G1 Q8 u       
/ W; q! K: P+ v3 I* Z, _( E        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]);
; @3 z5 _, j9 F& ^: U        buf.name:=bufname;
  ?, ^+ F% }3 b7 s7 @        buf.capacity:=5000;
& U+ C7 m9 ^4 r        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
( b4 j; x" B$ A3 y. y) R. ?       
, c' {) `+ ]! S1 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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
) v% O5 @) U: @- n+ C* vnext;
end;
9 [( d7 {) V; T