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

zooey

is
) E( ?9 K, L# J6 T        mark:boolean;
2 }- P6 Y. N8 @        dx,dy,ct:real;
  x, s# _; B- M2 A8 P( }+ s% s: I& \    i,j,rows,lines:integer;
    machinename,bufname:string;
8 U$ n2 z2 W2 X8 O& J$ V    machine,buf:object;
( a; Y: M# ^6 Ddo
3 ^; M3 G4 u# T! X+ }3 D( C" y% V. E- k        current.eraselayer(1);
3 d* S: E) Z5 j       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 N/ ~- j2 E3 f( {- d3 g* K" X9 j& c                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
5 Q  Z& S- ?6 \* ^2 b4 ~                when 32 then
                        print"no";
' o5 e* L$ A9 B1 Y                else
6 o+ S' \) Z; {; P3 R                        print"cancel";
                end;
4 F' m. a; M' [4 R; d& O1 T                eventcontroller.stop;
        end;
       
3 t" S# _1 N! z2 u$ @. h+ u- z        for i:=1 to number_of_machine loop
. h, F) x6 U8 z- v& B        machinename:=sprint("M",i);
        if existsobject(machinename) then
( V% W, D" a# L# w                machine:=str_to_obj(machinename);
                machine.deleteobject;
" U! s4 s  b1 V        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
" K- Q! E* U' ]4 c! S$ L                buf:=str_to_obj(bufname);
                buf.deleteobject;
% E/ G1 Q4 s7 l* s8 c- n+ r* \$ N% ~        end;
& I" U# K1 e/ X) K/ t        next;
       
        dx:=0;
7 `* N7 Z) y; u2 d. c        dy:=0;
2 c; _- I' @. x. \        for i:=1 to number_of_machine loop
" _: i( m7 x% [. I2 f+ y$ j                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- O) t$ p6 ~- F                --mark:=false;
. r9 [8 b/ J2 {  ~1 x% E' ~/ {- R                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
; }- j+ N! Y' H; e                        and activityspace[1,rows]<(1.05*y_max) then
5 b7 N/ g7 @1 S0 ^6 k& |4 }6 A# G                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) F2 o, S, L( Z: a% D. ]  Q                        activityspace[1,rows]:=ct;
                        mark:=true;
$ l! d- I1 i- ~( I7 }6 P. t3 e                        else*/
' g: C0 W* t. n+ S  ?: I. O2 Z                        y_max:=y_max+dy;
" d* h- @% P) G, d, V/ \* p  r                        dx:=0;
7 W4 \$ G5 R& Y0 b  K) H                dy:=0;
9 @4 H6 E# i/ S7 {0 C                        --end;
; V# z" j* I/ s: s9 V- h' ^                end;
/ \! B0 r$ l" Q( S                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" X9 e: m/ T3 ?6 g                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];
2 K- g8 J( D" B) a/ H: T) I  T                end;
2 }7 `' L; V4 j! `% O                dx:=dx+activityspace[1,rows];
( t1 v( l; N# e% C5 x# }/ D7 T                /*if mark=true then
% v. z8 ?9 y' G, {* O4 @* Q% Y' t                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
; b# \+ a" f9 D% j& K& I- Z                        activityspace[1,rows]:=ct;
" w/ w# m9 ^4 p: d* o* D4 s                        end;*/
% Y) v% J+ `( ^% m        next;
, h8 l1 y+ z" @+ k+ u* e        y_max:=y_max+dy;
2 u1 d/ Z& \0 Y: Q        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);
2 O& A0 N, y: i2 d        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;
$ ?# h2 A$ t- C9 }( E9 F* l        lines:=0;
' B3 X% S# a# k' B        for i:=1 to number_of_machine loop
6 u+ b1 w. d2 T( l" K                for j:=1 to number_of_machine loop
' f1 \/ }5 C1 w4 ?" P) e                        if j=i then
                                d_from_to_chart[j,i]:=0;
4 w  k3 L  Q6 f, L" B) h                        else
$ u. Y% m4 S; ?% R6 s: G* M                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 m: o9 d5 E. [4 q                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
' h* ]) O% l/ w2 a                                d_from_to_chart[j,i]:=abs(dx-dy);
9 a' y' `, o9 p1 S                        end;
' X8 `  M. d% i' L4 E7 z7 ^7 F                next;
2 h4 ^7 }. n7 Y9 C        next;
& g' L6 z9 P' Z2 p7 ~" K       
# O, l1 b6 l5 b1 H' k' d$ o        lines:=0;
        partstable.delete;
; k9 K5 d- v% A; d3 |       
        for i:=1 to number_of_machine loop
$ d' t- c# I. q# Y& X                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% M- l' G& a  G+ ^+ F                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
7 |- s5 N! y% t. `* ~                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ i- h) j* J: v- b+ Z+ Q7 M# v                        partstable[2,lines]:=w_from_to_chart[j,rows];
. [, f5 V2 f: B% Z5 Z6 z6 C0 r                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
: h1 |: A# \% U' `                        partstable[6,lines]:=j;
4 X1 K8 u" Y/ ?/ o) h3 A                end;
        next;
# o) [  x: y, c" i4 Q" T, w        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]);
; G# r# q) D, B) E, x+ @        machine.name:=machinename;标识符未知
        machine.proctime:=5;
% T+ ~' Y( E' @/ W" C3 \        machine.label:=activityspace[0,rows];
2 y0 ~% ?: h4 q1 v& L        machine.exitctrl:=ref(leave);
6 M( v5 A! b& y) h       
/ ^/ D& C% S0 Z0 n! x+ E        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;
        buf.capacity:=5000;
        buf.proctime:=0;
- M( s0 j% _' @, G1 P; d! _! V+ Q2 V        .materialflow.connector.connect(buf,machine);
/ e$ a* ?7 m8 `# m. v4 h- x       
        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;
; W: e6 G9 h' }7 Q' t' scurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
6 Y0 y" F+ y! n: r. \6 {next;
end;