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

zooey

is
- s: U8 N* k% k+ n        mark:boolean;
; a6 k' T, u% M3 h' }& N: E7 z* }        dx,dy,ct:real;
+ v- Q4 ^/ H# _    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
* R2 ?6 k% `2 ?$ X# Wdo
; b' h' c' f. j! W( T- B( |        current.eraselayer(1);
/ w, I: L& {) M1 B1 w: S       
5 O* m2 J  b+ B        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: @- k. q* Y" r: G2 e8 @4 i                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
3 O+ b3 j2 ~  R, l3 Y$ r1 v6 Z                when 32 then
                        print"no";
$ R( [9 X5 ]+ v1 ~+ t6 g% ^                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
, t* n) F9 y9 w! [: P* h       
6 P+ A/ o% n8 D) g9 o- b6 }3 D        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
. _1 M% p8 M8 v4 R6 R2 f% i) D        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
* ^0 s- K- W' H        end;
8 ^6 }, |1 E% Y, I1 |        bufname:=sprint("BF",i);
        if existsobject(bufname) then
8 A5 J/ O0 P6 H9 d! m                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
( ]/ J4 g1 [! F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! v& T( }, D+ H+ y4 l( O: V                --mark:=false;
+ N3 G0 z3 Z  J                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
/ d1 F7 Y0 T; q  G# c                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: F9 O- z/ Z9 Z. g0 W$ k$ ~                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
* ^5 o9 L0 u& b                        else*/
8 d" Y& z5 R+ {/ q7 I7 _0 d) g                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
* |) }( W4 T; A" V- e& x5 C                        --end;
" X9 S. A$ y+ n* ^# Q- t. E                end;
7 M3 r5 r: j4 x                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];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
. L# z: l9 J# h' ]  [7 |$ X+ G- R' p, `                        activityspace[2,rows]:=activityspace[1,rows];
: E2 U6 d9 ]: W  K, ]                        activityspace[1,rows]:=ct;
                        end;*/
% T9 I* E5 ?) P. i2 S" E        next;
        y_max:=y_max+dy;
; f. }% T7 _: R9 F0 @        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);
# m* H, w; `9 C8 `" e       
        rows:=0;
5 A6 n: }; Y7 p0 W! W        lines:=0;
        for i:=1 to number_of_machine loop
! [; l1 \1 g2 A6 x                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
: c3 u* ^4 `2 f) D! |" e2 X                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
. C/ n1 C0 r  q: C; V$ m2 h. i1 J/ _1 ]                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 o* c: v; C- S3 g* H                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
, w& y5 U' G1 I7 ^' t0 Z        next;
+ @. v0 S! Y  v       
! B2 K( o3 H4 Z2 E( b9 g        lines:=0;
  o2 c9 q4 B% w$ ~( h* O- W        partstable.delete;
# q" A- k& Z, [# P, c, g/ w" |4 B! ~       
1 m; y: Q! f$ N8 Z2 m        for i:=1 to number_of_machine loop
6 P7 d) s/ k, u5 G                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
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; U: K2 ~/ z/ ]5 w: X- O                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
' \: X) j5 ?% |% O- b) D( ^1 x9 p                        partstable[5,lines]:=rows;
4 n# U! _% C" b                        partstable[6,lines]:=j;
                end;
( a1 a7 U: z: \        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
* i3 m: x; O8 j7 Q% ]4 ^4 U+ _. G        machine.label:=activityspace[0,rows];
  N) t8 h3 g* L1 p        machine.exitctrl:=ref(leave);
  t7 a& Y' w8 b2 Q, p9 T       
( {8 m) h! N- X  D8 ^$ M  D        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;
5 [& t( n0 y. V" d/ ~        buf.capacity:=5000;
% ?7 Z" N! Z+ N/ l! t        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
7 p8 Y: F& f. }' T) c6 b1 f        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
% e" g- }& C' B: P& c/ ]dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
$ f' _4 {. }* u6 n4 n3 Qcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
$ O! g, G( H* R4 k. Z( C0 lnext;
! N' t6 s6 ]$ r" j% z; z. J" xend;