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

zooey

is
3 y+ ~2 c4 K2 Q9 b- P8 T        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
9 q# ?1 F% L; ]) j1 A    machinename,bufname:string;
, v; M# R5 `8 F% q0 ]8 H    machine,buf:object;
; |4 D" I; N/ w6 X  A% ldo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' k* T. m: o1 i3 r* }4 ?                inspect messagebox("设施数目不对！请核查...,",50,13)
1 M2 X4 P/ t! C; U8 A                when 16 then
+ k# R* k4 R; C- H& ]1 k                        print"yes";
( ~/ d4 ]+ j2 O& ]                when 32 then
. u2 E+ I( d  p/ W% W  x                        print"no";
) A4 v; R% }1 N% ?                else
9 |) L5 p: Z) ]- K" s1 a                        print"cancel";
                end;
: e: t! J7 \6 @' w% e9 |0 @                eventcontroller.stop;
) S$ `) l7 F: ?( K: M: {  L$ g  Y        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
2 C) P* j! d0 G& W( R8 [        end;
1 r: ]4 X( H, s- b6 t        bufname:=sprint("BF",i);
        if existsobject(bufname) then
, _2 ?+ _" [0 B: D                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
5 G6 e/ W5 \- i        next;
       
$ t1 O$ Y; v1 q, q3 m        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
) V$ j7 C$ J! P6 q* l( X3 x. g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" L  Z4 b/ f1 i: c9 ~" `                --mark:=false;
0 @6 b" ~' u  T7 @* d                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*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];
+ B/ C7 v9 d, `+ F/ z5 U: ]                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
* s8 Q2 ?, j6 M0 Z( G0 B4 y2 D                        else*/
                        y_max:=y_max+dy;
6 f/ r* u" V7 L0 R! \7 B' W! O& m, x                        dx:=0;
# t: A8 {; Y4 H, f1 x! x1 u- t                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* t' q. s; d. Z0 ]. G6 E                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
& U- p+ B6 B  }, R$ a            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
" ?1 i& f/ V& V7 N. y                end;
+ G. E! K1 e3 c2 J# _. b                dx:=dx+activityspace[1,rows];
                /*if mark=true then
4 C% c3 v, m, N" @' x; N8 t                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
! t- o0 x! ^* }  t' P        next;
- C) O2 @! l2 P. g        y_max:=y_max+dy;
4 T: A/ A4 p/ F% f3 ^* \! V' j, i( ~        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);
- j) V% a) p# t" N6 H% R9 Y       
0 _) Z& ~7 h& Z( F3 c& f        rows:=0;
4 o9 j, ~* X% R2 ^8 z        lines:=0;
# p. i4 ^% ^2 C8 j: r: q9 w        for i:=1 to number_of_machine loop
. A7 d+ a# j* N' Q" N                for j:=1 to number_of_machine loop
: O* g. \  b% _3 e$ {, {: C  [                        if j=i then
                                d_from_to_chart[j,i]:=0;
4 t" h' f- q6 e# R                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# q# K4 Z7 J7 H  @, D/ F+ Z                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
9 |: B8 F* ?5 s: b8 Q* y+ w                                d_from_to_chart[j,i]:=abs(dx-dy);
7 q" L. j3 y2 k: `# F% a" a* t                        end;
% B. c4 A& ^! S  U" D: M                next;
        next;
       
        lines:=0;
        partstable.delete;
& z5 q/ U- u8 _  a+ C0 P' H       
% ?; a5 k2 u! o7 Q7 ~7 c: L        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
6 U0 S1 u! `* ^9 Z. s% l9 K! [                        if w_from_to_chart[j,rows]>0 then
5 m" r/ _# `7 n$ z                        lines:=lines+1;
$ q/ m2 V0 u, A5 k9 L                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ Y( R4 X# w8 c/ ]# M4 u* f                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
; m1 U0 ^4 ]* v7 X( R* O                        partstable[6,lines]:=j;
                end;
1 [0 S) E% R' K. }2 U+ w+ O& r4 r        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]);
% E! l! D6 u' |2 m. G        machine.name:=machinename;标识符未知
        machine.proctime:=5;
# m( q4 h/ T3 k        machine.label:=activityspace[0,rows];
7 T# ]8 _' b$ ?6 H. E        machine.exitctrl:=ref(leave);
* j5 t9 _) d" w  L       
/ X& u6 f0 ^4 P$ ?6 q  O        bufname:=sprint("BF",rows);
0 \* `' d$ g* U. O" j4 l5 `        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;
; `) g, h; t. a' V& g, O6 G6 E1 M8 {* f        .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;
: x: G+ n% E& I. w* ]current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
" k6 `3 p7 B2 {; I0 s5 r: M3 iend;