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

zooey

is
4 h8 M( L8 n$ Q7 V5 \) }, b& ?# `        mark:boolean;
) j% S( \" z9 N2 {8 m! f6 k        dx,dy,ct:real;
* ^+ q5 `: }2 p; @+ U9 H8 L    i,j,rows,lines:integer;
; ?4 {& ?3 x2 F, r( w8 q8 |. a0 B# n    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
2 d3 x. t# i) `4 G" v/ ~% M% o3 l' l       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: L$ D! Z) p# L& I4 y                inspect messagebox("设施数目不对！请核查...,",50,13)
4 e+ n: M7 S/ R" R5 W  n* Z                when 16 then
4 U, \3 w8 N, L. x! a, h                        print"yes";
; T' g' h  b& g5 R- ~& a                when 32 then
                        print"no";
! o  q5 i8 h. x7 |                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
  E& M& ?3 c8 O% S       
9 m: s  f% W- V% d        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
) Z0 s' \. ?) @. Y2 w% \. z- f8 r                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
, a+ Y9 `& Z- n8 ?0 x9 S  K        bufname:=sprint("BF",i);
        if existsobject(bufname) then
1 [( u3 b3 \( D# X                buf:=str_to_obj(bufname);
. o" F! q/ k% ?2 ?                buf.deleteobject;
; {8 C+ l; }+ j8 R. j        end;
        next;
       
        dx:=0;
; _  q$ h. V- L8 U' E% e        dy:=0;
        for i:=1 to number_of_machine loop
8 f/ d8 E& w- v. t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
' o4 j8 Z- L0 u& T                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 V' A2 v) Y7 r4 x                then
  Y. o2 W5 ?- q! i  d                        /*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];
                        ct:=activityspace[2,rows];
' i7 K! _" O9 ?                        activityspace[2,rows]:=activityspace[1,rows];
% {; T) ~- m0 o                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
6 S% z: Y2 O7 k  c, G' m/ ~                        y_max:=y_max+dy;
                        dx:=0;
  D  p/ B; F  R                dy:=0;
. x3 b" z9 S7 \: n                        --end;
) J3 R# ~: V  E, }5 N                end;
: d( z9 t' E* G# 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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
  p0 M. e6 l, n2 S0 B                end;
* J5 y% K% c9 n                dx:=dx+activityspace[1,rows];
4 A, `/ {% w! K                /*if mark=true then
                ct:=activityspace[2,rows];
' k2 a0 [1 Z$ C( \+ T                        activityspace[2,rows]:=activityspace[1,rows];
$ v3 }% I& J5 C                        activityspace[1,rows]:=ct;
' E) A; a7 t  t# |4 v                        end;*/
! p0 i8 ]; m" ~, c& N        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);
        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);
9 u4 Z( J  D: U- t' l1 Q7 H8 q       
' Y' T+ q6 _; g+ l1 G' |6 U        rows:=0;
& F1 m4 l% O1 w        lines:=0;
1 O1 Q, \+ k3 u! F0 s3 E        for i:=1 to number_of_machine loop
! r3 f  g( f  e$ h                for j:=1 to number_of_machine loop
* W" h- ^* _, }/ u                        if j=i then
                                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);
$ J7 k* q. d  |6 m                        end;
8 P+ W: i8 w7 D/ }) }$ u( N' h; j                next;
        next;
1 u$ I# V7 a/ N# F6 v, p# ^! g       
0 K: r% R, d  P6 k$ t. q9 b        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
' h7 V1 v# `- G: r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 b' d2 }4 M3 w' V, u. R4 u) Z                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
4 ]. h8 i) U9 B2 f1 J9 b1 g- o                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
) d. N5 {/ }9 O: z  q% ^* ]# J                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
" ~( @. a4 v* ]                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
7 q. B- W0 D% C; {; V( R) ?        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]);
2 ^3 z+ q: I' }0 c; k" c9 r        machine.name:=machinename;标识符未知
+ Z2 `) \$ k1 S9 o! l# ?        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
3 L% a* c1 y4 P9 M8 Q        machine.exitctrl:=ref(leave);
& b0 H2 Q$ B5 K$ i  D0 R       
" K# v3 o' `% a) H# F) ^        bufname:=sprint("BF",rows);
. ~7 F# k# K$ L; Y1 A+ v        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;
        buf.proctime:=0;
$ Q& C: a8 C: E! L! c' N        .materialflow.connector.connect(buf,machine);
. E- e) `5 W1 _) v       
/ m  p+ `: H, X- l- t2 S        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;
) ~# {/ h. t& Z/ Kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
! ]3 c& d" b# [7 _end;
6 n+ t5 R2 |7 W4 K7 a% K