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

zooey

is
8 l; ?! t$ W4 p; j( C6 _        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
! r. @4 g3 j6 c  Y: s. [: h; w    machine,buf:object;
0 p1 x0 V# F2 p+ t1 E6 w  z: r. Ddo
        current.eraselayer(1);
6 P) B- x) s6 L& |3 W       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
% o+ ~( R! |( K1 D& d- U4 {# K                when 16 then
9 s! U+ R# q* c. x9 l6 f. w0 M! `                        print"yes";
' W" I. K3 t# @5 E7 Q                when 32 then
( {2 U1 E; y- A. D8 t                        print"no";
- J1 x) ]/ \) }/ Y. L( Q8 I& _                else
% ]0 \4 p7 o- s$ Y; s4 s, A. }5 U6 m                        print"cancel";
                end;
6 @1 h0 _! {. W$ Q                eventcontroller.stop;
/ c/ K, J) M: M  Y. m6 g; _        end;
: B1 Y/ W5 R% [: q. _       
        for i:=1 to number_of_machine loop
% w: x2 a: q7 j& a1 n) O3 B1 c        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
7 Z6 I4 C7 V0 R, Y, l$ L9 _* X; M        end;
        bufname:=sprint("BF",i);
; S4 ?/ S/ ?' [0 Z- e$ u        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
! y1 c% G, F1 l/ }5 {2 }        end;
        next;
3 W8 o) b. H5 r& n" p% u       
" T) M5 b/ E& _& _        dx:=0;
4 n: A! J( b: H9 N1 ?8 f        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) V+ t% p" i1 N$ ~+ q% o6 B  N                then
; ?6 @# N  M) L- O6 F' l; v                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
0 {: I: ?  g; |* ^                        print activityspace[1,rows],",",activityspace[2,rows];
0 q! M) W) f0 [                        ct:=activityspace[2,rows];
" S/ Q5 j, C$ A% O# l0 L4 @                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
' b, s5 \3 I2 G8 u( f1 C, u                        dx:=0;
2 R" J( @) o& e4 Y                dy:=0;
                        --end;
                end;
1 ^3 u2 D  `. v5 K                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;
. ]& A* Q, F) z7 |            if activityspace[2,rows]>dy then
# X: o! @  R5 k( n# C                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
/ n  S! |- D" W+ {! w                /*if mark=true then
6 \8 _: x. f1 t# i7 ?                ct:=activityspace[2,rows];
+ s4 c& L3 {! T4 h. G' d                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# M9 K4 ]) y  E6 O4 i                        end;*/
        next;
6 |8 }7 q( \# q9 g. C        y_max:=y_max+dy;
1 b/ K$ Q7 R$ l) y5 g        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);
: |3 T/ k; Y! X2 `; e. Z# V3 ~: P/ n       
        rows:=0;
1 p4 H( k$ N9 \- I4 [3 o* B% W, h        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
9 q7 r% E& K0 h! U& m+ |( C                        if j=i then
                                d_from_to_chart[j,i]:=0;
9 r: h! d7 s5 L0 a: ]$ ?                        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];
. `1 T& Z1 g  O+ r: ?                                d_from_to_chart[j,i]:=abs(dx-dy);
6 t" `- W8 T- b) u  ^+ B% t                        end;
                next;
7 J6 u$ }. R1 f2 F1 m9 H, X; W6 L! {        next;
       
, z1 C; _! }4 G! r1 `8 \' D        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
7 w3 z5 S4 G5 E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 N7 N$ j8 q8 b                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
; @% K; q! b1 o6 u: W                        lines:=lines+1;
4 B4 h" p* t- Z( C0 P' u! y3 |8 [1 @% g: M                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
3 l  a+ R: w' K' e) Q0 ]                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
- Q) R2 k7 T: b        next;
        machinename:=sprint("M",rows);
7 y+ C) m9 `4 F$ p% k2 d        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;标识符未知
5 f/ ]' m5 T) c' s+ j# k& X! ?        machine.proctime:=5;
. B. r, W! z  t7 a8 `- M# n$ y        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
4 N9 ]! I' u+ I* f8 S       
- Q2 V  j7 v$ v$ N        bufname:=sprint("BF",rows);
0 |9 _& X' w% W9 w: p+ ^" e        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
6 d4 C) N5 J9 i5 j8 @2 H4 W        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
- t; i; a  N/ O2 y, |4 y       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;