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

zooey

is
, }! h; F4 J( E- {/ g2 q5 ~        mark:boolean;
        dx,dy,ct:real;
5 ]) ~$ D2 ?0 h! D( R    i,j,rows,lines:integer;
" M+ Q. B* O) h4 K8 v2 D/ Z! f& q    machinename,bufname:string;
0 x9 K' e: o7 S9 j" n1 m# R$ A5 N( A    machine,buf:object;
  W  S7 f& V+ A, o5 @4 r& ?do
+ L# E9 u. Q( @$ @        current.eraselayer(1);
4 H2 s' O& m7 t       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. e! E3 P( {/ p* _; @* q  I7 [                inspect messagebox("设施数目不对！请核查...,",50,13)
9 H) A& G; s+ a9 ~9 N( O                when 16 then
                        print"yes";
: }( t' w& q% e5 V7 e% n9 |                when 32 then
                        print"no";
# X+ [% u2 X) [+ |3 Z( w' ~. A8 T                else
: l3 g( `2 @* B                        print"cancel";
                end;
2 H+ f" d' b0 S) v/ `: s( L$ m% Z                eventcontroller.stop;
        end;
% l# R! C/ D0 e$ I) z       
        for i:=1 to number_of_machine loop
0 b6 z: A0 u+ R) C$ i  x        machinename:=sprint("M",i);
- B3 P3 I+ j3 f; Z' K2 V! n4 n        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
. m* Q, X" q7 Q                machine.deleteobject;
. _( Q" |: X% s6 L        end;
/ z2 l4 g) W, Y* R. [8 s        bufname:=sprint("BF",i);
        if existsobject(bufname) then
# i( a8 R8 O0 k# ^2 U0 Z9 Y: v                buf:=str_to_obj(bufname);
                buf.deleteobject;
: a# a0 G* m, h/ Q7 T3 D0 B( I        end;
        next;
       
* y; ~4 Z$ E1 A        dx:=0;
+ ]; U1 x: W: c3 |2 k: h" Q4 j        dy:=0;
4 C( O3 z7 E- g8 i3 j  b3 F        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 ^# T; @1 i/ g# x: I" M, V                --mark:=false;
, V) |- s! Y2 b. x3 e$ A7 X8 d                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 q7 ~* O9 H$ m- j% t                        and activityspace[1,rows]<(1.05*y_max) then
, ]: f) F5 H7 Z. k2 f+ C4 i) {2 m                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
+ x# \. {/ T0 I- V, D                        mark:=true;
                        else*/
' c+ X/ {0 ?3 O0 C; g                        y_max:=y_max+dy;
: E6 g( u3 F0 P$ R                        dx:=0;
                dy:=0;
                        --end;
                end;
% X& E# \, P; ~1 j( U6 D                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;
( U5 v8 I6 _: W8 S; f* p            if activityspace[2,rows]>dy then
! e9 R7 s+ f9 M4 g) B                        dy:=activityspace[2,rows];
( K0 T- ~! Q% X3 A                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
( L. Q$ P2 \3 ~/ m: b                        activityspace[2,rows]:=activityspace[1,rows];
& J7 w, i( H- v, p1 K                        activityspace[1,rows]:=ct;
                        end;*/
) ]2 e; }1 ]% M        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);
& P5 Y1 m$ a# d! K( X9 d        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);
       
8 a5 Y9 w2 m6 D        rows:=0;
; E9 r; ~+ p5 X; a8 C        lines:=0;
. a8 c) o! R, ^$ m/ x9 P" C( q        for i:=1 to number_of_machine loop
) m+ ~; Z( _" g( H                for j:=1 to number_of_machine loop
                        if j=i then
) T0 ^, f: c8 R/ P                                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];
/ r* S& f  b- U1 e1 A, l' K8 N                                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;
                next;
        next;
# Z5 J" M4 H) _7 }, E* }       
        lines:=0;
( J  Q% x2 G; m8 h' s, r5 J2 S9 B. i+ z        partstable.delete;
/ T9 S! P7 }& C, g  Y       
  j% ?1 x5 |: o2 g- W8 U        for i:=1 to number_of_machine loop
1 J: s/ f- N% z& V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 X6 y1 X: n; V2 Y$ @                machinesequence[2,i]:=rows;
. J% ~; o- r  X& a) d, O                for j:=1 to number_of_machine loop
; h( N; S5 U* k                        if w_from_to_chart[j,rows]>0 then
9 @* A/ @  c! D: T                        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;
                        partstable[6,lines]:=j;
1 h9 p1 a+ p% m1 U5 _( [  N                end;
        next;
$ i/ _) H* N7 c5 S+ k) H        machinename:=sprint("M",rows);
, i" o; I  \8 k9 @0 S        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
6 X; [( |3 t3 l$ y, J' p  i       
        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]);
& L! b$ M9 |/ ?/ O4 g0 U. w+ j' m) }        buf.name:=bufname;
, ^: h1 m8 H5 \6 i$ Q! c. {        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
  Y6 S& T  f( z" D& B. P* t- M6 ydy:=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;
1 u5 A' r0 @+ F* K# M& X8 k; O) jend;