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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
* B4 l3 ]' |. ^    machinename,bufname:string;
/ Z; h* S9 h! o6 N6 [0 x) x/ V" S    machine,buf:object;
do
        current.eraselayer(1);
5 g7 c: ^% Q% M9 i4 d* k3 ]" D( {       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
) V2 _) ]8 K* v" E4 G3 a                when 16 then
2 R6 F& I  F; P' o3 P% w                        print"yes";
6 B1 u2 b* A3 Y4 \' ^7 [                when 32 then
! t6 N0 y" x) S) |% _1 b9 \; j# S; a, {* M                        print"no";
                else
5 T( K0 `# N( q                        print"cancel";
                end;
                eventcontroller.stop;
        end;
" y+ y) h$ G. f       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
* S9 G- i& c. C' x        if existsobject(machinename) then
5 b8 v2 M. R+ `: r                machine:=str_to_obj(machinename);
                machine.deleteobject;
6 t* r3 N5 F- g& S- M        end;
        bufname:=sprint("BF",i);
6 j2 p. l0 l2 W0 \5 [        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
% W: w8 @  ^( ^        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' T3 \! a* K+ i2 a0 x                --mark:=false;
# S8 c5 v6 l" o$ Z% A: e* _                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
1 {- m4 X6 l, h! B# @                then
4 M: F' S, B+ s2 s, h- R; i                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. U  i+ ?- P% R3 ~) W                        activityspace[1,rows]:=ct;
' j( j% k2 _) n7 T% A- C                        mark:=true;
- f8 }$ \1 d8 r+ X) @                        else*/
6 {/ L/ d4 M6 ~                        y_max:=y_max+dy;
. W+ E3 O) v, j7 y$ J  Z9 H                        dx:=0;
/ l. _2 e; ]3 [5 `                dy:=0;
                        --end;
' v3 n. j' O) {7 t  j' m                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 T6 K' [4 V( d/ n+ ?/ C                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];
* Z* k( E4 x2 n5 |% v; i+ i                end;
                dx:=dx+activityspace[1,rows];
( O9 v/ o. e( ^8 T6 e* w6 K* ~! l                /*if mark=true then
                ct:=activityspace[2,rows];
$ q: V* G  L! {2 W- A                        activityspace[2,rows]:=activityspace[1,rows];
* y( X) Y% h- }. ^                        activityspace[1,rows]:=ct;
3 Q/ D7 J% r3 p2 \0 T/ U; P4 {                        end;*/
        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);
; A. ~) r0 E. E' s, B) k8 V0 k2 @        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;
: E% ]9 \3 L$ C+ ?+ K9 J        lines:=0;
1 s: }! I# {  F7 |        for i:=1 to number_of_machine loop
9 g& t* a5 v6 @" A4 R                for j:=1 to number_of_machine loop
                        if j=i then
" g- b, G$ z" S0 m6 b2 J8 N                                d_from_to_chart[j,i]:=0;
- y9 c, z" z; S1 A$ u                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
4 j" M* O$ N& @                                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);
2 u& l6 @6 b# z                        end;
: j2 y& Y" A) X0 E+ {- U                next;
0 K- q3 _  J  \: d        next;
       
, U4 f2 `+ O1 U3 G' a        lines:=0;
$ C9 `( s0 l5 M2 x, [        partstable.delete;
       
        for i:=1 to number_of_machine loop
' ^5 U8 \" h, j                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
6 S8 ~1 x9 |7 ^* w+ O% x4 e                        if w_from_to_chart[j,rows]>0 then
: U1 k2 H2 }. _) X" f2 ]                        lines:=lines+1;
" ~; G# ]7 q8 O& p% ^' S                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
, Q, x/ \) P; u- ~5 ~" A                        partstable[2,lines]:=w_from_to_chart[j,rows];
6 U8 E( C9 p9 F7 i3 Z7 Z                        partstable[3,lines]:=sprint("parts");
1 z- m& L4 R  D! [                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
  [# P) U; T1 I, S$ k        machinename:=sprint("M",rows);
# D* \, [, l% r' U5 b# P/ Q        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;
3 I* i( t2 {" @( X8 V* T! ~        machine.label:=activityspace[0,rows];
4 D; f4 i" N6 i5 P( j7 N8 q- K        machine.exitctrl:=ref(leave);
" d9 S% M8 x& f  {       
        bufname:=sprint("BF",rows);
% A2 g3 o' r- R) A' f' e* Q8 ~4 T- a        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]);
1 O+ D! l! K6 ^. N8 y5 M# m        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
5 D; {7 g% }% Y# f        .materialflow.connector.connect(buf,machine);
1 H  O7 K' d6 x! T       
! d2 s% q% {* @6 A! T$ Y. O% ?- ~% ]        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
5 |( M& \7 Y6 ?+ Q; h( U! ]! Vdy:=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;