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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
8 d: z# c. ^* @5 n7 g0 H+ v    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
7 n' e" K  j" H( A* cdo
        current.eraselayer(1);
       
% u( _! t& y/ }/ n: ]" y9 o' f        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
4 j  Z5 {) l$ A- a7 l8 s3 F5 w                when 16 then
                        print"yes";
                when 32 then
                        print"no";
1 f/ Z7 c/ q6 w  u3 r                else
                        print"cancel";
# s1 o  z& y% F                end;
                eventcontroller.stop;
) E5 T$ k* H) B        end;
       
( u; V8 l5 h4 x        for i:=1 to number_of_machine loop
  g! @% Y5 L! U% F# n' W        machinename:=sprint("M",i);
        if existsobject(machinename) then
8 i; d$ M6 V  r3 X: u                machine:=str_to_obj(machinename);
9 L% H5 F: s# V3 d                machine.deleteobject;
# _0 C! |, P  |. Q" x        end;
+ J* [  w% Y5 a        bufname:=sprint("BF",i);
2 z( W  [- @9 M) F. B5 s- v) L        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
& P2 t8 O* V. e0 D8 ~# Z) e- M! O                buf.deleteobject;
- T' D5 \1 t$ O6 Q        end;
        next;
1 X, H2 k7 T% N       
+ W% y6 Z' u& O/ @/ A. j# }0 c1 q! d        dx:=0;
, ^* x/ `. N% y* n9 ]        dy:=0;
( Y- T' B- o+ ^5 M5 w        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 i( b1 U. P$ X6 G6 E0 W3 ]$ r% V6 p, b) a* U                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 a+ i1 [/ m4 @' y, k8 I+ C0 s! p                then
! E' y3 R' N7 Q% t+ a& n                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- g4 ]) Y9 Z: b+ |8 |1 X                        and activityspace[1,rows]<(1.05*y_max) then
7 ^% N5 @" y" x8 I8 _                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 Y' u6 Z! Z6 ~9 k$ M                        mark:=true;
& O+ C& m4 A  D                        else*/
  x0 h5 M. u# e% K+ e                        y_max:=y_max+dy;
% u- Q2 @& K, t  a) R: {                        dx:=0;
. {" o# ^, R0 G* a  \                dy:=0;
) U& J% ]0 a- m4 R7 Y                        --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;
            if activityspace[2,rows]>dy then
; {7 d$ M- Q- K* R3 V* Q, A, _                        dy:=activityspace[2,rows];
                end;
- r6 i4 q' j7 i. Y0 \' u                dx:=dx+activityspace[1,rows];
* b# v: Q9 C4 g/ E% v5 q5 h) s6 x/ I                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
1 o4 Q: f2 K9 O                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
3 q( ]: }' C  v' m8 J- g! X        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);
       
) r& O% u3 B, }) U* B. R& w' v        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
2 x& u/ e5 K4 Z% W; F# w# u. |                        if j=i then
1 E, u  f. c, s% B. _                                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];
                                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);
' R+ c. Y& c, v4 S2 ?" z5 K                        end;
                next;
        next;
       
        lines:=0;
8 s+ T# `: a+ P+ s0 F# y        partstable.delete;
       
3 G8 x+ ]) G- v" {* n1 s        for i:=1 to number_of_machine loop
1 J1 E" P! ~1 {5 ~8 {                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* T- q) [3 u0 R  ]* A! I5 K. E                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
, h: ?; ], _9 ?: h6 H                        if w_from_to_chart[j,rows]>0 then
                        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");
4 V0 C6 ~$ S! v8 o: ~1 `+ R                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
1 }' n; u% {1 `8 w7 N                end;
        next;
% N$ Y- i$ I( I8 q" G! E2 @        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]);
0 k7 S3 ^6 r3 s7 m8 E" x        machine.name:=machinename;标识符未知
        machine.proctime:=5;
* y" R) H1 e& Y0 j* N1 D1 Q        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
6 c1 @3 b$ ]) y2 q' G6 T- P$ P: h        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]);
4 d. ?/ C/ ~( Z4 d3 T# h. B        buf.name:=bufname;
        buf.capacity:=5000;
/ u' x8 z# v3 `3 t        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
# [% _9 E: [( y; s4 k- ~& Q: Q        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 P9 A! n* A& Pdy:=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);
) ]) y& z# s0 G! x2 znext;
end;