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

zooey

is
1 T: n5 I/ m3 ~5 B& ?2 ?( b8 a        mark:boolean;
4 s8 b8 h8 g: ~1 G$ L4 I        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
( v; k6 b) E( d- t; `( ]# A  e    machine,buf:object;
do
- v( Z) R  ]! h: w( L        current.eraselayer(1);
       
& |% E1 l: ?* i% N% y0 _        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
5 q" t0 ?3 V3 \2 t( l! T5 b3 Z                        print"yes";
                when 32 then
/ }" Z- V6 G0 j% K                        print"no";
                else
6 ~# q5 y$ k. E2 P1 P' ~5 D& R; F                        print"cancel";
                end;
1 S$ m) `& f- P                eventcontroller.stop;
        end;
/ P- U8 _6 v( a7 r       
        for i:=1 to number_of_machine loop
% C3 W5 }. z) C. I. F$ S4 B        machinename:=sprint("M",i);
+ }: v' m" [; g( |- Y- o' r  U        if existsobject(machinename) then
7 s! L9 z7 R+ p" o2 x                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
5 q. U5 Z9 C' M" {        bufname:=sprint("BF",i);
        if existsobject(bufname) then
; p) {( @/ X0 W& J4 n' Q                buf:=str_to_obj(bufname);
) w( d7 x8 {8 b* u, x9 c) F6 h                buf.deleteobject;
        end;
        next;
" f0 t; _5 Q' O6 i3 G       
2 c% V4 b3 A. Y% P( _, F- O        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
0 e; c" `$ n! c$ y# {& U/ y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
( O2 W+ {( f6 X1 n8 F  @( n; ]                then
2 C8 ^, p1 k! @( M5 f( {                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
3 u/ X7 Q$ ~; O1 V8 {                        print activityspace[1,rows],",",activityspace[2,rows];
# H, l0 w7 K0 h! X. c# ~                        ct:=activityspace[2,rows];
" a# c4 t; ?  i! y                        activityspace[2,rows]:=activityspace[1,rows];
! g7 T: l5 e; }  R' ^" D. p                        activityspace[1,rows]:=ct;
                        mark:=true;
1 f; W1 p" x& ~3 X" e$ ~                        else*/
) B6 Y/ P. H0 s* l6 w! e: O                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
8 ?3 S5 K$ T* \, i8 O7 g6 [- z                        --end;
                end;
# a$ n2 X* L) n$ |9 c+ h( G$ Y                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 i( e( P' |7 L& k+ Y                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];
                end;
5 x3 \! O+ j2 x. ]9 s7 p9 _: t                dx:=dx+activityspace[1,rows];
) ?  J" t3 {7 [                /*if mark=true then
                ct:=activityspace[2,rows];
% V+ E+ }" w( s                        activityspace[2,rows]:=activityspace[1,rows];
) b8 V; @5 u- g+ s# i( g6 g2 d" z& U                        activityspace[1,rows]:=ct;
                        end;*/
        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);
3 H! @2 Y9 u! W& N$ g        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);
       
) o( c/ D$ t# j        rows:=0;
        lines:=0;
% d( m/ ]; u! f4 X8 t0 E        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
1 V* W1 f- B! q3 `& I1 E                        if j=i then
8 S9 p# _1 u  X9 n' X) q& E; B2 B( h                                d_from_to_chart[j,i]:=0;
/ ]4 A1 Y' u& `# N7 D0 `                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ k8 \4 F; I7 S) ^  z( M                                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;
        next;
0 @8 R8 D  u5 \& r. g5 o6 g       
: F8 J3 v# U, F' J4 c( l; w5 A: a        lines:=0;
% D5 n5 W2 ]1 i! H5 M        partstable.delete;
       
3 U" s. {$ H4 @+ r. x  M        for i:=1 to number_of_machine loop
% ~7 m. {' ^* m7 b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
# o3 T; l% p; P/ e* z$ n                        lines:=lines+1;
+ i5 H6 o, N5 \) Z, p                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
+ J7 P, w2 a& Z# D                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
( c( e0 B& w" N& v3 b, J( w+ k" |                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
' q! u. v# Y& ^- V                end;
        next;
        machinename:=sprint("M",rows);
/ A  b# v% A) i2 H" A& l# L5 X        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]);
8 c* P5 F! s5 s3 [2 K        machine.name:=machinename;标识符未知
' v) b  X# N+ }$ j: T# p% d        machine.proctime:=5;
" O+ s9 I- ^# e9 n+ i        machine.label:=activityspace[0,rows];
9 O# V6 O8 @+ s        machine.exitctrl:=ref(leave);
) f  q2 L+ s* Z/ W, E/ a7 `- [       
5 U( h1 `# Y1 ]3 P        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]);
! g5 ?5 l6 Q; P0 L. a        buf.name:=bufname;
! w$ o" }: [. {: I        buf.capacity:=5000;
' @' a$ A$ z, z0 t( ^" w, ?        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;
+ f& f! F  |* v- Q( a: `1 i( Ccurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
0 F1 X. ?2 z4 y( wnext;
end;