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

zooey

is
+ n0 p  Z( n2 ]1 W        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
4 K5 C; Y: ]  l7 y% h    machinename,bufname:string;
% B1 R: C, X) k. ?. c    machine,buf:object;
do
        current.eraselayer(1);
. p1 H8 V0 G4 ?, s% U       
! \, y8 x$ X3 v3 f% Q  u! |7 H        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
% \. s) _" _* S% d) B+ ^  d                        print"yes";
$ K5 a7 @* K. t7 E4 }                when 32 then
7 E' B& e+ n/ B  n0 X: J# `                        print"no";
1 J  A4 ]" n2 E- h0 d, F                else
                        print"cancel";
                end;
                eventcontroller.stop;
1 g6 y+ o3 I" u* z2 g        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
4 B3 J/ L) E) b, B/ Y3 b                machine.deleteobject;
6 @1 d$ b' s9 i# A  \/ E8 ~0 ~        end;
$ E* g4 I, h/ k  n( J* L& f        bufname:=sprint("BF",i);
& j  E  B8 O5 }6 B        if existsobject(bufname) then
$ _! a. {# j4 e# T                buf:=str_to_obj(bufname);
: F& j! l- U3 l4 x, M# R5 J4 C7 x                buf.deleteobject;
4 T( j, B) s: Q# a        end;
+ C) }1 I0 i4 Y5 ?" M        next;
       
" o7 O; n- t$ A3 N+ I        dx:=0;
) `1 O, i, e5 X$ O: c        dy:=0;
% V$ o0 t8 E9 }6 Y5 U) h        for i:=1 to number_of_machine loop
1 w) @* S; T) I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 i% V5 b5 y) j8 u                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) ]' t" z- e% Y4 P                then
2 i+ m) Q- b0 L                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
2 B1 }" Q- ^* k/ x$ u- I7 S/ V                        print activityspace[1,rows],",",activityspace[2,rows];
4 }3 v4 J2 s# ^                        ct:=activityspace[2,rows];
  Q$ C5 `) K. _* p) d& A0 e                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
9 Y: d6 X7 m. M, R                        mark:=true;
                        else*/
+ i- p/ j! u& }! t& P+ I" |0 q                        y_max:=y_max+dy;
4 `: p5 Z5 V" ~/ R* [                        dx:=0;
                dy:=0;
1 Z8 y8 h0 z% p8 i, A                        --end;
                end;
& Y% Z5 Q, M1 r. \                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];
3 e* z# T/ ~5 d6 g% w                end;
2 n# J" A, A+ `- Z7 M                dx:=dx+activityspace[1,rows];
4 j: B7 w; S& J; H9 x                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
- N8 z8 R; K. Q/ E0 x3 A, h        next;
0 ~! G& n( B' B        y_max:=y_max+dy;
& a' m3 H, ]$ q& v        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);
       
: h, N4 |1 Q) w+ k& R% K# a9 U        rows:=0;
        lines:=0;
  `; S/ l1 C; p- o        for i:=1 to number_of_machine loop
" w& g' J! R0 \) N+ d+ _0 a: r- ]                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
" S! a& y9 E- R0 ^  b# w                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
9 k0 I" f5 H, F6 ~4 ?$ F                                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;
5 Z( Y/ r: g" Q$ W+ Z) p                next;
        next;
) q+ ]: b# i4 W( Z1 {, s       
6 c* m; ~* H; M* K. @        lines:=0;
        partstable.delete;
, `3 F: [* f$ R% F2 K# f" T       
+ s9 n* m& m& c8 s! E6 h& [        for i:=1 to number_of_machine loop
7 k, j; o+ f* {6 @, b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) A7 G# ?9 K' b6 u* l                machinesequence[2,i]:=rows;
+ e8 L8 t" i0 Q                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
, i' ]6 J, ^0 D                        lines:=lines+1;
( m0 r: q# }8 B$ J. c, E                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
/ a: X7 i* I# I8 q4 M% t) E                        partstable[3,lines]:=sprint("parts");
0 S9 m) _- [2 ]+ a                        partstable[5,lines]:=rows;
4 L' W% L0 c) a* u6 }                        partstable[6,lines]:=j;
                end;
        next;
5 P1 m' d: v" r; E+ p' W# V        machinename:=sprint("M",rows);
' N& P5 |- v4 Z* ]0 L* L        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]);
% U$ P+ U. E, p- |6 c  Y! U        machine.name:=machinename;标识符未知
6 l; {7 e( w1 S0 U; S( m  I$ z, t3 }        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
8 w' |2 i  H5 h1 D        machine.exitctrl:=ref(leave);
7 e9 i8 c# r- e5 S1 W2 N! t       
3 o# M/ e( m2 y6 R, c  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]);
, A  s9 C5 G1 @1 T! n" y8 O( m/ D        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
2 E4 }; R- I3 r! {; o2 u6 L7 H2 s        .materialflow.connector.connect(buf,machine);
8 F2 ^( P) \1 E& z       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ D) w/ e* C, A" Rdy:=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);
0 J7 n) b3 ~7 Z; x6 hnext;
end;
+ x' {# n4 v/ O5 n% U7 X