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

zooey

is
9 f, j5 Y" o% K% N& F        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
7 ]9 w/ j0 e! Tdo
1 ^2 h3 j5 }; G" N. \        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
0 I# h2 H# l5 a& Q                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
, b, w0 v3 g$ V                        print"yes";
3 V4 X( D6 L1 |. l/ q* F. Y3 r9 X' U                when 32 then
                        print"no";
9 a- b5 n1 h  h$ J8 A! B                else
6 _% h. `  x# l                        print"cancel";
* Q& j& d# ]* I7 w                end;
! N5 X* \" T. J% {                eventcontroller.stop;
3 |( f. i2 @; c* S. o. F        end;
2 P2 I" r: A8 U  K7 [- ~. m       
9 }' D' t( O2 o5 t% D9 A        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
& o) u* y7 O  h5 I) ?                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
& K- o6 r+ O3 j; B* x9 l0 b        bufname:=sprint("BF",i);
/ `- Z: d) E) i' T$ {0 `+ J# r        if existsobject(bufname) then
! x8 J/ }8 q" }# e% ]0 Q3 B  j) t" O% @                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
0 G1 t8 ?9 K9 c  u( }        next;
6 {) h0 B) r1 E% s       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
$ Z$ F) w7 P5 Q- b. |, O                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% c2 m7 [- S6 p, @                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
: T8 F# A0 v4 \8 z4 A: w1 t" s                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ J) D# k8 X/ J' S1 j+ q$ N4 S                        and activityspace[1,rows]<(1.05*y_max) then
' {8 I4 s- M& T. l  ~                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 Y2 _4 R& z, l. M$ f2 Z+ _2 [                        activityspace[1,rows]:=ct;
" ~  [; j5 P; _: u4 Z1 K, {                        mark:=true;
                        else*/
: N3 t; G- x8 M& P, N                        y_max:=y_max+dy;
                        dx:=0;
; e$ l+ F3 b7 D: l% r                dy:=0;
( _3 }5 F9 w0 Y                        --end;
                end;
' }8 W* A/ u, g                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. a9 t* v, d/ 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];
  T( z5 V3 I& }' l2 x% A1 c( P                end;
. [9 l0 u& V: A( U                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
6 T: |  o3 C6 o9 _& q# l! U, [                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
% ?7 I0 y7 F' G) d# O        next;
* P4 k2 w6 S$ c6 Q# R  u        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);
/ w9 z4 m" b5 w) Q9 e        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;
        lines:=0;
5 C- [) O* |# A- h4 Z, v! e7 F        for i:=1 to number_of_machine loop
( \, j) p" w* d  X8 V+ u! l" `+ ^( H                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
% ^6 N0 m( T# g" r0 E                                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];
- }+ s2 D5 @& K- ~                                d_from_to_chart[j,i]:=abs(dx-dy);
! u5 Q8 S7 Z" \- E2 V                        end;
                next;
        next;
       
" N9 I' H. b2 ~" n        lines:=0;
        partstable.delete;
0 L$ ~4 q/ V! e# V/ j5 L$ ?$ j( [: s       
& N* T/ F7 F5 m        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# p: _- P3 c1 N0 I( }! B                machinesequence[2,i]:=rows;
, t6 g, Q! ^. a9 s0 a                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
+ J# \2 u2 Y$ y% H1 p( }                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 @3 M0 Z( f* `/ n0 c+ ^                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
) _+ E1 {4 [- J                        partstable[6,lines]:=j;
                end;
1 s" R, X. `# X9 D        next;
        machinename:=sprint("M",rows);
( ^( J- J0 y) m' l4 Z. i% m        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]);
6 d+ c0 e% z  w- L" D1 h8 ^, m0 t8 g        machine.name:=machinename;标识符未知
/ t" y1 b( a2 q; V        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
7 r1 w  w* P1 S( a% A        machine.exitctrl:=ref(leave);
- Z' z- ?' b$ z7 B) I5 F; ]       
        bufname:=sprint("BF",rows);
1 L: Q4 k2 `& Y        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]);
2 f/ i6 e* e. s" `        buf.name:=bufname;
        buf.capacity:=5000;
+ v3 X6 K( O, G+ O" k  ^+ N        buf.proctime:=0;
+ n" J7 D9 Y0 |        .materialflow.connector.connect(buf,machine);
+ t, c6 N+ i$ E% V2 O4 O       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;