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

zooey

is
4 `! f8 V$ R& }& w1 }# r        mark:boolean;
2 T7 a2 n: x* P1 f& N( j5 p        dx,dy,ct:real;
! ~5 @3 H" _* n/ }    i,j,rows,lines:integer;
! f7 x3 l( ~8 y9 y    machinename,bufname:string;
! M" G( N* A4 f6 {    machine,buf:object;
1 r& x! {; X6 ldo
        current.eraselayer(1);
5 e6 S9 Q! p. L3 l# _! X! K& w6 U       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
6 Y% a! t9 l/ q2 Q2 R$ b: _6 L                inspect messagebox("设施数目不对！请核查...,",50,13)
3 p' P0 y9 x0 f6 r2 j                when 16 then
( l$ T2 g9 k! J5 i! a                        print"yes";
/ |6 {) B% s; R& j4 \! d3 O5 v                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
3 u) j% F3 d& \' k- J2 i; }3 ?9 F- A& A                eventcontroller.stop;
6 H4 D% `3 l1 h# @        end;
5 P& u6 Q  |0 C; c" i       
        for i:=1 to number_of_machine loop
0 T# t* c# F, n        machinename:=sprint("M",i);
- K; I) N# W. K- e& M+ b; b        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
  R  }5 e* f9 b3 D! v                machine.deleteobject;
1 E7 L/ @2 W8 l. |4 r& W        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
2 n4 L1 H9 C$ B        for i:=1 to number_of_machine loop
( H/ j. W0 V. Q' ^: g1 F% [/ w$ K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
1 w/ T7 [2 T. M/ Q+ E                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 w/ k+ k3 O3 y7 T8 ~                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
- E" M) P: N# i5 n" F4 o2 b0 r) \                        print activityspace[1,rows],",",activityspace[2,rows];
$ G( ]/ L# O0 v; A( E9 {                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
# r1 l' e- P  Q                        else*/
2 k- x5 V6 M( y: r- M                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
( b) _: I0 h4 q8 _, q1 r                        --end;
1 ~5 t  ?$ }) s1 a6 I4 |7 G                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 B  V" ~% x: }3 m5 n/ ]& ~                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];
# N* X. r' D- s) e+ O6 ~                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
7 A- J7 ?, @% o& h                        activityspace[2,rows]:=activityspace[1,rows];
) g0 S( }  H$ A9 D; W                        activityspace[1,rows]:=ct;
                        end;*/
* h# _. f! [) Z, |% e# Q        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);
, u$ x! U2 ~' W& Z1 e* m" A        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);
5 B. R+ \/ `- q+ Y9 v       
$ ^0 s+ `; ^: g1 a& y        rows:=0;
$ r/ q: f# {) z1 p# G' w        lines:=0;
3 M: \4 U% E- q3 f5 c! H$ O        for i:=1 to number_of_machine loop
/ R6 h' I5 ^0 G; a8 b0 Q- F. s$ x2 x                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
; ~3 `( A! _# V4 i& r& z1 {; @                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 }2 Y7 a8 s; o# ?# r; y! {                                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);
( q% M7 M6 x& r                        end;
# I6 h: G# A" W9 ~( d                next;
8 ], ]: c* R& e# A+ k9 @& c        next;
       
3 R, M7 J7 O8 y$ k1 z+ [( ?0 T, J$ g        lines:=0;
        partstable.delete;
( O! Q9 a0 K8 l7 q+ L       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. v6 l) C7 B: ?                machinesequence[2,i]:=rows;
' \. k+ N% j6 \  Q& P                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
+ e  W2 h2 c2 C3 v/ U8 v3 C8 A/ p                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ H7 U) b8 J% d. L8 x: E) x                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
+ h3 z7 W7 e, ~6 }3 X# D5 H        machinename:=sprint("M",rows);
5 z$ r3 p  N% q        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;标识符未知
  Z+ T, [( p/ k        machine.proctime:=5;
6 b/ o" C  A2 d8 l5 @        machine.label:=activityspace[0,rows];
% ~$ n- B+ @0 r/ J  z+ A        machine.exitctrl:=ref(leave);
  B$ `( Z+ O# J' J$ n% M% d       
        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]);
- w  k5 `8 L. j) B6 Y/ o) \        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
) D- ?8 z% A% Y; M/ R        .materialflow.connector.connect(buf,machine);
) V* w% u! j& z* ]- t6 l* \1 O       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 y- ?' @2 y6 j8 s, ldy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
4 p" d! G3 O" hcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
9 B0 P# A2 r6 F: D& ynext;
end;