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

zooey

is
/ ?& s% R& v/ ^! T' S  o0 S        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
3 p3 Q* e, Z4 u. S$ Z: k    machinename,bufname:string;
* }" h8 s: b' ]" \! Z6 ~    machine,buf:object;
# @8 {& M+ I% @0 r. ]2 O% Ddo
' d& G$ _" j% J7 ^9 V9 B( z0 R  x& m        current.eraselayer(1);
' V8 S4 `( N: t9 ?  r       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
- ^/ p5 ^( U) Q8 l, e. |& @                when 16 then
. _) {+ W' P6 e                        print"yes";
7 r2 H6 R. m5 S* W$ h                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
) V( e5 v9 u8 Y6 g$ S6 y/ u        machinename:=sprint("M",i);
. z  n) d9 n, g* Z! k" v        if existsobject(machinename) then
* e  M" m& f% A6 J! U; C* ]                machine:=str_to_obj(machinename);
                machine.deleteobject;
/ j) i4 j  o0 l" b" L        end;
- q) v6 t8 g4 V5 Z% Z$ D. |3 _( K        bufname:=sprint("BF",i);
! @+ O, B/ X3 `8 o3 L+ t( I1 J        if existsobject(bufname) then
: i9 |  ?- ~% ]                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
4 C2 J2 l9 o5 j3 B" C+ q/ g        next;
       
5 }# c4 ]! }7 g6 u+ h        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
0 ]! W7 T4 \- z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: i/ E" N3 u# k7 l                --mark:=false;
. G2 S$ y: t# K8 B8 [! B# M2 Y' e# _( D0 E                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
+ O8 T9 ^3 E/ S7 W# V                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
7 Q5 P2 O% F5 h/ }                        print activityspace[1,rows],",",activityspace[2,rows];
/ G+ X/ T, z( |4 `                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- b" L1 P/ [; g& r3 V  t- h                        mark:=true;
" I1 V6 d( F. v                        else*/
                        y_max:=y_max+dy;
( f3 w% h/ |4 w: h- m; L* p                        dx:=0;
                dy:=0;
                        --end;
                end;
                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;
  D" ?8 S6 T: q. d7 ]  B. S$ l            if activityspace[2,rows]>dy then
7 B" y. k" T+ J% ^' ^- G                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
8 P  o- m; a- B- {5 b  y                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ M% u9 @2 j, V/ x8 O8 F                        end;*/
1 c2 m0 n- ~6 A$ A) c# p! d        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);
. z! d& w3 n+ N  F; J7 t: J) }        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);
       
) I. u+ M9 i  n5 x        rows:=0;
- s% s& p; ^! d2 j7 L; \* Z/ r        lines:=0;
        for i:=1 to number_of_machine loop
! d, O$ t1 m* I. n  _6 N                for j:=1 to number_of_machine loop
                        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);
$ l: u: Z0 D2 r4 X3 q4 [. T9 h                        end;
2 ?, e, u2 f3 Q) m$ x% y7 P                next;
: a; U5 M9 [7 T, S9 K' ^        next;
  }. b# _& U3 r3 m6 y( s+ j       
        lines:=0;
        partstable.delete;
! m) g4 M6 E7 K( q; Q. w. c( g       
) h* r2 ~3 X* n( q; x" N        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 ^8 C) t  L& z5 E" x. B# ~                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
$ g$ k3 ~# u; d/ ]                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
+ [* k& _4 B1 E  }1 Y                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 ]' }7 @( R9 P+ `3 Y                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
% ^8 X; @9 t  z6 a# u' {8 a, Z, x: l                end;
6 }" u$ }6 {' R  H% H; g/ ?        next;
        machinename:=sprint("M",rows);
7 S& C8 P9 i1 `; @+ t2 l        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]);
# _. t% ]% e, r        machine.name:=machinename;标识符未知
. v% d! i- V( w( R( v        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
: p: ], ^/ x- N* e        machine.exitctrl:=ref(leave);
. D' Z" d7 S- g) d! }! {4 h       
        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]);
) p7 Q5 G, i! M1 U        buf.name:=bufname;
* E6 }4 W% [8 H* A% X; X4 b        buf.capacity:=5000;
( x, T, s5 ?9 f# s8 [# w        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
9 n0 D; ^& S' e/ N2 o# K        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;