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

zooey

is
8 ~& F& f  n, z3 C" h& I- \' l! H( p# L        mark:boolean;
        dx,dy,ct:real;
; Q& c& }% Q/ L# n. \7 V7 B$ Q    i,j,rows,lines:integer;
    machinename,bufname:string;
- l- _! b- L/ A! `5 V" c! W    machine,buf:object;
do
; x7 R( D, u! y: Z        current.eraselayer(1);
; ?4 [3 V! k0 {$ o0 @       
        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
  L2 u; o5 q; p; U( |* ^! F                        print"yes";
+ Y) ^: ^. U0 A# t! U                when 32 then
                        print"no";
* v( L0 V+ e6 j# [& v. x6 f: r                else
                        print"cancel";
                end;
8 Z. M. U& z8 f7 ]* z                eventcontroller.stop;
. O; _/ m3 E  k: M        end;
       
        for i:=1 to number_of_machine loop
2 X. v  {1 X4 Z: F7 ^        machinename:=sprint("M",i);
4 }/ Y/ F# y! ~        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
* e2 t2 m' \  ]/ o3 e                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
6 N" Q  p) k$ _        if existsobject(bufname) then
; N7 ?9 L4 a; \                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
) W* s8 {+ p4 _: r       
        dx:=0;
        dy:=0;
" A3 o; [9 A# Y* W( O9 H        for i:=1 to number_of_machine loop
; ?+ @3 L# I# e/ a+ W- Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 i, q9 L# P' P                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
# z6 q8 a$ W/ r5 A                        print activityspace[1,rows],",",activityspace[2,rows];
; v0 y9 T6 K: I: d0 h9 K6 h2 P                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ P3 d+ g9 X& p' D. G8 O( h                        activityspace[1,rows]:=ct;
                        mark:=true;
3 ?* H% X1 E  t/ s* o! w                        else*/
7 y4 q6 {  K6 u- H                        y_max:=y_max+dy;
( \5 r* S" Q. A& s6 }                        dx:=0;
# Q) X4 h% X3 q. Z3 e2 X* \                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
9 J7 V4 n/ X; a2 @7 H* w6 \* Q                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
; u5 E8 R; v4 f2 r# J' ~            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
# ?* j+ g7 J2 k4 ^# X. D" b                end;
3 ^9 b6 Z- r2 A  e                dx:=dx+activityspace[1,rows];
4 y5 H2 y5 C) U  o/ e                /*if mark=true then
. D+ D8 M- z( T# d5 V2 w7 b9 k                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 z$ d3 e3 i4 E, F* [( I8 ^  X                        activityspace[1,rows]:=ct;
                        end;*/
; \: U9 u+ A- N# n) o  y        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);
/ _7 b4 _7 F: |7 [7 ?& x        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);
       
        rows:=0;
: W: \( S1 b$ T5 G8 @( [) E        lines:=0;
: k- L' ]. U, j# p& f        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
. E% z/ P0 B: K* o: J                                d_from_to_chart[j,i]:=0;
                        else
) t- ?8 }( J" ]' o                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ c& o( x4 c+ ]8 \  d+ w                                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;
       
( z3 r! x% P9 `0 r2 X/ N        lines:=0;
7 ~7 S) C1 b5 p) U        partstable.delete;
: C" J3 I, R/ @3 t       
        for i:=1 to number_of_machine loop
' L9 D( R: R: W$ R7 L                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* c1 ]; t2 W' [; ?6 S                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
+ e+ j5 y# G/ i2 J  D0 l                        if w_from_to_chart[j,rows]>0 then
/ E" {. W+ y% r; T                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 L5 m& h& t4 m                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
9 P6 L% A6 l4 c# ~2 ~9 Z0 ]                        partstable[6,lines]:=j;
) u; g- i- t. h) T4 w1 c3 x; j2 e, S5 P                end;
# @4 R0 G4 I* J/ F        next;
        machinename:=sprint("M",rows);
4 o, ]- H3 h, i% D! B; z; I        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]);
* A& q; @9 G" r$ D* p7 ]; a4 Y        machine.name:=machinename;标识符未知
' ?9 ~: I) t( Y        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
8 [7 [! ]. H& q# l       
        bufname:=sprint("BF",rows);
0 F. z& l1 T* v4 M- E1 c5 f        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]);
3 f: |2 Z: `/ {$ C4 R4 U' O+ z        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
3 f4 V: d3 ~* f, s: D        .materialflow.connector.connect(buf,machine);
       
9 R8 t' m" l) S5 Y- ~; g" V        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& Q- F3 W' Z8 [7 S/ ]: ~; x  ?dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
% O2 x* M3 x# k: Q& w5 }current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
, o; Q$ r( C! s. m( |next;
end;
0 `" J1 Z) |. n! ~6 S/ }" G: J