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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
/ D2 }' q/ I! Q' e    i,j,rows,lines:integer;
; x* a( x5 W/ r5 K5 K5 q8 h6 u7 ^6 h    machinename,bufname:string;
: N& v" F9 Z1 ^! f% d( [8 @$ ^9 R    machine,buf:object;
do
        current.eraselayer(1);
4 r4 F6 T% G8 n6 X; c0 @" Z# f       
) h. \+ f7 {9 O5 l: ~        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 ?  P; L/ @+ ~+ R: q# `* q, E% A  h6 k                inspect messagebox("设施数目不对！请核查...,",50,13)
  Q: d+ ~" C9 B6 y                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
/ F) M! q( C4 I& v- O& H       
- {* T: I6 x2 r+ r1 k2 T( q        for i:=1 to number_of_machine loop
9 |3 }0 ]% o6 O, [4 z        machinename:=sprint("M",i);
5 H" T$ c' H4 u/ W  v        if existsobject(machinename) then
# m- ^. ~  v4 V6 K                machine:=str_to_obj(machinename);
4 M, p! c4 ?1 @, R; d2 b                machine.deleteobject;
8 z: ^. m! ^9 A- o6 K        end;
, b' M7 o  X8 y& ?0 r        bufname:=sprint("BF",i);
; }# `8 G( L0 a' H# b        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
6 |6 F9 W0 R/ c( u                buf.deleteobject;
0 A1 u8 j; R1 E( f6 P6 o) |        end;
        next;
       
; K  r( _( O% y4 M        dx:=0;
        dy:=0;
, N( Y5 N+ X' }; n- |  `' g& z        for i:=1 to number_of_machine loop
# x. M# }4 u1 h                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 E! Y! I9 h- {  ^                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
7 J0 G. \6 Q" a$ p7 Y( y( k. p                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) {6 l, Q1 d  Z                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
9 M& Y, x: E0 H. C, ^" H' H$ w                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
$ K  _$ f2 ]& u7 |% Q4 i2 c+ U                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
" V# y* n- P3 k: H% e- p9 P                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
* D* B  o6 N' [) d" k  ^                        --end;
                end;
0 C# S$ d+ c. E; C: l                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 b, \2 {9 G% L. i  E                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
, B) a; T( y" S6 S! v7 @1 J            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
' A! U+ B, i, P! ^8 ?8 G7 R. B                end;
" k# f+ R6 b: F                dx:=dx+activityspace[1,rows];
* y, P) u  E$ m0 o! u                /*if mark=true then
, S* q  d4 P( l2 ^                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- M0 K! J7 p6 o) ~) G                        end;*/
        next;
        y_max:=y_max+dy;
+ n8 \8 O& B: H( c& S        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);
       
  G. R6 q' J& R2 L0 L        rows:=0;
! A' q6 p7 Y* C+ O" G& L1 o# F7 `3 i        lines:=0;
+ a; q; U% t; ^: |7 x/ u! M. {        for i:=1 to number_of_machine loop
4 C" G- A$ s2 f' z: z, c5 U                for j:=1 to number_of_machine loop
                        if j=i then
) V9 ]! d/ K2 j- s- l! ^- P                                d_from_to_chart[j,i]:=0;
  X0 |2 S+ D2 Y5 ]8 a4 j; E9 y                        else
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
  r* G  l8 Y. X2 D( v9 q$ p        next;
" s& ~9 T! q  Y& _       
        lines:=0;
        partstable.delete;
4 g5 H; x+ R( W       
  H6 R- {( F) M1 E) C        for i:=1 to number_of_machine loop
2 t7 j7 N/ r4 r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 v6 r( \( E  |8 J                machinesequence[2,i]:=rows;
/ c, b) h$ S! l$ I3 a* r                for j:=1 to number_of_machine loop
2 u7 m* B, a5 N                        if w_from_to_chart[j,rows]>0 then
: Z, G1 ~, G4 `# b                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
$ {# z8 m' e" P' j3 ^6 M) {                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
! w) ^. Q" S% O3 ~5 a9 q( C                        partstable[5,lines]:=rows;
3 c. ^/ W" _% z                        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]);
        machine.name:=machinename;标识符未知
# c5 ~" G, C4 w+ ]8 E" g& r        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
, Q; W( ^! z% ?/ P        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]);
5 }% `  G" u  l) b7 b* L5 Y/ j" F        buf.name:=bufname;
! Y* s! `4 W+ ]        buf.capacity:=5000;
3 J" v( W" F8 R3 j        buf.proctime:=0;
! j" |) |2 z$ l1 U1 z8 ]        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" N( H+ t$ O/ O* V% y% [dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
: n# F# B, e& _$ K: u9 [8 t5 ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
. D6 O- x# |- W- P6 a* Fnext;
end;
$ h/ C% v( n$ o( T