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

zooey

is
! b! f3 v! M. _0 X% j. ~        mark:boolean;
7 _. D- E0 X& z! }- d" f/ ~        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
6 L  I* B1 ?7 {+ g0 D    machine,buf:object;
do
; l5 q) o4 F$ X. V( o        current.eraselayer(1);
. D: m8 b" j* Z9 ~# v       
        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
                        print"yes";
* J1 q# R+ r, `9 I0 q                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
* v( }* R3 T; h                eventcontroller.stop;
( f. v5 G% U1 G3 n+ }        end;
; x1 b% T  U8 @       
( I. B, ]' [2 e9 j        for i:=1 to number_of_machine loop
$ E( J4 M6 V: y2 i. C6 E        machinename:=sprint("M",i);
        if existsobject(machinename) then
0 Q  q1 w6 l3 P1 X9 Q                machine:=str_to_obj(machinename);
3 r7 {& G# H: h1 Q* O3 f  ^  X                machine.deleteobject;
        end;
: p- S% I% ^3 B3 S; f        bufname:=sprint("BF",i);
        if existsobject(bufname) then
% W" ~* @4 Y  H1 A3 E$ a                buf:=str_to_obj(bufname);
4 Y5 a  z: E& Z3 k7 H, Y8 y                buf.deleteobject;
        end;
# J7 C1 }$ N2 i4 F  n- O: e        next;
* U$ j$ e" W7 P/ d       
0 q" S. D& B, X        dx:=0;
, C% T8 Z. J; Z" ^5 a( V0 }4 Z        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 o/ e, \6 n5 k                --mark:=false;
7 j* |* _7 X, R1 I& K% }                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
" b1 N/ L3 [# o- A( h. h  ^                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
: t" \9 W. B, J! B, y                        ct:=activityspace[2,rows];
7 {+ B* }* C2 u  j% p( ~0 g& x" Q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
2 S& r3 I5 C. `; L                        dx:=0;
                dy:=0;
                        --end;
+ w" U! m, q! q7 W                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: C, w4 f! J2 k3 i! I  ?                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
( s+ t% e8 N3 T3 |  ^. o            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
0 y% {# z' l! h& F                end;
                dx:=dx+activityspace[1,rows];
$ J3 c) t2 @/ S$ V' A5 V- f, B                /*if mark=true then
  K, E: x4 p( V1 x+ m8 {* L) Y                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ N0 E0 @4 L; }0 ?1 S                        activityspace[1,rows]:=ct;
! e6 E) @( N$ ^# t. m                        end;*/
; b% i6 n4 j6 c9 p# [        next;
2 H& f; x' s7 y# W        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);
        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);
       
6 v* ]! ~0 Z# T# _7 I+ Q        rows:=0;
) z( |! ~4 p; C4 ?7 l        lines:=0;
4 t2 _- ?; J+ \  a* v9 v- n        for i:=1 to number_of_machine loop
% y4 \) e' K  E/ v+ X1 i) b% z6 Y                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
+ S7 U7 v5 m6 ]3 _+ u0 X                        else
5 L; u  k& N9 K5 J" M" D                                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];
, L" t8 r: @0 D* O6 y  j$ }  Q                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
: [/ W* y  c/ T$ R& b       
        lines:=0;
) }7 ~8 m# |, Y! D. E        partstable.delete;
       
        for i:=1 to number_of_machine loop
* y$ K# r, {, G  x$ g; k% C                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ a( C5 Q: x& P0 b5 k                machinesequence[2,i]:=rows;
1 x: l$ J& L# x- ^. H                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
1 s; u) v. ]' D& [                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- M; ~/ J( n+ a                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
8 Q. O( P# [; V  o                        partstable[6,lines]:=j;
                end;
) B! \, q' O0 B5 a2 v        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]);
9 m; g5 n$ e) G1 T3 j$ c9 p9 G% i        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
/ A# C6 |7 _& R        machine.exitctrl:=ref(leave);
       
. M- Y; P/ s3 Q, `        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]);
        buf.name:=bufname;
- V6 i. U# Q- T' Q' _        buf.capacity:=5000;
        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;
3 P/ @; H& F/ l! T- k0 Acurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
0 @+ n: g  i" r0 P/ n* ?/ N* ?next;
3 J9 Z3 a" Y6 T* p' }( Q2 Lend;