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

zooey

is
/ b7 B' a  m# p" F, K1 O        mark:boolean;
        dx,dy,ct:real;
" X) W/ p3 M+ r3 V9 o    i,j,rows,lines:integer;
3 i& c# u! t0 g/ C3 C    machinename,bufname:string;
    machine,buf:object;
+ V* O! {# l  R# ldo
( V$ _6 E2 ]; q5 f/ K4 i        current.eraselayer(1);
3 J  L& r  \9 G4 |7 q: z       
2 D* y: ?* x' r2 E        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. U, i$ g% E- {8 P/ _                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
5 D; B$ l3 k! S  N/ E# s4 ]                        print"yes";
  q, l' q6 a/ ^; i                when 32 then
  E8 r) m6 F* L6 z+ s" r                        print"no";
                else
6 n4 @! I2 j4 T, a6 x; i4 U                        print"cancel";
, v  F- y- p! g2 T; V+ Z2 N, @                end;
3 I: t4 J9 u$ ^: Q& G0 f7 c# o4 T                eventcontroller.stop;
        end;
       
$ }% E% c5 H$ }1 p7 }9 a8 \$ s! }        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
) r& U4 X3 Z+ c        if existsobject(machinename) then
$ k- _9 N; P6 b4 h, E                machine:=str_to_obj(machinename);
1 s& h, E0 c/ D! A. i, G                machine.deleteobject;
        end;
9 P" h# q1 X* A1 |% y4 J( P        bufname:=sprint("BF",i);
* O8 e; T7 T5 k0 ]2 h7 U* C. g  M" F        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
. Q6 e1 w( e, a7 B                buf.deleteobject;
        end;
) @! a6 H  U' ]        next;
, f9 K0 Z5 g/ N: N5 J+ s       
6 |; b2 _! \1 S+ b        dx:=0;
        dy:=0;
9 E9 G4 n  e6 A+ A* `" L) E        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
! j7 ?% V: M. V                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
+ ^! c! {+ H8 C3 s- z2 e                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
( q9 h) y4 W6 y6 {1 ?                        activityspace[2,rows]:=activityspace[1,rows];
% F& p2 Q4 U. H( g( X$ [6 w! A                        activityspace[1,rows]:=ct;
5 q6 X1 f- x, D- ~( L7 r4 B4 ]  D                        mark:=true;
                        else*/
3 a2 [& d% `& j- y" I                        y_max:=y_max+dy;
& g4 ]/ [8 m1 s" B" g% Y/ C! a                        dx:=0;
                dy:=0;
                        --end;
                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;
- N* Y4 l8 z# a4 D# G            if activityspace[2,rows]>dy then
" e% u! K: K9 _- F5 o8 p' M6 }) Y1 [- t                        dy:=activityspace[2,rows];
                end;
6 j  n% h/ o7 R" k; b: I                dx:=dx+activityspace[1,rows];
/ H. R  x5 W3 D8 i) \) u                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- c- T/ U% ^) R2 t# @; ~6 f0 {                        end;*/
0 {1 P2 R+ l8 i# g  U: G        next;
        y_max:=y_max+dy;
! ?& S6 s( g* V3 F; f        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);
2 r" x4 O  k& u+ e& f       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
/ F0 T3 Z8 g# s3 J* K                        if j=i then
* r, D7 v" U& E& A                                d_from_to_chart[j,i]:=0;
% ?! l" {* _6 _- P$ f                        else
5 o  S! T% a/ C' _                                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];
$ X. V& `- ]( D/ f8 n2 z' K( B                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
  a2 Q0 @7 Y6 ~0 d1 ^1 f) @                next;
        next;
* S: Z( Y' [: U% v       
        lines:=0;
        partstable.delete;
, z: p7 R$ t+ {7 |/ Z       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
0 L0 e( G+ ^0 i6 N                for j:=1 to number_of_machine loop
: g* V; j) \% k# R( g4 M                        if w_from_to_chart[j,rows]>0 then
+ @  P/ S% z3 ?( `1 `                        lines:=lines+1;
* t4 n2 A$ s) W                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 T* i( i  g( Q/ z7 R                        partstable[2,lines]:=w_from_to_chart[j,rows];
) ?5 ?3 j5 A5 H5 c0 j' |                        partstable[3,lines]:=sprint("parts");
& T* p( o) i" h4 w- l9 I                        partstable[5,lines]:=rows;
, H# m: r; x! [4 w. x: r! d                        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]);
' v8 j; I) N- f  n1 N3 w7 G2 `        machine.name:=machinename;标识符未知
5 c% K6 b" D0 S# _- e        machine.proctime:=5;
. h! X6 p) \8 P/ H6 `7 V        machine.label:=activityspace[0,rows];
' i& q* g4 ~( c: y" W+ j* [4 W* L        machine.exitctrl:=ref(leave);
       
        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]);
7 l! g4 A, b/ `6 m- w, l        buf.name:=bufname;
' h5 }3 C  D# k8 Q* B  @+ Y, R        buf.capacity:=5000;
8 Z8 x$ _% B0 z, x' Z        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
) b! f, K6 i5 U9 w$ ]0 [       
        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;
3 Q3 ?: N7 T% n9 W- {5 }$ Vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
# W5 t' x2 K* y0 i; A1 j: O7 Inext;
- A  N' j7 J5 D  {; a* k4 `' n6 kend;
6 x8 U" R" p" O/ Y  c& y1 q